R绘图图例颜色未显示，随机绘图颜色

Question

我正在使用一个通用绘图 fxn，它在完成绘图之前不知道它将绘制多少行。数据绘制得很好，但是当我尝试创建图例时，我没有得到颜色。

由于行数未知，我随机为这些行生成颜色；但是，我将颜色存储在数组/向量中。

从我的代码： 我知道这不容易复制，但也不容易被愚弄，因为我已经到了被愚弄并且无法找到问题的地步......

# plot blank plot
plot(1, type="n", xlab="time elapsed [sec]", ylab="Memory Used [MB]", ylim=c(ymin,ymax),   
  xlim=c(xmin,xmax))

 # LOOOOP over column 2 (node)
for(i in 1: length(col2))
{
  if(col2[i] == compareNode)
  {
    #print(paste0("count: ", count))

    # x = time value, y = memory used value for node: compareNode
    x[count] = col1[i]
    y[count] = (col87[i] - col85[i])/1024
    count = count + 1
  }
  else
  {
    # Plot 
    colTest <- sample(colors(), 1)
    mycols <- c(mycols,colTest)
    lines(x, y, col=colTest )

    NODES[nodeCount] = col2[i]
    nodeCount = nodeCount + 1
    # Resets
    compareNode = col2[i]
    x = c()
    y = c()
    count = 1

  }
}

# Plot final line
colTest <- sample(colors(),1)
mycols <- c(mycols,colTest)
lines(x, y, col=colTest)
#print(colors)
legend("topleft", title="LDMS: Memory Used", legend = NODES, col=mycols )
garbage <- dev.off()

在这里尝试一个更好的例子：

loop x times:
  color <- sample(colors(),1)
  mycols <- c(mycosl,color)
  lines(x,y,col=color)
done
lines(x,y,col=color)   # plots last set of data
legend("topright", title="title", legend=NODES, col=mycols)

Answer 1

尽可能接近您的代码，并假设我们确实不知道要绘制多少行：

mycols <- c();
while (sample(1:100, 1) != 14) {
  col <- sample(colors(), 1);
  mycols <- c(mycols, col);
  ##lines(..., col=col) # plot line
}
legend("topleft", title="LDMS: Memory Used", legend = NODES, col=mycols, lty=1)

更好的是，不要只是从 colors() 中重新采样 1 个元素，而是将 colors() 的输出随机化一次，然后对其进行迭代。这将确保您不会无意中重复使用任何颜色。