以字符为 x 轴绘制多条线

Question

我有一个跨越数年的每日时间序列。我想在同一个 graf 上为每一年绘制一个情节。

所以，我有一年中的所有日期，格式为 %m-%d，每年都有一个点。

数据示例：

require(dplyr)
require(ggplot2)

df <- data.frame(Date = seq.Date(from = as.Date("2013-01-01"), 
                                 to = as.Date("2016-10-01"), by = "day"), 
                 xv = rnorm(1370))

# First I add my x-axis (Days) and my factor variable (Year)
df <- df %>% mutate(Year = format(Date, "%Y"), 
                    Days = format(Date, "%m-%d")) %>% select(Date, Year, Days, xv)

基本上它应该像这样排序：（除了年份不应该在 x 轴上）

现在，我可以轻松地绘制多面图，但这包含下一年的空白空间，这是我不想要的，而且我也非常希望同一图表上的所有线。

# Wrong faceted graph
ggplot(df, aes(x = Date, y = xv, group = Year, colour = Year)) + 
  geom_line() +
  facet_grid(.~Year)

我尝试了设置 group = 1 的变体，因此您可以使用字符/因子作为 x 变量进行绘图，但是您不能绘制超过一条线。数据可能包含缺失的变量或不完整的日期（闰年等）。我真的更喜欢 ggplot 解决方案。

Answer 1

您可以将facet_wrap 与scales = 'free_x' 结合使用：

ggplot(df, aes(x = Date, y = xv, group = Year, colour = Year)) + 
  geom_line() +
  facet_wrap(~Year, scales = 'free_x')