带有POSIXt x轴的geom_col（）中的ggplot2：geom_text（）

Question

当条形图的x轴是POSIXt元素时，我一直在试图弄清楚如何使用解here和here。

我想绘制平均风速每日预测并显示每个条形的平均速度。我创造了两个地块，一个是日常工作，另一个是日夜分离。问题发生在夜间和日期图中，当x轴为POSIXt时，似乎geom_text（）无法正确使用position_dodge（）参数。

require(lubridate)

data = seq.POSIXt(from=ymd_hm("2017-06-20 00:00"),to=ymd_hm("2017-06-29 00:00"),by=86400)

d_value=c(6.375, 5.875, 6.525, 6.200, 5.475, 4.075, 4.000, 6.200, 5.775, 6.425)
n_value=c(5.725, 5.700, 5.600, 5.750, 4.850, 3.750, 4.025, 7.225, 6.450, 6.100)
t_value=c(6.0500, 5.7875, 6.0625, 5.9750, 5.1625, 3.9125, 4.0125, 6.7125, 6.1125, 6.2625)

d_df = data.frame(data=data,value=d_value,key1="d",key2=1)
n_df = data.frame(data=data,value=n_value,key1="n",key2=1)
t_df = data.frame(data=data,value=t_value,key1="t",key2=2)

df = rbind(d_df,n_df,t_df)

ggplot(data=df)+
geom_col(aes(x=data,y=value,fill=key1), position="dodge",color="black")+
geom_text(aes(x=data,y=value+0.2,label=sprintf("%.1f",value)), vjust=2,col="black",position = position_dodge(width =0.9))+
facet_wrap(~key2,nrow=2)

结果：

编辑：来自：How to set Bin Width With geom_bar stat="identity" in a time Series plot?

实际上，width = 0.9表示POSIXt轴为0.9秒。设置position_dodge（width = 86400）给出：