通过scale_x_date()和ggplot2创建具有月x轴的年度图

时间:2016-10-04 20:16:59

标签: r ggplot2 lubridate

考虑以下数据:

library(ggplot2)
library(lubridate)

date <- seq.Date(ymd("2015-01-01"), Sys.Date(), by = "day")

df <- data.frame(date = date,
                 value = seq_along(date) + rnorm(length(date), sd = 100))

# Add yday and year
df$yday <- yday(df$date)
df$year <- year(df$date)

head(df)
#         date value yday year
# 1 2015-01-01    97    1 2015
# 2 2015-01-02    89    2 2015
# 3 2015-01-03    68    3 2015
# 4 2015-01-04    57    4 2015
# 5 2015-01-05    70    5 2015
# 6 2015-01-06   100    6 2016

我想做一年一年的&#34;&#34;分配给年份的颜色的情节。我可以用以下方法做到这一点:

ggplot(df, aes(x = yday, y = value, color = factor(year))) +
  geom_line()

Plot

但这导致x轴在一年中的某一天&#34;而不是月份标签。添加+ scale_x_date()失败,因为yday不再是日期。

是否可以使用scale_x_date()

在一天结束时,我想做这样的事情:

ggplot(df, aes(x = date, y = value, color = factor(year))) +
  geom_line() +
  scale_x_date(date_labels = "%b")

但要保持岁月和#34;堆积&#34;在同一个地块上。

1 个答案:

答案 0 :(得分:8)

这个黑客怎么样:我们不关心yday来自哪一年,所以只需将其转换回Date格式(在这种情况下,年份将始终是1970年,无论实际情况如何给定yday来自的年份)并仅显示x轴标签的月份。

您实际上不需要在数据框中添加ydayyear列,因为您可以在ggplot调用中动态创建它们。

ggplot(df, aes(x = as.Date(yday(date), "1970-01-01"), y = value, 
               color = factor(year(date)))) +
  geom_line() +
  scale_x_date(date_breaks="months", date_labels="%b") +
  labs(x="Month",colour="") +
  theme_bw()

可能有一种更清洁的方式,希望有更熟练的R约会的人会出现并提供它。

enter image description here