juanchiem · May 19, 2021 00:12 · juanchiem · May 19, 2021
diff --git a/stat_summary + geom_line b/stat_summary + geom_line
 gg<-expand.grid(type=letters[1:4], year=2000:2004)
 df<-data.frame(gg, emissions=runif(nrow(gg)*10))
 df %>% 
  ggplot() +
  aes(x=year, y=emissions)+ 
  geom_line(stat = "summary", linetype= "dashed", fun=mean)+
  geom_line(stat = "summary", fun=mean, aes(col=type))
	gg<-expand.grid(type=letters[1:4], year=2000:2004)
	df<-data.frame(gg, emissions=runif(nrow(gg)*10))
	df %>%
	ggplot() +
	aes(x=year, y=emissions)+
	geom_line(stat = "summary", linetype= "dashed", fun=mean)+
	geom_line(stat = "summary", fun=mean, aes(col=type))