@Macux
2015-12-01T06:51:36.000000Z
字数 340
阅读 870
R语言_学习笔记
> library(reshape2)
> emp <- melt(economics,id="date",measure.vars=c("unemploy","uempmed"))
> ggplot(emp,aes(date,value)) + geom_line(aes(color=variable)) + facet_grid(variable~.,scales="free_y") + scale_color_brewer(palette="Set2")