在R中，如何將一串文本添加到列名？-有解無憂

我想在資料框中的列名末尾添加一串文本。我該怎么做呢？

示例資料（我想將列名A, B, C, D,更改E為Atext, Btext, Ctext, Dtext, Etext）：

df <- structure(list(User_ID = 1:4, A = c(0.815353067, 0.698314902, 0.774619233, 0.949620322),
                      B = c(0.684046246, 0.427028078, 0.579449798, 0.977426626),
                      C = c(0.101562005, 0.943064479, 0.19946195, 0.70068721),
                      D = c(0.525384365, 0.638082727, 0.651924335, 0.112375646), 
                      E = c(0.415664129, 0.006406548, 0.85036104, 0.510504667)),
                class = "data.frame", row.names = c(NA, -4L))

uj5u.com熱心網友回復：

使用grep查找字母名稱的列，以及paste以連接字串text的結尾：

names.change <- grep("^[A-Z] $", names(df))
names(df)[names.change] <- paste0(names(df)[names.change], "text")
df

  User_ID     Atext     Btext     Ctext     Dtext       Etext
1       1 0.8153531 0.6840462 0.1015620 0.5253844 0.415664129
2       2 0.6983149 0.4270281 0.9430645 0.6380827 0.006406548
3       3 0.7746192 0.5794498 0.1994619 0.6519243 0.850361040
4       4 0.9496203 0.9774266 0.7006872 0.1123756 0.510504667

uj5u.com熱心網友回復：

我更喜歡它的單線dplyr::rename_with：

library(dplyr)

df %>% rename_with(~paste0(., "Text"), grep("^[A-Z]$", names(.)))

輸出：

  User_ID     AText     BText     CText     DText       EText
1       1 0.8153531 0.6840462 0.1015620 0.5253844 0.415664129
2       2 0.6983149 0.4270281 0.9430645 0.6380827 0.006406548
3       3 0.7746192 0.5794498 0.1994619 0.6519243 0.850361040
4       4 0.9496203 0.9774266 0.7006872 0.1123756 0.510504667

uj5u.com熱心網友回復：

這是一個基本的 R 解決方案，沒有grepl：

colnames(df)[-1] <- paste0(colnames(df)[-1], "text")

輸出：

  User_ID     Atext     Btext     Ctext     Dtext       Etext
1       1 0.8153531 0.6840462 0.1015620 0.5253844 0.415664129
2       2 0.6983149 0.4270281 0.9430645 0.6380827 0.006406548
3       3 0.7746192 0.5794498 0.1994619 0.6519243 0.850361040
4       4 0.9496203 0.9774266 0.7006872 0.1123756 0.510504667

uj5u.com熱心網友回復：

我也會使用rename_with. 但我認為我們可以使用該.cols引數，因此我們可以在呼叫之前包含一個選擇助手rename_with，從而無需grep.

df %>% rename_with(.cols=matches('[A-E]'), ~paste0(.x, 'text'))

如果所選列始終為 AZ，則選擇可能更簡單：

df %>% rename_with(~paste0(.x, 'text'), A:E)

輸出

  User_ID     Atext     Btext     Ctext     Dtext       Etext
1       1 0.8153531 0.6840462 0.1015620 0.5253844 0.415664129
2       2 0.6983149 0.4270281 0.9430645 0.6380827 0.006406548
3       3 0.7746192 0.5794498 0.1994619 0.6519243 0.850361040
4       4 0.9496203 0.9774266 0.7006872 0.1123756 0.510504667

轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/343012.html

標籤：r 细绳改名

上一篇：為什么這個產品不產生pi值？

下一篇：echarts4r上的瀑布圖？