Используя ggplot2 1.0.0
, я выполнил инструкции, приведенные в нижеприведенной статье, чтобы выяснить, как построить графики процентных баров по всем факторам:
Сумма процентов для каждой грани - уважение "заполнение"
test <- data.frame(
test1 = sample(letters[1:2], 100, replace = TRUE),
test2 = sample(letters[3:8], 100, replace = TRUE)
)
library(ggplot2)
library(scales)
ggplot(test, aes(x= test2, group = test1)) +
geom_bar(aes(y = ..density.., fill = factor(..x..))) +
facet_grid(~test1) +
scale_y_continuous(labels=percent)
Однако при использовании geom_text
я не могу получить ярлык для общего счета или процента над каждым из графиков.
Какое правильное дополнение к вышеуказанному коду, который также сохраняет процентную ось y?