Định vị geom_text trên thanh dodged barplot

Tôi đã cố gắng làm cho tiêu đề tự giải thích, nhưng đây là - dữ liệu trước:

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

Và tôi muốn tạo một barplot có mái che, thực hiện coord_flipvà đặt một số nhãn văn bản bên trong các thanh:

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

bạn có thể xem đầu ra ở đây .

Tôi nghĩ rằng tôi đang yêu cầu một cái gì đó tầm thường. Tôi muốn các nhãn văn bản "theo sau" các thanh xếp chồng lên nhau. Các nhãn được đặt chính xác trên trục y, nhưng làm thế nào để định vị chúng chính xác trên trục x?

Đây có phải là những gì bạn muốn?

ggplot(bar) + 
  geom_bar(aes(variable, `(all)`, fill = ustanova), position = "dodge") +
  geom_text(aes(variable, `(all)`, label = sprintf("%2.1f", `(all)`)), 
            position = position_dodge(width = 1)) + 
  coord_flip()

Phím đang sử dụng position = position_dodge(width = 1)thay vì position = "dodge"chỉ là một phím tắt không có bất kỳ tham số nào.

Trong ggplot2_2.0.0bạn tìm thấy một số ví dụ trong ?geom_textvề cách vị trí geom_texttrên thanh lẩn tránh hoặc xếp chồng lên nhau (các đoạn mã được đặt tên " # Aligning labels and bars"). Q & A đối số chiều rộng trong position_dodge là gì? Cung cấp một mô tả kỹ hơn về chủ đề này.