见下面的程序：
生成的矩阵df的最后一行是x,y,z,d对应的数值是10,20,40,70
现在想做的是把这最后一行的数据做了一些改变，变成30,40,20,90，之前的数据全部不变
然后把这种前后存在变化的数据画在一张图上形成对比，具体怎么做？变化前后用虚实线区分开来！
library(ggplot2)<br />
library(reshape2)<br />
df <- as.data.frame(list(x = 1:10, y = 11:20, z =31:40 ,d=61:70))<br />
len<-dim(df)[1]<br />
df<- data.frame(df,time=1:len)<br />
# df[len,]<-c(30,40,20,90,11) 做这个替换前后把图画在一起<br />
quotes_melt1<- melt(data=df,id.vars="time",measure=c("x","y","z","d"))<br />
g1 <- ggplot(data=quotes_melt1,aes(x=time,y=value,color=variable))+geom_line()<br />
g1
</p>
