我试图使标题不言自明，但这里是 - 数据优先：
dtf <- structure(list(variable = structure(c(1L, 1L, 2L, 2L, 3L, 3L,
4L, 4L, 5L, 5L), .Label = c("vma", "vla", "ia", "fma", "fla"), class = "factor"),
ustanova = structure(c(1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
2L), .Label = c("srednja škola", "fakultet"), class = "factor"),
`(all)` = c(42.9542857142857, 38.7803203661327, 37.8996138996139,
33.7672811059908, 29.591439688716, 26.1890660592255, 27.9557692307692,
23.9426605504587, 33.2200772200772, 26.9493087557604)), .Names = c("variable",
"ustanova", "(all)"), row.names = c(NA, 10L), class = c("cast_df",
"data.frame"), idvars = c("variable", "ustanova"), rdimnames = list(
structure(list(variable = structure(c(1L, 1L, 2L, 2L, 3L,
3L, 4L, 4L, 5L, 5L), .Label = c("vma", "vla", "ia", "fma",
"fla"), class = "factor"), ustanova = structure(c(1L, 2L,
1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L), .Label = c("srednja škola",
"fakultet"), class = "factor")), .Names = c("variable", "ustanova"
), row.names = c("vma_srednja škola", "vma_fakultet", "vla_srednja škola",
"vla_fakultet", "ia_srednja škola", "ia_fakultet", "fma_srednja škola",
"fma_fakultet", "fla_srednja škola", "fla_fakultet"), class = "data.frame"),
structure(list(value = structure(1L, .Label = "(all)", class = "factor")), .Names = "value", row.names = "(all)", class = "data.frame")))
我想创建一个闪避的条形图，执行 coord_flip 并将一些文本标签放在条内：
ggplot(bar) + geom_bar(aes(variable, `(all)`, fill = ustanova), position = "dodge") +
geom_text(aes(variable, `(all)`, label = sprintf("%2.1f", `(all)`)), position = "dodge") +
coord_flip()
您可以看到输出 here。
https://i.stack.imgur.com/bC5w8.png
我想我在要求一些微不足道的东西。我希望文本标签“跟随”堆叠条。标签正确放置在 y 轴上，但如何正确放置在 x 轴上？
这是你想要的吗？
library(ggplot2)
ggplot(bar) +
geom_col(aes(variable, `(all)`, fill = ustanova), position = "dodge") +
geom_text(aes(variable, `(all)`, label = sprintf("%2.1f", `(all)`), group = ustanova),
position = position_dodge(width = .9)) +
coord_flip()
关键是用 position = position_dodge(width = .9)（其中 .9 是条形的默认宽度）而不是 position = "dodge"，这只是一个没有任何参数的快捷方式。此外，您必须在 geom_text 中设置 group=ustanova 美学以通过 ustanova 避开标签（第二个选项是通过 ggplot(bar, aes(fill = ustanova)) 使 fill = ustanova 成为全局美学
https://i.imgur.com/TSs7uMB.png
在 ggplot2_2.0.0 中，您可以在 ?geom_text 中找到几个示例，说明如何将 geom_text 定位在闪避或堆叠的条形（名为“# Aligning labels and bars"”的代码块）上。问答 What is the width argument in position_dodge? 提供了对该主题的更全面的描述.
geom_text层中添加fill = ustanova后才对我有用，这很有意义，尤其是当您有许多水平条（每个 x 可能只需要 3+ 个条）并且文本的中断数必须相同时就像酒吧一样。