Wydrukuj ładne data.frames/tabele na konsolę

Question

Czy istnieje sposób drukowania małego data.frames na konsoli w bardziej czytelny sposób?

Na przykład, byłoby możliwe do wyjścia do konsoli:

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 

jako

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 | 
    +--------------+-------------+--------------+-------------+---------+ 

Zdaję sobie sprawę z dużej data.frames zajęłoby się nadmierną ilość czasu, ale jeśli jest to opcja, chciałbym móc spojrzeć na małe ramki w bardziej uporządkowany sposób.

W szczególności, gdy mam dwa pola tekstowe obok siebie, byłoby o wiele łatwiej, gdyby między nimi znajdowała się faza, ponieważ odstępy między wyrazami są takie same jak odstępy między kolumnami.

Dzięki

Answer 1

W przypadku pomaga nikomu, po prostu natknął się na fakt, że knitr „s kable osiąga piękny ładny wydruk. Połączyć z niektórymi z powyższych sugestii .Rprofile, wydaje się, że osiągnąłem to, co miałem na myśli.

> 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

Istnieje kilka metod, które możesz wypróbować.

1. Dodaj kilka funkcji pomocniczych do swojego .Rprofile. W moim profilu mam

   Ta funkcja drukuje lewy górny róg ramki danych. Mam też

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

2. Stwórz własną funkcję S3 druku dla ramek danych, na przykład

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

3. Użyj pakietu, np. dplyr. Jest to jednak trochę przesada, jeśli chcesz tylko ładnego drukowania.

Answer 3

miałem ten sam problem niedawno natknąłem pakietu huxtable. Jest bardzo elastyczny i może leciutki overkill dla ładniejszego wyjścia konsoli, ale bardzo dobrze mi to służyło.

Oto w jaki sposób można rozwiązać problemu przy użyciu 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) 

Myślę, że wszystkie funkcje mówią same za siebie. Dokładne wprowadzenie zawiera artykuł https://hughjonesd.github.io/huxtable/huxtable.html#adding-row-and-column-names.

print_screen(iris_hux) wydajność wyjście (w konsoli!):

I nie zorientowali się jeszcze, jak stłumić dolną informacje na temat nazw kolumn. Więc jeśli ktoś wie, proszę o komentarz!

Edycja: W celu stłumienia nazwy kolumna z dołu, należy colnames = FALSE wewnątrz print_screen().

Answer 4

Jeśli jesteś otwarty na drukowanie swoich wyników w panelu przeglądarki (RStudio), a nie na konsolecie, polecam korzystanie z pakietu DT.

library(DT) 
datatable(iris) 

Ma to kilka zalet, myślę: wyjście jest ładna i dobrze ułożone, pakiet jest w stanie wyświetlić dużych ramek danych, nie stając się kłopotliwe i jest wysoce konfigurowalny do rozruchu.