我正在使用气泡图直观显示我的数据。我面临的问题是在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;,我希望气泡是红色的,否则我希望它是绿色的。
任何帮助将不胜感激。 感谢
答案 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")