geom_bar(stat = "identity") 最后,使用 geom_text() 函数来添加标签,并通过 aes(label = value) 来指定标签的内容为数据框中的 value 列,vjust = -0.5 表示标签应该在柱子的上方。 # 在柱子上方添加标签p+geom_text(aes(label=value),vjust=-0.5)...
%>% reorder_group(function(df) { geom_text( aes(label = country), data = df, position = position_dodge(width = 0.9), angle = 90, hjust = 1 ) }) g_main <- ggplot(data_scores, aes(x = group, y = score, fill = country)) reduce(c(g_col, g_text), `+`, .init = g_...