绘图时R的极限日期范围

Question

我试图绘制我的data.frame（为方便起见，我们称它们为data$Date,data$x）的两列。

当绘制data$x我想限制自己从2014-01-01以后的数据。做这件事的正确方法是什么？

Answer 1

你可以先放你Date列日期与strptime，然后你的子集来data.frame只保留日期发布2014年1月1日：

data$Date <- strptime(data$Date, format="%y%y-%m-%d") 
plot(data$Date[data$Date > strptime("2014-01-01", format="%y%y-%m-%d")], data$x[data$Date > strptime("2014-01-01", format="%y%y-%m-%d")], las=1, pch=19, xlab="Date post 01/01/2014", ylab="") 

例

data <- data.frame(Date=c("2013-02-03","2013-12-13","2014-02-02","2014-05-05"), x=1:4, stringsAsFactors=F) 

编辑
如果您需要绘制多个“x”，您可以先使用plot，然后使用points。您可以调整x axis与axis.POSIXct：

data <- data.frame(Date=c("2013-02-03", "2013-12-13", "2014-02-02", "2014-05-05", "2015-04-14"), x1=rep(1, 5), x2=rep(2, 5), stringsAsFactors=F) 
data$Date <- strptime(data$Date, format="%y%y-%m-%d") 
plot(data$Date[data$Date > strptime("2014-01-01", format="%y%y-%m-%d")], data$x1[data$Date > strptime("2014-01-01", format="%y%y-%m-%d")], las=1, pch=19, col="red", xlab="Date post 01/01/2014", ylab="", xaxt="n", ylim=c(0,3)) 
points(data$Date[data$Date > strptime("2014-01-01", format="%y%y-%m-%d")], data$x2[data$Date > strptime("2014-01-01", format="%y%y-%m-%d")], pch=19, col="blue") 
axis.POSIXct(1, at=seq(strptime("2014-02-01",format="%y%y-%m-%d"),strptime("2015-04-01",format="%y%y-%m-%d"), by = "month"), format = "%m/%y")