x轴日期上的R位移标度具有不连续的时间序列

问题描述

我有从每年一月到十二月的连续两年（2017-2018）的时间序列数据。然后我需要绘制从9月17日到4月18日的数据。

我可以用非常手工制作的代码来做，但是我意识到可以做到使用当今可用的软件包非常简单的方法来管理地块上的日期（软件包刻度，润滑等）。

有人可以帮我简化我的工作吗？做第二个情节？
我真的会很感激。

  preventWarnings （suppressMessages（library（ tidyverse，悄悄地= T）））
 
 
 dat<-tibble（
 date = seq（as.Date（ 2017-01- 01），as.Date（ 2018-12-31），by = 1），
 var = rgamma（length（date），shape = 2，scale = 2））％>％
 mutate（年= lubridate ::年（日期），
 month = lubridate ::月（日期），
朱利安= lubridate :: yday（日期））
 dat 
＃> ＃小动作：730 x 5 
＃> date var year month julian 
＃> < date> < dbl> < dbl> < dbl> < dbl> 
＃> 1 2017-01-01 12.9 2017 1 1 
＃> 2 2017-01-02 6.69 2017 1 2 
＃> 3 2017-01-03 6.11 2017 1 3 
＃> 4 2017-01-04 1.68 2017 1 4 
＃> 5 2017-01-05 1.22 2017 1 5 
＃> 6 2017-01-06 10.2 2017 1 6 
＃> 7 2017-01-07 5.13 2017 1 7 
＃> 8 2017-01-08 4.61 2017 1 8 
＃> 9 2017-01-09 3.79 2017 1 9 
＃> 10 2017-01-10 1.11 2017 1 10 
＃> ＃…有720多行
 
 dat％&％;％
 ggplot（）+ 
 geom_line（aes（julian，var，color = factor（month），linetype = factor（年）））
  

  dat％>％
 filter（（ year == 2017& month％in％c（ 9， 10， 11， 12））| 
（year == 2018& month％in％c（ 1 ， 2， 3）））％>％
 mutate（julian_AWS = ifelse（julian> = 244，julian-243，julian + 123））％> %% b $ b ggplot（） + 
 geom_line（aes（julian_AWS，var，color = factor（month），linetype = factor（year）））+ 
 scale_x_continuous（breaks = c（1，＃S 
 31，＃ O 
 61，＃N 
 91，＃D 
 121，＃E 
 151，＃F 
 181），＃M 
 la bels = c（ Sep， Oct， Nov， Dec， Jan， Feb， Mar））+ 
主题（axis.text.x = element_text（hjust = -1））
  

解决方案

I don't think you need to delve into the julian date formats. See if this gets you what you need:

dat %>%
filter(date >= '2017-09-01', date < '2018-04-01') %>% 
ggplot() +
  geom_line(aes(date, var, color = factor(month), linetype = factor(year))) +
  scale_x_date(date_breaks = "1 month", date_labels = "%b") +
  theme(axis.text.x = element_text(hjust = -1))

For more info on date label formats, see ?strftime

这篇关于x轴日期上的R位移标度具有不连续的时间序列的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！