R语言对于mutate()中已弃用的.data[[ ]]，推荐的替代方案是什么？

r1zk6ea1 于 2023-06-03 发布在其他

关注(0)|答案(3)|浏览(242)

从tidyselect 1.2.0开始，.data[[ ]]的用法是now deprecated。
现在我想知道如何在使用具有目标列的列名的向量时为列别名。
我以前做的事：

mycolname <- 'cyl'
mtcars %>% mutate(newcol = .data[[mycolname]]) %>% head()
#                   mpg cyl disp  hp drat    wt  qsec vs am gear carb newcol
#Mazda RX4         21.0   6  160 110 3.90 2.620 16.46  0  1    4    4      6
#Mazda RX4 Wag     21.0   6  160 110 3.90 2.875 17.02  0  1    4    4      6
#Datsun 710        22.8   4  108  93 3.85 2.320 18.61  1  1    4    1      4
#Hornet 4 Drive    21.4   6  258 110 3.08 3.215 19.44  1  0    3    1      6
#Hornet Sportabout 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2      8
#Valiant           18.1   6  225 105 2.76 3.460 20.22  1  0    3    1      6

我尝试的是：

mtcars %>% mutate(newcol = across(.cols = all_of(mycolname), ~.x)) %>% head()
#                    mpg cyl disp  hp drat    wt  qsec vs am gear carb                                       newcol
# Mazda RX4         21.0   6  160 110 3.90 2.620 16.46  0  1    4    4      \033[38;5;246m# A tibble: 6 × 1\033[39m
# Mazda RX4 Wag     21.0   6  160 110 3.90 2.875 17.02  0  1    4    4                                          cyl
# Datsun 710        22.8   4  108  93 3.85 2.320 18.61  1  1    4    1   \033[3m\033[38;5;246m<dbl>\033[39m\033[23m
# Hornet 4 Drive    21.4   6  258 110 3.08 3.215 19.44  1  0    3    1                \033[38;5;250m1\033[39m     6
# Hornet Sportabout 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2                \033[38;5;250m2\033[39m     6
# Valiant           18.1   6  225 105 2.76 3.460 20.22  1  0    3    1                \033[38;5;250m3\033[39m     4
# Warning message:
# In format.data.frame(if (omit) x[seq_len(n0), , drop = FALSE] else x,  :
#   corrupt data frame: columns will be truncated or padded with NAs

来源：https://stackoverflow.com/questions/76372058/what-is-the-recommended-alternative-for-the-deprecated-data-in-mutate

3条答案

按热度按时间

yqlxgs2m1#

引用莱昂内尔的话：
.data在mutate()中不建议使用。它只在整洁的选择中被弃用，例如。例如select(...)或pivot_longer(cols = )。

赞(0）回复(0）举报 2023-06-03

wqsoz72f2#

我看到get()在这种情况下工作

mycolname <- 'cyl'
mtcars %>% mutate(newcol = get(mycolname)) %>% head()
#                   mpg cyl disp  hp drat    wt  qsec vs am gear carb newcol
#Mazda RX4         21.0   6  160 110 3.90 2.620 16.46  0  1    4    4      6
#Mazda RX4 Wag     21.0   6  160 110 3.90 2.875 17.02  0  1    4    4      6
#Datsun 710        22.8   4  108  93 3.85 2.320 18.61  1  1    4    1      4
#Hornet 4 Drive    21.4   6  258 110 3.08 3.215 19.44  1  0    3    1      6
#Hornet Sportabout 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2      8
#Valiant           18.1   6  225 105 2.76 3.460 20.22  1  0    3    1      6

赞(0）回复(0）举报 2023-06-03

yrdbyhpb3#

这些工作：

library(dplyr)
mycolname <- "cyl"

# 1
mtcars %>% mutate(newcol = !!as.name(mycolname)) %>% head()

# 2
mtcars %>% mutate(newcol = !!sym(mycolname)) %>% head()

# 3
mtcars %>% mutate(newcol = pick(everything())[[mycolname]]) %>% head()

更新

修好了

赞(0）回复(0）举报 2023-06-03

我来回答

R语言对于mutate()中已弃用的.data[[ ]]，推荐的替代方案是什么？

3条答案

更新

相关问题

热门标签

最新问答

R语言 对于mutate()中已弃用的.data[[ ]]，推荐的替代方案是什么？

3条答案

更新

相关问题

热门标签

最新问答

R语言对于mutate()中已弃用的.data[[ ]]，推荐的替代方案是什么？