不幸的是,您的数据不是reproducible,但我认为可以调整以下内容。在

使用这样的几个对象可能会变得非常混乱。这就是使用list非常有用的地方。您只需要在my_list对象中使用x、y和截距。然后可以使用layout和一个循环来绘制所有图表。在my_list

for(i in 1:19){
x 
y 
intercept 
name 
tmp 
my_list[[name]] 
}
layout(matrix(1:20, nrow = 4, ncol = 5, byrow = TRUE))
for(j in 1:length(my_list)) {
plot(x=my_list[[j]]$x, y=my_list[[j]]$y, main=attributes(my_list[j])$names,xlab="x-label",ylab="y-label")
abline(h=my_list[[j]]$intercept)
}