Início / coding / Perguntas / 79160355
Accepted
robertspierre
Asked: 2024-11-06 02:47:07 +0800 CST

Contar o número de caracteres com nome de coluna em variável dinâmica

  • 772

Desde que aqui esteja escrito que eu posso passar {{colname}}para mutate, onde colnameestá uma variável que contém um nome de coluna, não consigo descobrir por que esse código não funciona:

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

Ele retorna o número de caracteres na carta a:

      a b
1 Hello 1
2    Hi 1
3  Howy 1

Como posso contar o número de caracteres em uma coluna e atribuir o valor a outra coluna, quando o nome da primeira coluna é salvo em uma variável?

3 respostas

  1. Como varnameé um personagem, você pode usar o .datapronome:

    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

    O problema surge porque {{varname}}não avalia o conteúdo da variável varnamequando você a usa dentro dela mutate().

    Neste caso, {{varname}}é tratado literalmente, e é por isso que você só vê 1cada linha.

    Para resolver isso, você pode simplesmente usar o R ​​base para uma solução direta. Veja como você pode fazer isso:

    # 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]])

    SAÍDA

          a  b
1 Hello  5
2    Hi  2
3  Howy  4
    • testdf[[varname]]recupera a coluna especificada por varnamefrom testdf.
    • nchar(testdf[[varname]])conta os caracteres em cada elemento dessa coluna.
    • testdf$b <- ...atribui essas contagens a uma nova coluna bem testdf.
    • 1

  3. Como é projetado como

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

    dando

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

    Como o usuário @AndreWildberg aponta em um comentário, você precisará trocar para

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

    dando

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

relate perguntas