R语言获取特定时间段的数据

获取特定时间段的表格数据方法：

1. 方法一：正则表达式
data <- read.csv('F:/data.csv')
date <- as.Date(data$Date)
#获取2018-3-1到2018-3-10之间的第3-5列数据
subT <- date[(format(date,format = "%Y")=="2018"&as.numeric(format(date,format =             
      "%m"))=="3" &as.numeric(format(date,format = "%d"))>=1&as.numeric(format(date,format 
      = "%d"))<=10),3:5]
#对2018-3-1到2018-3-10之间第3-5列的数据进行按列求平均值
mean <-  apply(subT,2, mean)

2. 方法二：
date1 <- as.POSIXct(paste("2018-3-1","08:00:00"))
date2 <- as.POSIXct(paste("2018-3-1","17:00:00"))
int <- interval(date1, date2)
#获取2018-3-1 08:00:00到2018-3-1 17:00:00之间的第3-5列数据
subT <- data[ymd_hms(data$Date) %within% int,3:5]

注意：1. within判断数据是否在该时间段之内，其中包括起始时间，不包括末尾时间。

            2.paste0(num_year[y],'_',m,'_1')  实现字符串的合并，其中m，num_year[y]为变量。

               paste拼接时有空格，paste0无空格