气泡图中较大的气泡背后隐藏着几个气泡

时间:2014-03-25 11:45:20

标签: r ggplot2 bubble-chart rcharts

我正在使用气泡图直观显示我的数据。我面临的问题是在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 =&#34; fl&#34;和V2 =&#34;不公平的商业行为&#34;在我的数据中出现两次,我正在绘制2个气泡,但较小的气泡隐藏在较大气泡后面。我希望较小的一个在我的情节中可见

另外,我想使用V4列来表示气泡的颜色。例如:如果V4 =&#34; Y&#34;,我希望气泡是红色的,否则我希望它是绿色的。

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

1 个答案:

答案 0 :(得分:1)

如果您对数据进行排序,以便较小的圆圈位于data.frame的末尾:

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

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

您可以在符号调用中更改fg和bg常量,例如bg=ifelse(dat$V4=="Y", "red", "green")