使用R中的ggplot2进行时序图时，如何在x轴上正确缩放日期？

Question

#create the data 
library(ggplot2)
data <- data.frame(
  Date = c("2000", "2002", "2003", "2006",
       "2007", "2008", "2000", "2002",
       "2003", "2011", "2012", "2014"),
  EUR = c(1.0155, 1.0309, 1.0335, 1.0324, 1.0294, 1.0252, 1.0322,
      1.0281, 1.027, 1.0128, 1.0121, 1.0115),
  Company=c(rep(c(1),6),rep(c(2),6))
)

#check the data
str(data)

# convert date column to Date as it is currently a **factor**
data$Date <- as.Date(as.character(data$Date))

#basic plot
ggplot(data,aes(Date, EUR, colour=Company, group=Company)) + geom_line()+ geom_point()

从图中可以看出，2003年至2006年之间的空间与2011年至2012年之间的空间相同。有没有办法显示正确/按比例缩放的年份！

Answer 1

就像Rui指出的那样， data$Date实际上不是Date对象。 使用as.POSIXct()函数可以将您的初始字符值正确转换为POSIX时间。 然后scale_x_datetime()可以帮助格式化ggplot轴。

# use POSIXct() and specify format; see ?strptime() for help on formats
data$Date <- as.POSIXct(data$Date, format = "%Y")

# for plotting porpoises
data$Company <- as.factor(data$Company)

# now with scale_x_datetime to give sensical breaks and labels
ggplot(data,aes(Date, EUR, colour = Company)) +
    geom_line() + geom_point() +
    scale_x_datetime(date_breaks = "2 years", date_labels = "%Y")

如果要使所有点都与年刻度对齐，则需要在yearX的1月1日指定日期。 您可以使用以下代码代替原始的as.POSIXct()行：

data$Date <- as.POSIXct(paste0("01-01-", data$Date), format = "%m-%d-%Y")

小心不要两次运行as.POSIX()转换（选择一个），否则您将不喜欢所得到的。