获取特定时间段的表格数据方法:
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无空格