Stampa bei data.frames/tabelle per console

Question

C'è un modo per stampare piccoli data.frames nella console in un modo più leggibile?

Per esempio, sarebbe possibile per l'output alla console:

library(MASS) 
iris[1:5, ] 

    Sepal.Length Sepal.Width Petal.Length Petal.Width Species 
1   5.1   3.5   1.4   0.2 setosa 
2   4.9   3.0   1.4   0.2 setosa 
3   4.7   3.2   1.3   0.2 setosa 
4   4.6   3.1   1.5   0.2 setosa 
5   5.0   3.6   1.4   0.2 setosa 

come

iris[1:5, ] 

    +--------------+-------------+--------------+-------------+---------+ 
    | Sepal.Length | Sepal.Width | Petal.Length | Petal.Width | Species | 
    +--------------+-------------+--------------+-------------+---------+ 
1 |   5.1 |   3.5 |   1.4 |   0.2 | setosa | 
2 |   4.9 |   3.0 |   1.4 |   0.2 | setosa | 
3 |   4.7 |   3.2 |   1.3 |   0.2 | setosa | 
4 |   4.6 |   3.1 |   1.5 |   0.2 | setosa | 
5 |   5.0 |   3.6 |   1.4 |   0.2 | setosa | 
    +--------------+-------------+--------------+-------------+---------+ 

mi rendo conto per la grande data.frames ci vorrebbe una quantità inutile di tempo, ma se si tratta di un'opzione, mi piacerebbe essere in grado di guardare i piccoli frame in modo più strutturato.

In particolare, quando ho due campi di testo uno accanto all'altro, sarebbe molto più semplice con una pipe tra i due campi per separarli, poiché la spaziatura tra le parole ha le stesse dimensioni della spaziatura tra le colonne.

Grazie

Answer 1

In caso aiuta nessuno, ho appena imbattuto il fatto che knitr s' kable raggiunge un bel abbastanza di stampa. Combinando con alcuni dei suggerimenti .Rprofile sopra, questo sembra ottenere ciò che avevo in mente.

> knitr::kable(head(iris)) 

| Sepal.Length| Sepal.Width| Petal.Length| Petal.Width|Species | 
|------------:|-----------:|------------:|-----------:|:-------| 
|   5.1|   3.5|   1.4|   0.2|setosa | 
|   4.9|   3.0|   1.4|   0.2|setosa | 
|   4.7|   3.2|   1.3|   0.2|setosa | 
|   4.6|   3.1|   1.5|   0.2|setosa | 
|   5.0|   3.6|   1.4|   0.2|setosa | 
|   5.4|   3.9|   1.7|   0.4|setosa | 

Answer 2

Ci sono un paio di metodi da provare.

1. Aggiungi un paio di funzioni di supporto al tuo .Rprofile. Nel mio profilo, ho

   hh = function(d) 
       if(class(d)=="matrix"|class(d)=="data.frame") d[1:5,1:5] 
   

   Questa funzione stampa l'angolo in alto a sinistra del frame di dati. Ho anche

   ht = function(d, n=6) rbind(head(d, n), tail(d,n)) 
   

2. creare la propria funzione S3 stampa per frame di dati, per esempio

   print.data.frame = function(x, ..., digits = NULL, 
            quote = FALSE, right = TRUE, 
            row.names = TRUE) 
           message("hi") 
   

3. Utilizzare un pacchetto, ad es. dplyr. Tuttavia, questo è un po 'eccessivo se tutto quello che vuoi è una bella stampa.

Answer 3

Ho avuto lo stesso problema da poco e mi sono imbattuto il pacchetto huxtable. È molto flessibile e forse un po 'eccessivo per l'uscita della console, ma mi è servito molto bene.

Ecco come si potrebbe risolvere il problema utilizzando huxtable:

library(huxtable) 
library(magrittr) 

small_iris <- iris[1:5, ] 

iris_hux <- 
    hux(small_iris) %>% 
    add_colnames() %>% 
    set_bold(row = 1, col = everywhere, value = TRUE) %>% 
    set_all_borders(TRUE) 

penso che tutte le funzioni parlano da soli. Per un'introduzione approfondita, vedere https://hughjonesd.github.io/huxtable/huxtable.html#adding-row-and-column-names.

print_screen(iris_hux) resa questa uscita (nella console!):

non ho ancora capito come sopprimere le informazioni di fondo sui nomi delle colonne. Quindi se qualcuno lo sa, per favore commenta!

EDIT: Al fine di sopprimere i nomi di colonna in basso, utilizzare colnames = FALSE all'interno print_screen().

Answer 4

Se si è anche aperti alla stampa dell'output nel pannello di visualizzazione (RStudio) anziché nella console, si consiglia di utilizzare il pacchetto DT.

library(DT) 
datatable(iris) 

Questo ha diversi vantaggi, penso: l'uscita è bella e ben organizzato, il pacchetto è in grado di visualizzare i frame di dati di grandi dimensioni senza diventare ingombrante, ed è altamente personalizzabile per l'avvio.