R geom_bar и метки facet_grid на верхней части столбцов

Question

Я пытаюсь сделать этот график лучше, и я застрял с метками (цифры в данном случае).Как я могу сделать так, чтобы они отображались в верхней части панели корреспондентов?Обратите внимание, что это facet_grid.У меня есть следующий код и вывод:

ggplot(articles_europaoccidental_sex_count_unique_group, aes(Country, percentage)) + geom_bar(stat = "identity", position = "dodge", aes(fill=Gender)) + 
    facet_grid(~Propuesta) + geom_text(aes(label = round(percentage, 2)), position = position_dodge(width = 0.9), vjust = -1)

Спасибо!

Answer 1

Вы почти у цели, просто вам нужно переместиться aes(fill=Gender) внутрь ggplot

library(tidyverse)
#Reproducible data set
test_mtcars <- mtcars %>% group_by(cyl,am, gear) %>% summarise(mean = mean(mpg))

ggplot(test_mtcars, aes(as.factor(cyl), mean, fill=as.factor(am))) + geom_bar(stat = "identity", position = "dodge") + 
facet_grid(~gear) + geom_text(aes(label = round(mean, 2)), position = position_dodge(width = 0.9), vjust = -1)