在下面的代碼中，我使用 geom_text() 將文本添加到繪圖并將值映射到大小。但是標簽尺寸與情節相比有點大，如何將它們全部縮小到小尺寸？（并且不會丟失映射屬性）。謝謝！
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()
geom_text(position=position_stack(0.5),
aes(size=value_sum,
label=paste0(cat_region,'\n',value_sum)))
scale_x_discrete(
limits=c('blank','blank','blank','category','sub_category'))
coord_polar(theta='y')
uj5u.com熱心網友回復：
與其他美學一樣，您可以通過比例設定可能值的范圍，例如，在size美學range的情況下，通過scale_size. 通過減小范圍的最大值，您可以縮小所有標簽。
library(tidyverse)
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()
geom_text(position=position_stack(0.5),
aes(
size = value_sum,
label = paste0(cat_region, "\n", value_sum)
)
)
scale_x_discrete(
limits = c("blank", "blank", "blank", "category", "sub_category")
)
scale_size(range = c(1, 3.5))
coord_polar(theta = "y")
#> `summarise()` has grouped output by 'title'. You can override using the
#> `.groups` argument.
轉載請註明出處，本文鏈接：https://www.uj5u.com/qianduan/436068.html
上一篇：使用ggplot2的多變數分布圖
下一篇：突出顯示R中斜率最高的折線圖部分