In r ggplot2, how can i adjust 'alpha' value by specific value?

user_13710421 0
Viewed 199

In r ggplot2, how can i adjust 'alpha' value by specific value? As blow code ,"alpha=region" can change the seriers alpha value automaticaly,but i want to assign different alpha values to different seriers. I tried "alpha=c(0.1,0.2,0.3)", this can't work . Anyone can help on this? Thanks!

library(ggplot2)
library(tidyverse)


mydate <- rep(seq.Date(from=as.Date('2021-1-1'),to=as.Date('2021-1-20'),by="1 day"),3)
region <- c("A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","C","C","C","C","C","C","C","C","C","C","C","C","C","C","C","C","C","C","C","C")
sales <- c(22,24,5,5,19,23,1,13,19,19,25,26,8,29,23,21,13,30,6,25,57,50,51,48,48,40,40,47,55,59,57,41,60,52,57,55,42,52,58,43,97,98,88,90,83,90,84,96,95,98,89,80,99,84,83,80,93,82,83,97)
plot_data <- data.frame(mydate,region,sales)
plot_data$region <- factor(plot_data$region,levels=c("A","B","C"))



plot_data %>% ggplot(aes(x=mydate,y=sales,
                         color=region,
                         alpha=region))+
  geom_line()+theme_bw()
alpha ggplot2 r
1 Answers

You will need to use scale_alpha_manual()

library(ggplot2)
library(tidyverse)

mydate <- rep(seq.Date(from=as.Date('2021-1-1'),to=as.Date('2021-1-20'),by="1 day"),3)
region <- c("A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","C","C","C","C","C","C","C","C","C","C","C","C","C","C","C","C","C","C","C","C")
sales <- c(22,24,5,5,19,23,1,13,19,19,25,26,8,29,23,21,13,30,6,25,57,50,51,48,48,40,40,47,55,59,57,41,60,52,57,55,42,52,58,43,97,98,88,90,83,90,84,96,95,98,89,80,99,84,83,80,93,82,83,97)
plot_data <- data.frame(mydate,region,sales)
plot_data$region <- factor(plot_data$region,levels=c("A","B","C"))

plot_data %>% ggplot(aes(x=mydate,y=sales,
                         color=region,
                         alpha=region))+
   geom_line()+theme_bw()+
   scale_alpha_manual(values=c(0.1,0.2,0.3))
user_57922440
Related