Несколько пузырей спрятано за большим пузырем в пузырьковой диаграмме

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 = "недобросовестная деловая практика", появляется в моих данных дважды, я рисую 2 пузыря, но меньший спрятан за пузырем большего размера. Я хочу, чтобы поменьше было видно на моем графике

Также я хочу использовать столбец V4 для представления цвета пузыря. Пример: если V4 = "Y", я хочу, чтобы пузырь был красным, иначе я хочу, чтобы он был зеленым.

Любая помощь будет оценена. Спасибо

Answer 1

Если вы сортируете свои данные так, чтобы меньшие круги находились в конце data.frame:

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

(и убедитесь, что вы вычислите радиус на новом dat1 - или замените circles=radius с circles = dat1$V3/pi) тогда это должно помочь (хотя, если набор маленьких кружков теперь полностью затеняет один большой круг, то вы никогда не сможете увидеть все данные!)

Вы можете просто изменить свои константы fg и bg в вызове символов, например: bg=ifelse(dat$V4=="Y", "red", "green")