Я хочу напечатать пузырьковую диаграмму в R. Проблема, с которой я сталкиваюсь, состоит в том, что оба, моя ось x и моя, являются дискретными. Теоретически это означает, что множество точек данных (пузырьков) оказываются в одной и той же координате. Я бы предпочел, чтобы они разбросаны вокруг точки данных, но все еще в пределах квадранта, который ясно показывает, что пузырь принадлежит соответствующей координате x / y.

Я думаю, что это лучше всего продемонстрировать на небольшом примере. Следующий код должен выделить проблему:

# Example
require(ggplot2)
zz <- textConnection("Row PowerSource ProductSegment Price Model ManufacturingLocation Quantity
1 High SegmentA Low ModA LocationA 5000
2 Low SegmentB Low ModB LocationB 25000
3 High SegmentC Low ModC LocationC 15000
4 Low SegmentD High ModD LocationD 30000
5 High SegmentE High ModE LocationA 2500
6 Low SegmentA Low ModF LocationB 110000
7 High SegmentB Low ModG LocationC 20000
8 Low SegmentC Low ModH LocationD 3500
9 High SegmentD Low ModI LocationA 65500
10 Low SegmentE Low ModJ LocationB 145000
11 High SegmentA Low ModK LocationC 15000
12 Low SegmentB Low ModL LocationD 5000
13 High SegmentC Low ModM LocationA 26000
14 Low SegmentD Low ModN LocationB 14000
15 High SegmentE Mid ModO LocationC 75000
16 Low SegmentA High ModP LocationD 33000
17 High SegmentB Low ModQ LocationA 14000
18 Low SegmentC Mid ModR LocationB 33000
19 High SegmentD High ModS LocationC 95000
20 Low SegmentE Low ModT LocationD 4000
 ")
df2 <- read.table(zz, header= TRUE)
close(zz)
df2


ggplot(df2, aes(x = ManufacturingLocation, y = PowerSource, label = Model)) +
    geom_point(aes(size = Quantity, colour = Price)) + 
    geom_text(hjust = 1, size = 2) +
    scale_size(range = c(1,15)) +
    theme_bw()

Как я могу немного разбросать пузырьки, чтобы показать разные продукты в каждой категории и их количество?

(Извините, я не могу добавить изображение в настоящее время из-за слишком малого числа репутаций)