如何重命名在 r 中使用 str_detect 找到的列？

Question

我想从数据框中替换一个列名，以便我可以更新该列中的值。但是，如果有人可以告诉我如何做到这一点，我愿意接受其他更好的方法来做到这一点。

查找以 Org 开头并以 Type 结尾的列名。有时不同来源的数据框可能有不同的列名。另外，最好让它不区分大小写**

org_type_col <- names(assessment) %>% str_subset("(Org)(.*)(Type)") 
assessment <- assessment %>% setNames(org_type_col = "OrgType")

但这是我遇到错误的地方。我得到的错误是这样的：

Error in setNames(., org_type_col = "OrgType") : unused argument (org_type_col = "OrgType")

我想重命名该列，以便执行以下操作：

### Organization Type

assessment <- assessment %>% 
  add_column(OrganizationType = case_when(
(str_detect(.$OrgType, "Health")) ~ "Healthcare", 
(str_detect(.$OrgType, "Pharmaceuticals")) ~ "Pharmaceuticals",
(str_detect(.$OrgType, "Banking|Financial|Insurance")) ~ "Financial Services",
(str_detect(.$OrgType, "Computer|Telecommunication")) ~ "High-Tech",
(str_detect(.$OrgType, "Energy|Utilities")) ~ "Energy",
(str_detect(.$OrgType, "Education")) ~ "Education",
(str_detect(.$OrgType, "Government")) ~ "Government")) %>%
replace_na(list(OrgType = "Unknown"))

有没有更简单更好的方法来将它们全部结合起来？

Answer 1

在基础 R 中，您可以这样做：

names(assessment)[grepl('^Org.*Type$', names(assessment), ignore.case = TRUE)] <- 'OrgType'

如果您对tidyverse 解决方案感兴趣，可以尝试：

library(dplyr)
library(stringr)

assessment %>%
  rename_with(~str_detect(.,regex('^Org.*Type$', ignore_case = TRUE)), 'OrgType')