将lines（）应用于数据框/矩阵的列；每行具有不同的颜色

Question

我正在尝试提出一种不涉及使用其他软件包（例如ggplot）的解决方案。虽然绘制多条线非常简单，但我还没有找到将不同参数值（例如，不同颜色）应用于不同线的方法。下面的代码（带有生成的图）是我的尝试，显然没有达到我想要的效果。我也不想使用循环，因为我试图使我的脚本尽可能简单。

df = cbind(sort(rnorm(10)), sort(rnorm(10,-2)), sort(rlnorm(10)))
plot(0, xlim = c(1,10), ylim=range(df), type="n")
apply(df, 2, lines, type="b", col = c("red", "blue", "black"))

我真正想要的是如下图：

plot(0, xlim = c(1,10), ylim=range(df), type="n")
color = c("red","blue","black")
for(i in 1:3){
    lines(1:10, df[,i], type = "b", col=color[i])
}

先感谢您！

Answer 1

尝试matplot()：

df <- cbind(sort(rnorm(10)), sort(rnorm(10,-2)), sort(rlnorm(10)))
matplot(df, type="b", lty=1, pch=1, col=c("blue", "red", "black"))