如何解决将 POSICXT x 轴更改为选定标签
我有 19 天(9 月 11 日至 30 日)每 30 分钟采集一次温度数据,我想更改我的 x 轴标签以显示每天或每隔一天,并将其标记为“第 1 天”、“第 1 天” 3",(...),而不是仅按日期标记的三天(“9 月 14 日”),如下一个链接所示:温度图。
时间数据在 POSIXCT 类中。我附上了我使用的 ggplot 编码。我要离开 #scale_x_datetime 来展示我失败的解决方案之一。
hoboplot <- ggplot(hobo,aes(x=time,y=Temperatura,color=Tratamiento))+
geom_path(size=0.86)+
scale_color_manual(values=c("#2166AC","#92C5DE","#FDDBC7","#D6604D","#B2182B"))+
# scale_x_datetime(labels=c("1","3","5","7","9","11","13","15","17","19"),# breaks = c(1,3,5,7,9,11,13,15,17,19))+
theme_classic(base_size=18)+
labs(x="Días",y="Temperatura (°C)")+
geom_hline(yintercept=10,linetype="dashed",color = "#2166AC")+
geom_hline(yintercept=14,color = "#92C5DE")+
geom_hline(yintercept=18,color = "#FDDBC7")+
geom_hline(yintercept=22,color = "#D6604D")+
geom_hline(yintercept=26,color = "#B2182B")+
theme(legend.position = "right")+
guides(color=guide_legend(reverse=TRUE))
非常感谢您的帮助!
解决方法
尝试使用 -
+ scale_x_datetime(date_breaks = '2 days',labels = function(x) paste('Day',as.Date(x) - min(as.Date(x),na.rm = TRUE) + 1))
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。