[英]R rename multiple columns with wildcard with rename_with()
圖書館(整潔的宇宙)
我想重命名一堆列,我嘗試在 R 中使用 rename_at() 或 rename_with() 但收效甚微,有人可以幫忙嗎? 非常感謝您的幫助。
原始數據框列名
tibble(
AAA_BBB1_P1_Elev = as.double(),
AAA_BBB2_P2_Elev = as.double(),
AAA_BBB2_P3_Elev = as.double()
)
想要將列名更改為
tibble(
`BBB1-P1E` = as.double(),
`BBB1-P2E` = as.double(),
`BBB1-P3E` = as.double()
)
我們可以使用rename_all
和str_replace
library(dplyr)
library(stringr)
tbl2 <- tbl1 %>%
rename_all(~ str_replace_all(str_replace(., '^[^_]+_(.*)_(.)[^.]+$', "\\1\\2"), '_', "-"))
-輸出
tbl2
# A tibble: 0 x 3
# … with 3 variables: `BBB1-P1E` <dbl>, `BBB2-P2E` <dbl>, `BBB2-P3E` <dbl>
tbl1 <- structure(list(AAA_BBB1_P1_Elev = numeric(0), AAA_BBB2_P2_Elev = numeric(0),
AAA_BBB2_P3_Elev = numeric(0)), row.names = integer(0), class = c("tbl_df",
"tbl", "data.frame"))
受 akrun 回答的啟發,我想出了一個變通辦法……
remove <- c("AAA_BBB[0-9]_", "lev", "_")
tibble(
AAA_BBB1_P1_Elev = as.double(),
AAA_BBB2_P2_Elev = as.double(),
AAA_BBB2_P3_Elev = as.double()
) %>%
rename_all(~ str_remove_all(., paste(remove, collapse = "|"))) %>%
rename_at(vars(ends_with("E")), ~ paste0("BBB1-", .x))
# A tibble: 0 x 3
# ... with 3 variables: BBB1-P1E <dbl>, BBB1-P2E <dbl>, BBB1-P3E <dbl>
基本 R 選項:
names(df) <- sub('\\w+_(\\w+)_(\\w+)_.*', '\\1-\\2E', names(df))
names(df)
#"BBB1-P1E" "BBB2-P2E" "BBB2-P3E"
我有一個類似的問題。 兩次接受測試的人的數據如下
Data %>%
select(Identifier, contains('eq5d'),-EQ5D3L_Combined) %>%
names()
它給出了這個名單。
“標識符” “EQ5D3L_Item_1” “EQ5D3L_Item_2”
“EQ5D3L_Item_3” “EQ5D3L_Item_4” “EQ5D3L_Item_5”
“EQ5D3L_VAS” “EQ5D3L_Item_1_2” “EQ5D3L_Item_2_2” “EQ5D3L_Item_3_2” “EQ5D3L_Item_4_2” “EQ5D3L_Item_5_2” “EQ5D3L_VAS_2”
'_2' 是第二次測量事件,我需要將 '_1' 放在第一個事件的變量末尾。
為了解決這個問題,我使用了 rename_with 如下
Data %>%
select(Identifier, contains('eq5d'),-EQ5D3L_Combined) %>%
rename_with(~ifelse(!str_ends(.x,'[0-9]'),
str_c(.x,'_1'),
.x)) %>%
names()
!str_end 挑選出不以數字結尾的變量名稱,作為邏輯向量。 ifelse 僅將 rename_with 應用於未以數字結尾的那些,而 str_c 將“_1”添加到那些 - 所以我現在為簡單的 pivot_longer 正確命名了我的變量。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.