Набор ggplot2 этикетки цвет фона

Question

У меня есть этот бар сюжет

group = c("A","A","B","B") 
value = c(25,-75,-40,-76) 
day = c(1,2,1,2) 
dat = data.frame(group = group , value = value, day = day) 
dat 
ggplot(data=dat, aes(x=factor(group), y=value, fill=factor(day))) + 
    geom_bar(stat="identity", position="dodge")+ 
    geom_label(aes(label =round(value,0),fill="white"), 
    colour = "black", position= position_dodge(width=1)) 

Я хотел бы Lables быть белым Backgroud с черным шрифтом, но когда я добавляю fill="white" сюжет неверен. На этикетках нет белого фона с черным шрифтом.

Извещение здесь без fill="white" участок выглядит хорошо. Я просто хочу, чтобы изменить фон этикетки и шрифт

group = c("A","A","B","B") 
value = c(25,-75,-40,-76) 
day = c(1,2,1,2) 
dat = data.frame(group = group , value = value, day = day) 

ggplot(data=dat, aes(x=factor(group), y=value, fill=factor(day))) + 
    geom_bar(stat="identity", position="dodge")+ 
    geom_label(aes(label =round(value,0)),colour = "black", 
    position= position_dodge(width=1)) 

ТАКЖЕ ПРИМЕЧАНИЕ

Если я перееду fill="white" вне aes() то метки не за решеткой, но сложены друг на друга. то есть он отрицает эффект position=position_dodge(width=1), и мне нужны этикетки над стержнями

Спасибо.

Answer 1

сделать два изменения:

1. Перемещение fill = factor(day) в aes() в geom_bar
2. Набор group = factor(day) в вашем geom_label

Как показано здесь:

ggplot(data=dat, aes(x=factor(group), y=value)) + 
    geom_bar(aes(fill = factor(day)), stat="identity", position="dodge")+ 
    geom_label(aes(label =round(value,0), group = factor(day)),colour = "black", position= position_dodge(width=1))