Início / coding / Perguntas / 78941034
Accepted
Shawn Janzen
Asked: 2024-09-02 22:45:02 +0800 CST

O ctable em R não funciona com pipes nativos?

  • 772

Estou vendo uma peculiaridade na ctable()função do pacote summarytools do R e estou tentando ver se estou esquecendo de algo aqui.

A vinheta de introdução do ctable afirma que "Os operadores de pipe do magrittr (%>%, %$%) e pipeR (%>>%) são totalmente suportados; o nativo |> introduzido no R 4.0 também é suportado."

Usar o pipe nativo funciona conforme o esperado para as funções freq()e descr().

No entanto, estou tendo problemas com o pipe nativo para ctable(). Se eu usar o pipe nativo, recebo um Error: object 'ObjectName' not foundwhere ObjectName é uma das variáveis ​​na ctable()função. Não funciona com o pipe magrittr regular. No entanto, ctable()funciona se eu alternar para o pipe de exposição magrittr %$%. Não encontrei nenhuma diferença se eu adicionar as especificações de argumento x= e y=.

Outra peculiaridade nessa bagunça é que ctable()funciona com um pipe nativo SE eu reduzir o quadro de dados selecionando apenas as duas colunas que eu quero para o ctable(). No entanto, eu tenho que remover os nomes das colunas do ctable()nesse caso, senão eu recebo um erro; além disso, os nomes das colunas que imprimem nos resultados parecem horríveis e não são úteis.

Estou esquecendo de algo aqui? Não deveria ctable()funcionar da mesma forma freq()ou descr()ao usar o pipe nativo ou o pipe magrittr regular?

Para aqueles curiosos sobre o motivo pelo qual meus exemplos têm o as.factor(), até onde eu sei, ctable()ainda tem o problema do PrettyNum ao usar valores numéricos -- veja o Github de Dominic Comtois e esta postagem do SO .

Exemplos reproduzíveis

# setup
library(summarytools)
library(magrittr)
library(dplyr)
data("mtcars")

# these work just fine as expected
freq(mtcars$cyl)
mtcars |> freq(cyl)
mtcars |> descr(qsec)
mtcars |> subset(select=c(qsec, hp)) |> descr()

# ctable not working with the native pipe or regular magrittr pipe
mtcars |>
  mutate(cyl = as.factor(cyl), gear = as.factor(gear)) |> 
  # mutate(cyl = as.factor(cyl), gear = as.factor(gear)) %>%
  ctable(cyl, gear)

# ctable works with the exposion pipe
mtcars |>
  mutate(cyl = as.factor(cyl), gear = as.factor(gear)) %$%
  ctable(cyl, gear)

# ctable works with native pipe if also selecting to only the columns for ctable, but output looks off
mtcars |>
  mutate(cyl = as.factor(cyl), gear = as.factor(gear)) |> 
  select(cyl, gear) |> 
  # ctable(cyl, gear)  # gives error
  ctable()  # no error

1 respostas

  1. Best Answer

    |> insere o lado esquerdo no primeiro argumento do lado direito (ou na posição do argumento _ se especificado), mas não há argumento em ctableque esteja documentado para aceitar um data frame. Use withcom pipe (|> ou %>%):

    library(dplyr)
library(summarytools)

mtcars |>
  mutate(cyl = as.factor(cyl), gear = as.factor(gear)) |>
  with(ctable(cyl, gear))
    • 5

relate perguntas