绘制多条线（数据系列），每条线在R中具有唯一的颜色

Question

我对R相当陌生，我有以下疑问：

我试图在R中生成一个有多条线（数据系列）的图。每一行都是一个类别，我希望它有一个独特的颜色。

目前我的代码是这样设置的：

首先，我创建了一个空的情节：

plot(1,type='n',xlim=c(1,10),ylim=c(0,max_y),xlab='ID', ylab='Frequency')

然后，对于我的每个类别，我在这个空图中使用“for”循环绘制线条，就像这样：

for (category in categories){
lines(data.frame.for.this.category, type='o', col=sample(rainbow(10)), lwd=2)
}

这里有8个类别，所以在情节中产生了8条线。正如你所看到的，我试图从彩虹（）函数中采样一种颜色来为每一行生成一种颜色。

然而，当绘图生成时，我发现有多条线具有相同的颜色。例如，这8条线中有3条是绿色的。

如何使这8条线中的每一条都具有独特的颜色？

还有，我如何在剧情传奇中体现这种独特性？我试图查找传奇（）函数，但是不清楚我应该使用哪个参数来反映每个类别的独特颜色？

任何帮助或建议将不胜感激。

Answer 1

你有正确的一般策略来使用基本图形来做这件事，但是正如所指出的，你实际上是告诉R从每行10个颜色中选择一个随机的颜色。考虑到这一点，你偶尔会得到两条颜色相同的线也就不足为奇了。下面是一个使用基本图形的示例：

plot(0,0,xlim = c(-10,10),ylim = c(-10,10),type = "n")

cl <- rainbow(5)

for (i in 1:5){
    lines(-10:10,runif(21,-10,10),col = cl[i],type = 'b')
}

请注意，使用type="n"来取消设置窗口的原始调用中的所有绘图，并在for循环中索引cl。

Answer 2

如果你想要一个ggplot2解决方案，你可以这样做，如果你可以把你的数据塑造成这种格式（见下面的例子）

# dummy data
set.seed(45)
df <- data.frame(x=rep(1:5, 9), val=sample(1:100, 45), 
                   variable=rep(paste0("category", 1:9), each=5))
# plot
ggplot(data = df, aes(x=x, y=val)) + geom_line(aes(colour=variable))

Answer 3

如果您的数据是宽格式的matplot就是为此而设计的，并且经常被遗忘：

 dat <- matrix(runif(40,1,20),ncol=4) # make data
 matplot(dat, type = c("b"),pch=1,col = 1:4) #plot
 legend("topleft", legend = 1:4, col=1:4, pch=1) # optional legend