如何使用變數名作為引數重命名手動創建的函式中的列？
例如我的資料是：
df <- data.frame (model = c("A","A","A","B","B","B"),
category = c("z3","f4","c5","d3","g6","B6"),
sale = c(1001,1050,-300,-150,-25,960))
現在我想重命名函式內的“模型”列，并將列名指定為引數
chng <- function(x,var1){
x %>%
rename(
var1 = newname)
}
df2 <- chng(df,"model")
然而這不起作用
uj5u.com熱心網友回復：
我們可能需要扭轉它
chng <- function(x,var1){
x %>%
rename(
newname = all_of(var1))
}
-測驗
chng(df, "model")
newname category sale
1 A z3 1001
2 A f4 1050
3 A c5 -300
4 B d3 -150
5 B g6 -25
6 B B6 960
uj5u.com熱心網友回復：
另外的選擇：
chng <- function(x,var1){
names(x)[match(var1, names(x))] <- 'newname'
return(x)
}
df2 <- chng(df,"model")
df2
輸出：
newname category sale
1 A z3 1001
2 A f4 1050
3 A c5 -300
4 B d3 -150
5 B g6 -25
6 B B6 960
對于多列
您可以使用以下代碼：
chng <- function(x,var1,var2){
names(x)[match(c(var1, var2), names(x))] <- c('newname1', "newname2")
return(x)
}
chng(df, "model", "category")
輸出：
newname1 newname2 sale
1 A z3 1001
2 A f4 1050
3 A c5 -300
4 B d3 -150
5 B g6 -25
6 B B6 960
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/482206.html