GuedesBF's questions

Gostaria de definir manualmente grupos para variáveis ​​dentro da chamada para tbl_summary. Um grupo de variáveis ​​deve ser relatado tanto individualmente como em grupo. Se eu tivesse uma variável lógica applee uma variável lógica banana, gostaria de relatar as frequências de applee banana, mas também de fruits.

Veja abaixo um exemplo com dados adaptados de dplyr::starwars. Para facilitar a postagem, incluí tabelas de markdown simples neste exemplo (não as tabelas renderizadas tbl_summary reais), mas acredito que elas explicam meu problema muito bem.

Dados de exemplo

library(dplyr)
data <-
    starwars |> 
    slice_head(n=20) |> 
    select(gender, sex, eye_color, skin_color, species) |> 
    mutate(male_sex = sex == "male",
           masculine_gender = gender == "masculine",
           human_species = species == "Human",
           blue_eyes = eye_color == "blue",
           light_skin = skin_color == "light",
           .keep = "unused") |> 
    {\(x) filter(x, complete.cases(x))}()  

head(data)
# A tibble: 6 × 5
  male_sex masculine_gender human_species blue_eyes light_skin
  <lgl>    <lgl>            <lgl>         <lgl>     <lgl>     
1 TRUE     TRUE             TRUE          TRUE      FALSE     
2 FALSE    TRUE             FALSE         FALSE     FALSE     
3 FALSE    TRUE             FALSE         FALSE     FALSE     
4 TRUE     TRUE             TRUE          FALSE     FALSE     
5 FALSE    FALSE            TRUE          FALSE     TRUE      
6 TRUE     TRUE             TRUE          TRUE      TRUE      

Saída Vanilla tbl_summary() com dados brutos

tbl_summary(data)

Esta é a aparência da tabela final (observe o recuo/deslocamento hierárquico):

Eu poderia criar a tabela acima com alguma manipulação de dados upstream e edição manual de uma tabela de descontos regular. Porém, gostaria de saber se existe algum tipo de solução para tal estratégia de agrupamento implementada no gtsummary. Se eu continuar pré-processando os dados, ok, então como faço para criar o recuo hierárquico?

Código que reproduz a tabela desejada (sem recuo):

data |> 
    mutate(male_or_masculine = if_any(c(male_sex, masculine_gender)),
           .before = male_sex) |> 
    mutate(blue_or_light = if_any(c(blue_eyes, light_skin)),
           .before = blue_eyes) |> 
    mutate(anything_at_all = if_any(male_sex:light_skin),
           .before = everything()) |> 
    tbl_summary()

Quero criar uma chamada reproduzível e formatada para data.frame ou tibble em R, semelhante a construí-la manualmente. Dado um data.frame chamado df:

  Sepal.Length Sepal.Width
1          5.1         3.5
2          4.9         3.0
3          4.7         3.2
4          4.6         3.1

Posso usar dput(df) para obter uma saída como:

dput(df)
structure(list(Sepal.Length = c(5.1, 4.9, 4.7, 4.6), Sepal.Width = c(3.5, 
3, 3.2, 3.1)), row.names = c(NA, 4L), class = "data.frame")

No entanto, procuro uma maneira de gerar a chamada formatada para data.frame (ou tibble) como se a estivesse construindo manualmente com argumentos separados por linha:

data.frame(Sepal.Length = c(5.1,
                            4.9,
                            4.7,
                            4.6),
           Sepal.Width = c(3.5,
                           3,
                           3.2,
                           3.1)
           )

Gostaria de saber se existe um complemento RStudio ou um método simples para conseguir isso. Não encontrei uma resposta satisfatória no Stack Overflow e as interações anteriores com ChatGPT foram inúteis.

subquestão 2

Formatando chamadas de função no RStudio para melhor legibilidade

Existe uma maneira simples no RStudio de obter chamadas de função formatadas como:

function(
    argumentA,
    argumentB,
    argumentC
)

Em vez de uma única linha:

function(argumentA, argumentB, argumentC)

Estou procurando um método para melhorar a legibilidade do código, dividindo os argumentos da função em novas linhas, e me pergunto se existe um recurso interno ou suplemento para conseguir isso no RStudio. Qualquer orientação seria apreciada.