加载R包
pkgs = c('tidyverse', 'forcats', 'gtools', 'ggplot2', 'ggpubr', 'cowplot',
'scales',...~season)
# 条形图分面宽度相同,只展示使用的因子水平
p + facet_grid(....~season, scale="free")
# 条形图分面宽度自动调整
p1 facet_grid(....~season, scale="free", space="free_x")
p1
3、添加折线图
p2 free", space="free_x") +
geom_line(aes(y=price / 100, group = 1), size = 1, linetype