我有多个数据集,仅需要从中绘制两个变量(overs和runs)。我能够分别绘制图形,但我需要的是同一图中的所有折线图。下面的代码。
fi<-list.files("C:/Users/Desktop/DL/Test",full.names=T)
dat<-lapply(fi,read.csv)
for (i in 1:length(dat))
{
Datasub=data.frame(dat[i])
plot(T1$`Team1$overs`,T1$runs,col="red",type = "l")
lines(T2$`Team2$overs`,T2$runs,col="blue",type="l")
}
答案 0 :(得分:1)
尝试一下
fi<-list.files("C:/Users/Desktop/DL/Test",full.names=T)
dat<-lapply(fi,read.csv)
plot(1, type="n", xlab="", ylab="", xlim=c(0, 10), ylim=c(0, 10))
for (i in 1:length(dat)) {
Datasub=data.frame(dat[i])
lines(T1$`Team1$overs`,T1$runs,col="red",type = "l")
lines(T2$`Team2$overs`,T2$runs,col="blue",type="l")
}