在R中的lapply中使用paste0创建列名称

问题描述

我有一些数据：

myData <- mtcars %>%
  group_by(cyl) %>%
  group_map(~ head(.x,5L))

我正在使用lapply函数进行转换

myDatanew <- lapply(myData,function(x) {
   x <- transform(x,ratio = hp/gear)
   x <- filter(x,!carb == 2)
})

这一切正常且符合预期。但是，我想提供不同的列名称，以便每个新创建的列名称都将带有“标志”。

flag <- "calculation1"
myDatanew <- lapply(myData,function(x,flag) {
   x <- transform(x,paste0("ratio-",flag) = hp/gear)
   x <- filter(x,!carb == 2)
})

在这里，我了解到paste0（）函数在lapply（）内部不起作用。我如何实现预期的结果：

myDatanew
[[1]]
   mpg  disp hp drat   wt  qsec vs am gear carb ratio-calculation1
1 22.8 108.0 93 3.85 2.32 18.61  1  1    4    1 23.25
2 32.4  78.7 66 4.08 2.20 19.47  1  1    4    1 16.50

[[2]]
   mpg  disp  hp drat    wt  qsec vs am gear carb    ratio-calculation1
1 21.0 160.0 110 3.90 2.620 16.46  0  1    4    4 27.50000
2 21.0 160.0 110 3.90 2.875 17.02  0  1    4    4 27.50000
3 21.4 258.0 110 3.08 3.215 19.44  1  0    3    1 36.66667
4 18.1 225.0 105 2.76 3.460 20.22  1  0    3    1 35.00000
5 19.2 167.6 123 3.92 3.440 18.30  1  0    4    4 30.75000

[[3]]
   mpg  disp  hp drat   wt  qsec vs am gear carb    ratio-calculation1
1 14.3 360.0 245 3.21 3.57 15.84  0  0    3    4 81.66667
2 16.4 275.8 180 3.07 4.07 17.40  0  0    3    3 60.00000
3 17.3 275.8 180 3.07 3.73 17.60  0  0    3    3 60.00000
4 15.2 275.8 180 3.07 3.78 18.00  0  0    3    3 60.00000

解决方法

您正在混合基数R和dplyr。

要在dplyr中执行此操作，请使用：

library(dplyr)
library(rlang)

lapply(myData,function(x) {
  x %>%
    mutate(!!paste0("ratio-",flag) := hp/gear) %>%
    filter(carb != 2)
})

或者将其保留在基数R中：

lapply(myData,function(x) {
  x[[paste0("ratio-",flag)]] = x$hp/x$gear
  subset(x,carb != 2)
})

lapply r r tibble