主页 / coding / 问题 / 79160355
Accepted
robertspierre
Asked: 2024-11-06 02:47:07 +0800 CST

计算动态变量中列名的字符数

  • 772

假设这里写着我可以传递{{colname}}给mutate，其中colname是一个包含列名的变量，我无法弄清楚为什么这段代码不起作用：

testdf <- data.frame(a=c("Hello", "Hi", "Howy"))
varname <- "a"
testdf %>% mutate(b=nchar({{varname}}))

它返回字母中的字符数a：

      a b
1 Hello 1
2    Hi 1
3  Howy 1

当第一列的名称保存到变量中时，如何计算一列中的字符数并将值分配给另一列？

3 个回答

  1. 作为varname一个角色，你可以使用.data代词：

    testdf <- data.frame(a = c("Hello", "Hi", "Howy"))
varname <- "a"

library(dplyr, warn = FALSE)

testdf %>%
  mutate(b = nchar(.data[[varname]]))
#>       a b
#> 1 Hello 5
#> 2    Hi 2
#> 3  Howy 4
    • 1
  2. Best Answer

    出现此问题是因为当您在里面使用{{varname}}该变量时，没有计算其内容。varnamemutate()

    在这种情况下，{{varname}}按字面意思处理，这就是为什么您只能看到1每一行。

    为了解决这个问题，您可以简单地使用基础 R 来获得直接的解决方案。您可以这样做：

    # Create a data frame
testdf <- data.frame(a = c("Hello", "Hi", "Howy"))

# Variable storing column name
varname <- "a"

# Use base R to add a column `b` with character counts
testdf$b <- nchar(testdf[[varname]])

    输出

          a  b
1 Hello  5
2    Hi  2
3  Howy  4
    • testdf[[varname]]varname检索from指定的列testdf。
    • nchar(testdf[[varname]])计算该列中每个元素的字符数。
    • testdf$b <- ...将这些计数分配给b中的一个新列testdf。
    • 1

  3. 因为它的设计就像

    library(dplyr)
f = \(dd, var) mutate(dd, b = nchar( {{var}} ))

    给予

    > f(testdf, a) # no quotes
      a b
1 Hello 5
2    Hi 2
3  Howy 4

    正如用户 @AndreWildberg 在评论中指出的那样，您需要切换到

    f2 = \(dd, var) mutate(dd, b = nchar( !!sym(var) ))

    给予

    > f2(testdf, "a") # quotes
      a b
1 Hello 5
2    Hi 2
3  Howy 4
    • 1

相关问题