125

私はタイトルを一目瞭然にしようとしましたが、ここに行きます-データが最初です：

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()

ここで出力を確認できます。

ここに画像の説明を入力

私は些細なことを求めていると思います。テキスト ラベルが積み重ねられたバーに「追従」するようにします。ラベルは y 軸に正しく配置されますが、x 軸に正しく配置するにはどうすればよいですか?

4

1 に答える 1

193

これは、あなたの望むことですか？

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"、パラメータのない単なるショートカットです。さらに、ラベルをかわすためにgroup=ustanova美学を設定する必要があります（2番目のオプションは、グローバルな美学を作成することですgeom_textustanovafill = ustanovaggplot(bar, aes(fill = ustanova))

では、覆い焼き棒または積み上げ棒 (" という名前のコード チャンク)に配置する方法に関するggplot2_2.0.0いくつかの例が見つかります。Q&Aでは、 position_dodge の幅引数とは何ですか?で、トピックのより完全な説明が提供されます。?geom_textgeom_text# Aligning labels and bars"

于 2011-05-16T13:13:43.680 に答える