R 中的列选择 [已关闭]

问：

我正在 R 中处理细菌生长，我遇到麻烦的代码部分是选择与细菌菌株相对应的列并执行一系列功能。也就是说，代码遍历文件中的列，当它找到对应于菌株的列（APC 或 DPC 加上 4 位数字，例如 DPC 1573）时，它会选择以该模式开头的所有列（包括稀释度，例如 DPC 1573 10^-2）。但是，它仅选择具有模式 （DPC 1573） 的列。

od_data <- suppressMessages(read_excel("C:/Users/Usuario/Desktop/practicas UOC/31082022 pH 9 3574 3575 3577 3581.xlsx"))  |> 
  mutate(h = hour(Time), m = minute(Time), t = h + m/60)

for (col_name in colnames(od_data)) {
  # Strain pattern
  if (grepl("^(APC|DPC) \\d{4}", col_name) & !grepl("10\\^-\\d", col_name)) {
    # If a match is found, select all columns that start with the same name
    d <- od_data |> 
      select(t, starts_with(col_name))

#Rest of the code

   }
}

这是数据框的一部分 我正在与以下人员合作：

# A tibble: 6 x 101
  Time                `T° 600` `DPC 3574...3` `DPC 3574 10^-1...4` `DPC 3574 10^-2...5` `DPC 3574 10^-3...6` `DPC 3574 10^-4...7`
  <dttm>                 <dbl>          <dbl>                <dbl>                <dbl>                <dbl>                <dbl>
1 1899-12-31 00:00:00     37            0.148                0.147                0.146                0.135                0.134
2 1899-12-31 00:10:00     37            0.125                0.118                0.117                0.114                0.116
3 1899-12-31 00:20:00     36.9          0.125                0.119                0.116                0.114                0.116
4 1899-12-31 00:30:00     36.9          0.125                0.118                0.116                0.113                0.116
5 1899-12-31 00:40:00     37            0.126                0.119                0.116                0.114                0.116
6 1899-12-31 00:50:00     37            0.126                0.119                0.116                0.113                0.116