Пончик в R: окраска подгрупп в том же оттенке, что и у основной группы - PullRequest
0 голосов
/ 11 марта 2019

Я создал кольцевую заговор с подгруппами, но я пытаюсь исправить цветовую схему так, чтобы подгруппы были градиентом цвета основной группы.Так, скажем, группа мяса синего цвета, тогда все подгруппы под мясом - это градиент синего цвета и т. Д. Основным является внешнее кольцо, а подгруппы находятся во внутреннем кольце.Это действительно выполнимо?

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")
...