R图例颜色与绘图点不匹配

Question

我有一个从互联网上检索数据的过程和用于绘图的格式。顺序数据点与随时间变化的标志配对，我希望这些标志是点颜色的基础。有一个非常庞大且不可预测的可能标志库，所以不要提前知道将使用哪些标志。我无法获得与点颜色相匹配的图例颜色。

下面的代码提供了数据集的模拟以及绘图点和图例点颜色之间不匹配的示例。我见过的例子取决于提前知道标志。对不起，如果这很简单，感谢您的帮助！

myx<-seq(1:100); myy<-rnorm(100); mydf<-data.frame(myx,myy)
mydf$flag<-NA
mydf$flag[1:30]<-"Flag A"; mydf$flag[31:60]<-"Flag B"; mydf$flag[61:100]<-"Flag C"
plot(mydf$myx, mydf$myy, type="b", col=factor(mydf$flag), pch=19)
legend("bottomright", legend=levels(factor(mydf$flag)),
   col=factor(mydf$flag),
   pch=19)

Answer 1

图例调用中的

col=as.numeric(unique(factor(mydf$flag)))有效：

myx<-seq(1:100); myy<-rnorm(100); mydf<-data.frame(myx,myy)
mydf$flag<-NA
mydf$flag[1:30]<-"Flag A"; mydf$flag[31:60]<-"Flag B"; mydf$flag[61:100]<-"Flag C"
plot(mydf$myx, mydf$myy, type="b", col=factor(mydf$flag), pch=19)
legend("bottomright", legend=levels(factor(mydf$flag)),
   col=as.numeric(unique(factor(mydf$flag))),
   pch=19)