假如数据格式是这样：

day    邓文迪    微博    城管
0    0.0    9.262970888519191E-4    0.0
1    0.0    0.0014477585501346314    0.0
2    0.0    0.0010537133405673631    0.0
3    0.0    0.001019433865726601    1.640094753065665E-4
4    0.0    0.0011060571441833288    0.0
5    0.0    0.001024336887543467    0.0
6    0.0    0.0011330352754753267    8.53561425754374E-5

……

想要把“邓文迪”“微博”“城管”三列对应的数据在同一张图上分别表示为三条曲线：

 library(ggplot2)

 library(reshape2)

 dfidfm <- melt(data, id.vars="day")

 ggplot(dfidfm, aes(x=day, y=value)) + geom_line(aes(color=variable))

最后图片效果如下：