在下圖中，1）如何將類別“A”與軸 x（y 軸從 0 開始）對齊？
2）如何更改子類別填充顏色？想要更改為“粉紅色”（顏色與類別顏色相似）。任何人都可以幫忙嗎？
library(tidyverse)
plot_data <- data.frame(category=c('A','A','B','C'),
sub_category=c('a1','a2','b1','c1'),
value=c(6,12,3,2))
plot_data %>% mutate(sub_category=if_else(category=='A',
sub_category,category)) %>%
pivot_longer(names_to = 'title',values_to ='cat_region',-value) %>%
filter(!(title=='sub_category'&cat_region %in% c('B','C') )) %>%
group_by(title,cat_region) %>%
summarise(value_sum=sum(value)) %>%
ggplot(aes(x=title,y=value_sum,fill=cat_region,
group=interaction(title,cat_region))) geom_col()
uj5u.com熱心網友回復：
我認為您正在尋找scale_fill_manual選擇填充顏色并position_stack(reverse = TRUE)反轉堆疊順序：
plot_data %>%
mutate(sub_category = if_else(category=='A', sub_category, category)) %>%
pivot_longer(names_to = 'title', values_to = 'cat_region', -value) %>%
filter(!(title == 'sub_category' & cat_region %in% c('B','C'))) %>%
group_by(title, cat_region) %>%
summarise(value_sum = sum(value)) %>%
ggplot(aes(x = title, y = value_sum, fill = cat_region,
group = interaction(title,cat_region)))
geom_col(position = position_stack(reverse = TRUE))
scale_fill_manual(values = c(A = "#f8766d", a1 = "#ffa8a3",
a2 = "#ffe2e0", B = "#00b0f6",
C = "#74d67f"))
theme_bw()
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/435717.html
下一篇：將多行轉換為逗號分隔值