如何将R数据框中首列含目标内容的指定行设为列名？

我们需要处理这样的场景：给定一个数据框，要把第一列以指定关键词开头的行设置为新的列名，同时删除该行。目标行的位置（比如第2行、第5行）以及关键词（比如示例中的"Company"、其他场景的"Investment"等）会随不同数据框变化。

示例数据框 #

# 构造示例数据框
my_df <- structure(list(
  X1 = c("", "Company #", "Investments:"),
  X2 = c("", "Type", ""),
  X3 = c("", "Reference", ""),
  X4 = c(NA_real_, NA_real_, NA_real_),
  X5 = c("", "Footnotes", ""),
  X6 = c(NA_character_, NA_character_, NA_character_)
), row.names = c(NA, 3L), class = "data.frame")

# 原始数据框打印结果
print(my_df)

原始输出：

X1             X2       X3        X4       X5       X6
    <chr>              <chr>    <chr>      <dbl>   <chr>    <chr>
1                                           NA               NA
2   Company #           Type   Reference    NA   Footnotes   NA
3   Investments:                            NA               NA

实现步骤与代码 #

核心思路 #

1. 定位目标行：通过正则匹配第一列中以指定关键词开头的行，获取其行号
2. 将目标行内容设为数据框列名
3. 删除目标行，保留有效数据

完整代码 #

# 1. 定位第一列以"Company"开头的行号
row_number <- which(grepl("^Company", my_df$X1))

# 2. 将目标行设置为数据框列名
names(my_df) <- my_df[row_number, ]

# 3. 删除目标行
my_df <- my_df[-row_number, ]

# 查看处理后的结果
print(my_df)

处理后的期望输出 #

Company #   Type   Reference    NA   Footnotes    NA
    <chr>           <chr>   <chr>      <dbl>   <chr>    <chr>
3   Investments:                         NA              NA

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