For your 2nd plot :
library(reshape2)
library(ggplot2)
df_series<-as.data.frame(matrix_series)
colnames(df_series)<-c("CL", "Series1","Series2","Series3","Series4","Series5", "Series6")
df_series.tall<-melt(df_series, id.vars="CL")
ggplot(df_series.tall, aes(x=CL,y=value, color=variable))+geom_smooth()
For the 1st plot :
ggplot(df_series.tall, aes(x=variable,y=value, fill=factor(CL)))+geom_bar(stat="identity", position="dodge")
The technical post webpages of this site follow the CC BY-SA 4.0 protocol. If you need to reprint, please indicate the site URL or the original address.Any question please contact:yoyou2525@163.com.