下面小编就通过一个案例来进行展示数据为随意构建无实际意义仅作图形展示用,希望各位观众老爷能够喜欢。...csum, 1), # 计算每个条形图标签的位置
pos = if_else(is.na(pos), n/2, pos)) # 如果位置为空,则将位置设置为n/2
df %>%
ggplot...(aes(x = 5, y = n, fill = new_status, label = n)) + # 使用"data.frame"中的数据创建ggplot对象,设置x轴为常数5,y轴为n列,填充颜色为...element_text(size = 9, color = "black"), # 设置文本大小为9,颜色为黑色
legend.position = "top", # 图例位置为顶部...legend.title = element_blank(), # 图例标题为空
legend.spacing.x = unit(0.05, "cm"), # 图例水平间距为