如何在R中使用dplyr按指定日期提取时间序列像素数据

• 核心逻辑是用dplyr的filter()结合%in%运算符筛选日期在目标集合内的所有行
• 优先统一将日期转换为Date类型，避免字符串格式差异（比如前导零、多余空格）导致匹配失败
• 读取目标日期csv时如果没有表头，要加header=FALSE参数，避免第一个日期被识别为列名

完整可运行代码 #

library(dplyr)

# 构造示例数据
X = c("X1", "X2", "X3", "X1", "X2", "X3", "X1", "X2", "X3")
Y = c("Y1", "Y2", "Y3", "Y1", "Y2", "Y3", "Y1", "Y2", "Y3")
T = c("1/1/2004", "1/2/2004", "1/3/2004", "1/1/2004", "1/2/2004", "1/3/2004","1/1/2004", "1/2/2004", "1/3/2004")
Value = c("1", "2", "3", "4", "5", "6", "7", "8", "9")
df = data.frame(X, Y, T, Value)

# 读取目标日期，无表头则加header=FALSE
TS = read.csv("TS.csv", header = FALSE)

# 统一转换日期格式，format参数根据你实际的日期字符串格式调整
df <- df %>%
  mutate(T = as.Date(T, format = "%m/%d/%Y"))
TS <- TS %>%
  mutate(V1 = as.Date(V1, format = "%m/%d/%Y")) # V1是read.csv无表头时默认的第一列列名

# 筛选匹配的行
df_filtered <- df %>%
  filter(T %in% TS$V1)

如果确认日期字符串格式完全一致，不需要转Date类型可以直接简化：

df_filtered <- df %>%
  filter(T %in% TS[[1]])

输出结果示例 #

X  Y          T Value
1 X1 Y1 2004-01-01     1
2 X2 Y2 2004-01-01     2
3 X3 Y3 2004-01-01     3
4 X1 Y1 2004-01-02     4
5 X2 Y2 2004-01-02     5
6 X3 Y3 2004-01-02     6

内容的提问来源于stack exchange，提问作者Ed_Gravy