绘图颜色R不正确

Question

我正在使用以下代码来生成图：

library(plotrix)

dat_fn = "emptiness.csv"
storage_fn = "final/results/emptiness_values.png"
data <- read.csv(dat_fn, header = TRUE, sep = "\t")

png(storage_fn)
sizeplot(data$PercentEmpty, data$PercentUniform, col = data$QuestionType)
legend("topleft", legend = levels(data$QuestionType), pch = "o", col = 
unique(data$QuestionType))
dev.off()

我应该在左下角得到两个黑点，在右上角得到一个红点。取而代之的是，我在左下角得到一种黑色和一种红色，在右上角得到一种黑色。 （请参见下图。）我完全感到困惑-这里可能会发生什么？我对数据进行了三遍仔细的检查，数据不是问题。

Plot

我的数据是：

ColumnName  PercentEmpty    PercentUniform  QuestionType
D   0.0 5.155436407691911e-05   a
E   0.0 0.00030932618446151465  a
F   0.14146517502706604 0.09666443264422334 b

谢谢！

Answer 1

我认为处理sizeplot确实会重新排序一些点。您似乎并没有使用sizeplot的自动调整点大小的功能，所以我建议您只使用plot即可。

如果您确实需要sizeplot，可以使用以下变通方法：

with(data, plot(PercentEmpty, PercentUniform, type = "n"))
with(subset(data, QuestionType == "a"), sizeplot(PercentEmpty, PercentUniform, col = 1, add = TRUE))
with(subset(data, QuestionType == "b"), sizeplot(PercentEmpty, PercentUniform, col = 2, add = TRUE))