я есть фрейм данных, содержащий следующие данные:

> data_graph
# A tibble: 12 x 4
# Groups:   ATTPRO, ATTMAR [?]
       x     y group    nb
   <dbl> <dbl> <chr> <int>
 1     0     0     1  1060
 2     0     0     2   361
 3     0     0     3   267
 4     0     1     1   788
 5     0     1     2   215
 6     0     1     3    80
 7     1     0     1   485
 8     1     0     2   168
 9     1     0     3   101
10     1     1     1  6306
11     1     1     2  1501
12     1     1     3   379

Моя цель - иметь следующую таблицу:

Обеx а такжеyкачественные переменные, обозначаемые как ось X / YН.Б.количественная переменная, представляющая размер пирогагруппакачественная переменная, представляющая части пирога

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

library(ggplot2)
  ggplot(data_graph, aes(y = factor(y),x = factor(x))) +
  geom_point(aes(colour = group, size = nb)) +
  theme_bw() + 
  cale_size(range = c(1, 20)) +
  labs(x = "x", y = "y", color = "group", size = "nb")

С помощьюscatterpie пакет не очень помог. На этот раз пироги хорошо нарисованы, но я не могу найти способ использоватьН.Б. определить размер пирога. Также,x а такжеy рассматриваются как количественные переменные (я пыталсяфактор () без шансов) вместо качественных. Результат довольно уродливый, без полной легенды.

> tmp
  x y    A    B   C
1 0 0 1060  361 267
2 0 1  788  215  80
3 1 0  485  168 101
4 1 1 6306 1501 379

library(scatterpie)
ggplot() +
   geom_scatterpie(aes(x = x, y = y), data = tmp, cols = c("A", "B", "C")) +
   coord_fixed()

Как изменить этот код, чтобы иметь 1-ую диаграмму с 2-мя пирогами?