在 R 中绘制不同颜色变量和平均线

Question

我在R中有一个数据集，其中包含 5 个国家的[-1,1]值，即(A,B,C,D,E) ，如下所示：

data <- matrix(runif(n=50, min = -1, max = 1),ncol = 5)
data <- round(data,2)
colnames(data) <-
  c("A", "B", "C", "D", "E")

然后我计算所有国家每行的平均值，如下所示：

aver <- as.matrix(rowMeans(data))
rownames(aver) <- c("X1","X2","X3","X4","X5","X6","X7","X8","X9","X10")

我想创建一个带有每个国家（列）的观察结果的图，以具有不同的颜色和要包括的aver线。 我正在使用以下内容，但无法使其正常工作。

plot(c(data),col=c("red","yellow","green","blue","black"))
lines(aver)

最终结果必须如下所示，但包括彩色观察：

我怎样才能做到这一点？？

Answer 1

也许你想要这样的东西：

matplot(as.data.frame(data),col=c("red","yellow","green","blue","black"), pch=16, ylab = "")
lines(aver)

输出：

添加这个作为图例：

legend("bottomright", legend = colnames(data)[1:5], col=c("red","yellow","green","blue","black"), pch = 16)

输出：