R - DPLYR 软件包中带有 mutate_at() 的警告消息

Question

我在软件包中使用mutate_at()时收到dplyr警告消息。

dt %>% 
mutate_at(
c(5:43),
funs(pc = ./Population)
)

Warning message:
funs() is soft deprecated as of dplyr 0.8.0
Please use a list of either functions or lambdas: 
# Simple named list: 
list(mean = mean, median = median)
# Auto named with `tibble::lst()`: 
tibble::lst(mean, median)
# Using lambdas
list(~ mean(., trim = .2), ~ median(., na.rm = TRUE))
This warning is displayed once per session. 

有没有替代功能？
我如何使用data.table传递它。

Answer 1

对于最新版本的dplyr，这将是list

library(dplyr)
dt %>% 
mutate_at(5:43,
list(pc = ~ ./Population))

可重现的示例

head(mtcars) %>%
mutate_at(4:5, list(pc = ~ ./wt))
#    mpg cyl disp  hp drat    wt  qsec vs am gear carb    hp_pc   drat_pc
#1 21.0   6  160 110 3.90 2.620 16.46  0  1    4    4 41.98473 1.4885496
#2 21.0   6  160 110 3.90 2.875 17.02  0  1    4    4 38.26087 1.3565217
#3 22.8   4  108  93 3.85 2.320 18.61  1  1    4    1 40.08621 1.6594828
#4 21.4   6  258 110 3.08 3.215 19.44  1  0    3    1 34.21462 0.9580093
#5 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2 50.87209 0.9156977
#6 18.1   6  225 105 2.76 3.460 20.22  1  0    3    1 30.34682 0.7976879

警告消息是一个友好的警告，没有什么可担心的

---

在data.table中，我们在.SDcols中指定它

library(data.table)
setDT(dt)[, paste0(names(dt)[5:43], "_pc") := 
lapply(.SD, function(x) x/Population), .SDcols = 5:43]

---

或使用base R

nm1 <- names(dt)[5:43]
dt[paste0(nm1, "_pc")] <- lapply(dt[nm1], `/`, dt[["Population"]])

或直接

dt[paste0(nm1, "_pc")] <- dt[nm1]/dt[["Population"]]