Я создал кольцевую заговор с подгруппами, но я пытаюсь исправить цветовую схему так, чтобы подгруппы были градиентом цвета основной группы.Так, скажем, группа мяса синего цвета, тогда все подгруппы под мясом - это градиент синего цвета и т. Д. Основным является внешнее кольцо, а подгруппы находятся во внутреннем кольце.Это действительно выполнимо?
PS Кроме того, мой сюжет пончика тоже выглядит немного не по порядку, так что, возможно, его нужно немного улучшить.
данные:
dput(Food)
structure(list(subgroup = c("Sausage", "Steak",
"Apples", "Chicken", "Cheese", "Pork", "Veal", "Milk",
"Boar"), maingroup = c("Meat","Meat", "Fruit", "Meat",
"Diary", "Meat", "Meat", "Diary","Meat"),
fraction = c("0.016799208103252677", "0.02574363995283609",
"0.03310959543006892", "0.03356996438935535", "0.055379788752816315",
"0.07162604741444764", "0.11582296881106383", "0.3182321569235006",
"0.3297166302226587"), ymax = c(0.0167992081032527, 0.0425428480560888,
0.0756524434861577, 0.109222407875513, 0.164602196628329, 0.236228244042777,
0.352051212853841, 0.670283369777341, 1), ymin = c(0, 0.0167992081032527,
0.0425428480560888, 0.0756524434861577, 0.109222407875513, 0.164602196628329,
0.236228244042777, 0.352051212853841, 0.670283369777341)), row.names = c(6L,
8L, 1L, 2L, 3L, 7L, 4L, 9L, 5L), class = "data.frame")
код:
donut = ggplot(food) + geom_rect(aes(fill=maingroup, ymax=ymax,
ymin=ymin, xmax=4, xmin=3)) + geom_rect(aes(fill=subgroup,
ymax=ymax, ymin=ymin, xmax=3, xmin=0)) + xlim(c(0, 4)) +
theme(aspect.ratio=1,
axis.text = element_blank(),
axis.ticks = element_blank(),
panel.grid = element_blank()) +
coord_polar(theta="y")