это мой фрейм данных:
mydf <- structure(list(NOME = c(1, 1, 1, 1, 1), PLAYER.POSITION = c("Lateral",
"Lateral", "Lateral", "Lateral", "Lateral"), variables_bar = structure(5:1, .Label = c("ACCELERATIONS.Z6",
"ACCELERATIONS.Z5", "ACCELERATIONS.Z4", "ACCELERATIONS.Z3", "ACCELERATIONS"
), class = "factor"), value = c(185L, 111L, 49L, 22L, 3L)), row.names = c(NA,
-5L), class = c("tbl_df", "tbl", "data.frame"))
Это мой сюжет:
mydf %>% ggplot() + geom_col(aes(x = NOME, y = value, fill = variables_bar)) + geom_label(aes(x = NOME, y = value,label = value))
Метки должны быть в верхней части каждой полосы, но это не так.
Любая помощь ?
Попробуйте использовать geom_label(..., position = "stack")
, если вы хотите добавить метки к гистограмме с накоплением.
Ваш
NOME
- это всего лишь одно значение 1. Вам нужен x какvariables_bar
, т.е.mydf %>% ggplot(aes(x = variables_bar, y = value, fill = variables_bar)) + geom_col() + geom_label(aes(label = value))