R:根据权重更改某些(但不是全部)绘制数据点的大小

Question

我在 R 中生成了一个图，其中每个数据点的大小对应于其各自的权重，例如:

x <- runif(10, 2, 200) 
y <- runif(10, 5.0, 7.5)
weighting <- c(1, 1, 1, 1, 1, 10, 15, 15, 25, 25)

我已经用 cex 调整了绘制数据点的大小:

绘图(x，y，cex = 权重)

由于图中的某些数据点因其高权重因子而非常大，我通过plot(x, y, cex = weighting/5) 减小了所有点的大小，这将给出这样的情节:

不幸的是，现在权重较小的数据点很小。我确信有可能将大小限制为仅具有高权重因子的那些点，并以正常大小绘制其他点(即权重 = 1)。我不知道该怎么做，有人可以帮忙吗？

Answer 1

您还可以查看 ggplot 中的 scale_size_area

# you need to keep your data in a data.frame
df <- data.frame(x = x, y = y, weighting = weighting)
ggplot(data = df, aes(x = x, y = y, size = weighting)) +
  geom_point() +
  scale_size_area()

更新，关于 cex 和点大小的缩放
因为题目是cex，所以借机引用a post by @Bert Gunter在 R 帮助上:

“问题来了:为了准确表示值，“点”=圆面积必须成比例到值。也就是说，眼睛“看到”的是面积，而不是半径，因为点“尺寸”。霍华德·韦纳 (Howard Wainer) 的 1982 年对此进行了令人愉快的引用左右(记不清了)美国统计学家的文章，“如何糟糕地绘制数据图表”(或者“绘制”数据)。

无论如何，使用cex，我不知道用cex =绘制的点是否1.23 是一个点的面积或半径的 1.23 倍，或者两者都不是用 cex =1 绘制。确实，它可能会有所不同，具体取决于实现/操作系统/图形字体。所以我觉得“画”更好带有 symbols() 的点，您可以在其中完全控制尺寸。

显然，如果我对此有误，请告诉我。”引用结束。

在同一个线程中@Gabor Grothendieck 指向this nice article ，其中使用了 base 函数 symbols。一个例子是“[c]圆圈 [are] 按半径而不是面积错误地确定了大小。大值显得更大”，另一个例子是“圆圈 [are] 按面积正确确定大小”，还有 inches 参数用于设置最大气泡的大小。我认为这可能是 base 等同于 ggplot 中的 scale_size_area()。