汇总名称在data.table中具有特定模式的列

library(data.table)

# 创建一个示例data.table
dt <- data.table(
  col1 = c(1, 2, 3),
  col2 = c(4, 5, 6),
  col3 = c(7, 8, 9),
  column4 = c(10, 11, 12)
)

# 使用grep()函数查找具有特定模式的列
pattern <- "col"  # 模式为以"col"开头的列名
matching_cols <- grep(pattern, names(dt), value = TRUE)

# 输出匹配的列名
print(matching_cols)

[1] "col1"   "col2"   "col3"   "column4"