Я использую ggplot2 для создания столбчатой диаграммы с отрицательными значениями и пытаюсь добавить сумму частей в виде метки в верхней части каждого столбца.Код отлично работает для баров без отрицательных значений, но метка, когда присутствует отрицательное значение, остается внутри бара.
Пример:
test = c("Test1", "Test1", "Test1", "Test2", "Test2", "Test2", "Test3", "Test3", "Test3")
student = c("A", "B", "C", "A", "B", "C", "A", "B", "C")
value = c(5,5,5,3,3,3,-2,6,7)
dummy = data.frame(test, student, value)
g = ggplot(data=dummy, aes(x=student, y=value, fill=test)) +
geom_bar(stat="identity") +
scale_fill_manual(values=c("brown4", "steelblue", "goldenrod3")) +
geom_text(aes(label=value), size =3, position=position_stack(vjust=0.5), colour="white") +
theme_classic() +
theme(text=element_text(family="serif", size=15, colour="black")) +
theme(axis.title=element_text(family="serif", size=15, colour="black")) +
theme(legend.title = element_blank()) +
theme(legend.position = c(0.2, 0.7)) +
stat_summary(fun.y = sum, aes(label = ..y.., group = student), geom = "text", vjust = -1) +
scale_y_continuous(limits = c(-4,20))
g
В результате получается следующая диаграмма:
Сумма для столбцов без отрицательного значения отлично работает в верхней части столбца, но сумма для столбца с отрицательным значением (студент А) находится в середине красного столбца.
Как я могу это исправить?