r - 在ggplot中绘制具有不同日期的时间线的问题

Question

我正在绘制两个不同年份(07 和 08)的数据。这两年的日期略有不同，但是当我在 R 中绘制它时，我无法获取所有日期，R 将它们重新排列为降序，或者将它们一个接一个地拆分为两个不同的年份，中间有一个空格。

我需要将它们放在一起，其中一些日期略有偏差。

日期应该是:

data_07[,1]<-c("7/6","21/6","31/6","14/7","28/7","11/8","25/8","8/9")

data_08[,1]<-c("7/6","21/6","5/7","19/7","2/8","16/8","25/8","8/9")

我的脚本

data7 <- data.frame(
         Date = c("7/6","21/6","31/6","14/7","28/7","11/8","25/8","8/9"),
         variable = sample(c("Age 39-40", "Age 62-63"), 8, replace = TRUE),
         value = sample(1:8)
    )


data8 <- data.frame(
         Date = c("7/6","21/6","5/7","19/7","2/8","16/8","25/8","8/9"),
         variable = sample(c("Age 39-40", "Age 62-63"), 8, replace = TRUE),
         value = sample(1:8)
    )


p1<-ggplot(data7, 
    aes(x=Date, y=value, group=variable)) + 
    geom_point(size=2, shape = 15) +
    geom_line(linetype=1) +

    geom_line(data=data8, aes(x=Date, y=value, group=variable),linetype=2) +
    geom_point(data=data8, size=2, shape = 1)


 p1 + facet_wrap( ~ variable, nrow = 5, ncol = 1, scales= "fixed") +
    labs(x="Dates", y="Catches per 20 traps", title="") +
    theme(panel.grid.minor.y = element_blank(),
    panel.grid.major.y = element_blank())

感谢任何帮助和建议。谢谢!

丹尼尔

Answer 1

如果年份对于绘图不重要，我建议在数据中分配一个新列来指示年份，将所有日期转换为普通年份，然后将它们分组绘制。

library(dplyr)
library(ggplot2)
library(lubridate)

#* dates are initially stored in dd/mm format.
#* create a variable where year = 2007
#* turn all dates to dd/mm/2000
data_07 <- data.frame(date = c("7/6","21/6","31/6","14/7","28/7","11/8","25/8","8/9"),
                      y = rnorm(8),
                      stringsAsFactors=FALSE) %>%
  mutate(year = 2007,
         date = dmy(paste0(date,"/2000")))


data_08 <- data.frame(date = c("7/6","21/6","5/7","19/7","2/8","16/8","25/8","8/9"),
                      y = rnorm(8),
                      stringsAsFactors=FALSE) %>%
  mutate(year = 2008,
         date = dmy(paste0(date,"/2000")))

both_years <- bind_rows(data_07, data_08)

ggplot(data = both_years,
       mapping = aes(x = date,
                     y = y,
                     colour = factor(year))) + 
  geom_point() + 
  geom_line()