Попробуйте это
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")
}