r - 设置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))

我希望标签是白色背景和黑色字体，但是当我添加 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) 移动到 geom_bar 内的 aes()
2. 在 geom_label 中设置 group = factor(day)

如图所示:

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))