Início / coding / Perguntas / 77491185
Accepted
GuedesBF
Asked: 2023-11-16 06:15:34 +0800 CST

Gerando chamadas data.frame ou tibble formatadas (ou qualquer função) de dados existentes no script R

  • 772

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.

2 respostas

  1. library(datapasta)
clipr::write_clip(df) # or select and Ctrl-C

#Addins -- DATAPASTA - Paste as tribble
tibble::tribble(
  ~Sepal.Length, ~Sepal.Width,
            5.1,          3.5,
            4.9,            3,
            4.7,          3.2,
            4.6,          3.1
  )

#Addins - DATAPASTA - Paste as data.frame
data.frame(
  Sepal.Length = c(5.1, 4.9, 4.7, 4.6),
   Sepal.Width = c(3.5, 3, 3.2, 3.1)
)

    Para sua segunda pergunta (que deveria ser uma segunda pergunta), o stylerpacote fará isso, mas você precisaria encontrar um estilo com essa regra ou criar um.

    • 2
  2. Best Answer

    Para a primeira parte, você pode usar a constructfunção do constructpacote, que acredito produzir exatamente o que você deseja. Aqui, no irisconjunto de dados completo:

    library(constructive)

construct(iris)

    Saída:

    data.frame(
  Sepal.Length = c(
    5.1, 4.9, 4.7, 4.6, 5, 5.4, 4.6, 5, 4.4, 4.9, 5.4, 4.8, 4.8, 4.3, 5.8, 5.7,
    5.4, 5.1, 5.7, 5.1, 5.4, 5.1, 4.6, 5.1, 4.8, 5, 5, 5.2, 5.2, 4.7, 4.8, 5.4,
    5.2, 5.5, 4.9, 5, 5.5, 4.9, 4.4, 5.1, 5, 4.5, 4.4, 5, 5.1, 4.8, 5.1, 4.6, 5.3,
    5, 7, 6.4, 6.9, 5.5, 6.5, 5.7, 6.3, 4.9, 6.6, 5.2, 5, 5.9, 6, 6.1, 5.6, 6.7,
    5.6, 5.8, 6.2, 5.6, 5.9, 6.1, 6.3, 6.1, 6.4, 6.6, 6.8, 6.7, 6, 5.7, 5.5, 5.5,
    5.8, 6, 5.4, 6, 6.7, 6.3, 5.6, 5.5, 5.5, 6.1, 5.8, 5, 5.6, 5.7, 5.7, 6.2, 5.1,
    5.7, 6.3, 5.8, 7.1, 6.3, 6.5, 7.6, 4.9, 7.3, 6.7, 7.2, 6.5, 6.4, 6.8, 5.7,
    5.8, 6.4, 6.5, 7.7, 7.7, 6, 6.9, 5.6, 7.7, 6.3, 6.7, 7.2, 6.2, 6.1, 6.4, 7.2,
    7.4, 7.9, 6.4, 6.3, 6.1, 7.7, 6.3, 6.4, 6, 6.9, 6.7, 6.9, 5.8, 6.8, 6.7, 6.7,
    6.3, 6.5, 6.2, 5.9
  ),
  Sepal.Width = c(
    3.5, 3, 3.2, 3.1, 3.6, 3.9, 3.4, 3.4, 2.9, 3.1, 3.7, 3.4, 3, 3, 4, 4.4, 3.9,
    3.5, 3.8, 3.8, 3.4, 3.7, 3.6, 3.3, 3.4, 3, 3.4, 3.5, 3.4, 3.2, 3.1, 3.4, 4.1,
    4.2, 3.1, 3.2, 3.5, 3.6, 3, 3.4, 3.5, 2.3, 3.2, 3.5, 3.8, 3, 3.8, 3.2, 3.7,
    3.3, 3.2, 3.2, 3.1, 2.3, 2.8, 2.8, 3.3, 2.4, 2.9, 2.7, 2, 3, 2.2, 2.9, 2.9,
    3.1, 3, 2.7, 2.2, 2.5, 3.2, 2.8, 2.5, 2.8, 2.9, 3, 2.8, 3, 2.9, 2.6, 2.4, 2.4,
    2.7, 2.7, 3, 3.4, 3.1, 2.3, 3, 2.5, 2.6, 3, 2.6, 2.3, 2.7, 3, 2.9, 2.9, 2.5,
    2.8, 3.3, 2.7, 3, 2.9, 3, 3, 2.5, 2.9, 2.5, 3.6, 3.2, 2.7, 3, 2.5, 2.8, 3.2,
    3, 3.8, 2.6, 2.2, 3.2, 2.8, 2.8, 2.7, 3.3, 3.2, 2.8, 3, 2.8, 3, 2.8, 3.8, 2.8,
    2.8, 2.6, 3, 3.4, 3.1, 3, 3.1, 3.1, 3.1, 2.7, 3.2, 3.3, 3, 2.5, 3, 3.4, 3
  ),
  Petal.Length = c(
    1.4, 1.4, 1.3, 1.5, 1.4, 1.7, 1.4, 1.5, 1.4, 1.5, 1.5, 1.6, 1.4, 1.1, 1.2,
    1.5, 1.3, 1.4, 1.7, 1.5, 1.7, 1.5, 1, 1.7, 1.9, 1.6, 1.6, 1.5, 1.4, 1.6, 1.6,
    1.5, 1.5, 1.4, 1.5, 1.2, 1.3, 1.4, 1.3, 1.5, 1.3, 1.3, 1.3, 1.6, 1.9, 1.4,
    1.6, 1.4, 1.5, 1.4, 4.7, 4.5, 4.9, 4, 4.6, 4.5, 4.7, 3.3, 4.6, 3.9, 3.5, 4.2,
    4, 4.7, 3.6, 4.4, 4.5, 4.1, 4.5, 3.9, 4.8, 4, 4.9, 4.7, 4.3, 4.4, 4.8, 5, 4.5,
    3.5, 3.8, 3.7, 3.9, 5.1, 4.5, 4.5, 4.7, 4.4, 4.1, 4, 4.4, 4.6, 4, 3.3, 4.2,
    4.2, 4.2, 4.3, 3, 4.1, 6, 5.1, 5.9, 5.6, 5.8, 6.6, 4.5, 6.3, 5.8, 6.1, 5.1,
    5.3, 5.5, 5, 5.1, 5.3, 5.5, 6.7, 6.9, 5, 5.7, 4.9, 6.7, 4.9, 5.7, 6, 4.8, 4.9,
    5.6, 5.8, 6.1, 6.4, 5.6, 5.1, 5.6, 6.1, 5.6, 5.5, 4.8, 5.4, 5.6, 5.1, 5.1,
    5.9, 5.7, 5.2, 5, 5.2, 5.4, 5.1
  ),
  Petal.Width = c(
    0.2, 0.2, 0.2, 0.2, 0.2, 0.4, 0.3, 0.2, 0.2, 0.1, 0.2, 0.2, 0.1, 0.1, 0.2,
    0.4, 0.4, 0.3, 0.3, 0.3, 0.2, 0.4, 0.2, 0.5, 0.2, 0.2, 0.4, 0.2, 0.2, 0.2,
    0.2, 0.4, 0.1, 0.2, 0.2, 0.2, 0.2, 0.1, 0.2, 0.2, 0.3, 0.3, 0.2, 0.6, 0.4,
    0.3, 0.2, 0.2, 0.2, 0.2, 1.4, 1.5, 1.5, 1.3, 1.5, 1.3, 1.6, 1, 1.3, 1.4, 1,
    1.5, 1, 1.4, 1.3, 1.4, 1.5, 1, 1.5, 1.1, 1.8, 1.3, 1.5, 1.2, 1.3, 1.4, 1.4,
    1.7, 1.5, 1, 1.1, 1, 1.2, 1.6, 1.5, 1.6, 1.5, 1.3, 1.3, 1.3, 1.2, 1.4, 1.2, 1,
    1.3, 1.2, 1.3, 1.3, 1.1, 1.3, 2.5, 1.9, 2.1, 1.8, 2.2, 2.1, 1.7, 1.8, 1.8,
    2.5, 2, 1.9, 2.1, 2, 2.4, 2.3, 1.8, 2.2, 2.3, 1.5, 2.3, 2, 2, 1.8, 2.1, 1.8,
    1.8, 1.8, 2.1, 1.6, 1.9, 2, 2.2, 1.5, 1.4, 2.3, 2.4, 1.8, 1.8, 2.1, 2.4, 2.3,
    1.9, 2.3, 2.5, 2.3, 1.9, 2, 2.3, 1.8
  ),
  Species = factor(rep(c("setosa", "versicolor", "virginica"), each = 50L))

    Para a parte 2, no Rstudio, se você destacar seu código shift+ control+ A, ele reformatará seu código corretamente para você. ( Veja aqui a pergunta/resposta do Stack Overflow para esta parte)

    • 1

relate perguntas