一种方法是用apply函数，这里需要设置截断值trim,结果不是很精确，还有一种办法是动手写函数，用for 循环。例如
n=length(temp$date)
for (i in 1:n){if(temp[i,1]>"2010-02-01") temp2[i,]= temp[i,]}

首先，数据最好需要Date格式
start <- as.Date("2011-01-01")
end <- as.Date("2012-05-01")

如果日期是 Date 格式而不是字符格式，那可以直接 subset
比如  subset(data, date < start & date > end)

如果不是，那么先转换成Date格式，这个要看数据里面date什么format存在，比如 "11/12/2011"
可以用 data$date <- as.Date(data$date, "%d/%m/%Y")

然后再subset