x 轴作为周数，辅助 x 轴作为日期

大佬教程收集整理的这篇文章主要介绍了x 轴作为周数，辅助 x 轴作为日期，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

如何解决x 轴作为周数，辅助 x 轴作为日期？

我正在尝试在 ggplot 中绘制一个时间序列，其中主要 x 轴为数字，次要 x 轴为日期。这是我糟糕的尝试。

library(tIDyversE)

tibble::tribble(
  ~date,~ndvi,"2020-05-18",0.7655,"2020-06-14",0.723,"2020-07-12",0.6178,"2020-08-21",0.437,"2020-09-07",0.4763,"2020-09-10",0.4928,"2020-09-12",0.4831,"2020-09-22",0.4774,"2020-10-02",0.5794,"2020-10-07",0.606
) %>% 
  mutate(date = lubrIDate::ymd(datE),weeks = difftime(date,min(datE),units="weeks")) %>% 
  ggplot(aes(weeks,ndvi)) +
  geom_line()+
  scale_x_datetiR_673_11845@e(
    sec.axis = dup_axis(name = "",#breaks = date,labels = scales::time_format("%b")))

#> Error: InvalID input: time_trans works with objects of class POSIXct only

这是所需的输出，其中主 x 轴为周，次 x 轴为时间序列的月份

解决方法

library(tidyversE)

mydat <- tibble::tribble(
  ~date,~ndvi,"2020-05-18",0.7655,"2020-06-14",0.723,"2020-07-12",0.6178,"2020-08-21",0.437,"2020-09-07",0.4763,"2020-09-10",0.4928,"2020-09-12",0.4831,"2020-09-22",0.4774,"2020-10-02",0.5794,"2020-10-07",0.606
)  %>% 
  mutate(date = lubridate::ymd(datE),weeks = as.numeric(difftime(date,min(datE),units="weeks")))

 mydat %>%
  ggplot(aes(date,ndvi)) +
  geom_line() +
  scale_x_date(date_breaks = "4 weeks",labels = scales::date_format("%W"),sec.axis = dup_axis(name = "",labels = scales::date_format("%b")))

大佬总结

以上是大佬教程为你收集整理的x 轴作为周数，辅助 x 轴作为日期全部内容，希望文章能够帮你解决x 轴作为周数，辅助 x 轴作为日期所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。