如何在R中的循环函数中向绘图中添加一条线（例如，垂直线）

Question

我有一个数据集，需要在其中绘制每个变量。 我为此做了一个循环，因为数据集包含大约50个变量。 到目前为止，这是我得到的：

invisible(lapply(colnames(Data),function(x){
plot(Data[,x],main=x,type="l", xlab= 'Week number', ylab='Amount')
}))

这会自动在单独的图中绘制我的数据集中的所有变量。 但是，我需要在所有这些图中绘制线条。 我的想法是为每个x添加一条平均线。 因此，在高度上的一条水平线对应于平均值x的值。 我试图通过将abline（h = mean（x））函数添加到上面的函数中来执行此操作，但这不起作用。 你们对如何执行此操作有任何想法吗？

Answer 1

你应该使用

abline(h=mean(Data[,x]))

不

abline(h=mean(x)) 

因为每次x是一个姓氏。 检查使用此代码

Data<-matrix(sqrt(1:20),ncol=4)
colnames(Data)<-c(letters[1:4])
par(mfrow=c(2,2))

invisible(lapply(colnames(Data),function(x){
plot(Data[,x],main=x,type="l", xlab= 'Week number', ylab='Amount')
abline(h=mean(Data[,x]))
}))