【发布时间】:2021-07-01 07:42:10
【问题描述】:
我正在尝试将我的图表转换为百分比。我还想包括 facet wrap 功能。没有那条线,情节似乎正在发挥作用。请建议对代码进行的更改。得到的错误如下:
错误:至少一层必须包含所有分面变量:Building.Age。
- 绘图丢失
Building.Age - 缺少第 1 层
Building.Age - 缺少第 2 层
Building.Age
data %>%
count(Locality.Division = factor(Locality.Division), Number.of.Beetle = factor(Number.of.Beetle)) %>%
mutate(pct = prop.table(n)) %>%
ggplot(aes(x = Locality.Division, y = pct, fill = Number.of.Beetle, label = scales::percent(pct))) +
geom_col(position = 'dodge') +
geom_text(position = position_dodge(width = .9), # move to center of bars
vjust = -0.5, # nudge above top of bar
size = 3) +
scale_y_continuous(labels = scales::percent)+
facet_wrap(~Building.Age)+
labs(title = "Comparison between Number of beetle, Locality division and Age of the building",subtitle ="Building age")
#> Error in data %>% count(Locality.Division = factor(Locality.Division), : could not find function "%>%"
由reprex package (v2.0.0) 于 2021-07-07 创建
【问题讨论】:
标签: r ggplot2 facet-wrap