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()的输出随机化一次，然后迭代它。这样可以确保您不会无意中重复使用任何颜色。

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

1 个答案: