气泡图中隐藏在较大气泡后面的几个气泡

Question

我正在使用气泡图来直观地呈现我的数据。我面临的问题是，在R中的气泡图中，面积较小的气泡隐藏在较大的气泡后面。

V1  V2                          V3     V4
fl  unfair business practices   14      Y
fl  Corrections                  1      Y
fl  Product differs              1      Y
fl  refund not paid              0      Y
fl  Single premium               0      Y
fl  unfair business practices    52     N
fl  Corrections                  63     N
fl  Product differs              9      N
fl  refund not paid              2      N
fl  Single premium               2      N
mc  unfair business practices    19     Y
mc  Corrections                  0      Y
mc  Single premium               0      Y
mc  unfair business practices    36     N
mc  Corrections                  2      N
mc  Single premium               2      N

symbols(dat1$V2, dat1$V1, circles=dat1$V3)
radius <- sqrt( dat1$V3/ pi )
symbols(dat1$V2, dat1$V1, circles=radius, inches = 0.35, fg = "dark blue", bg = "red", xlab = "CASE REASON", ylab = "WORDS")

我的问题是(比方说) V1 = "fl“和V2 =”不公平的商业行为“在我的数据中出现了两次，我绘制了两个气泡，但较小的一个隐藏在较大的气泡后面。我想让较小的那个在我的图中可见

我还想使用V4列来表示气泡的颜色。例如:如果V4 = "Y"，我希望气泡是红色的，否则我希望它是绿色的。

任何帮助都将不胜感激。谢谢

Answer 1

如果您对数据进行排序，使较小的圆圈位于data.frame的末尾：

dat1 <- dat1[order(dat1$V3, decreasing=TRUE),]

(并确保在新的dat1上计算半径-或者用circles = dat1$V3/pi替换circles=radius )，那么它应该会有帮助(尽管如果一组小圆圈现在完全掩盖了一个较大的圆圈，那么您将永远无法看到所有数据！)

您只需在symbols调用中更改fg和bg常量，例如bg=ifelse(dat$V4=="Y", "red", "green")