Tabela podobna do tabeli w R dla przeceny

Question

Często znajduję siebie obliczające statystyki podsumowujące w R używając dplyr, a następnie zapisuję wynik do csv i ładuję go do Tableau, aby wygenerować tabelę, ponieważ tabele Tableau są tak proste i łatwe. Wolałbym generować tabele bezpośrednio w R.

Czy istnieje proste rozwiązanie dla zgrupowanych tabel w R?

To bardzo proste, aby wygenerować dane chciałbym:

library(tidyr) 
library(dplyr) 

summary_table <- iris %>% 
    gather(measure, value, -Species) %>% 
    separate(measure, into=c("attribute", "dimension")) %>% 
    group_by(Species, attribute, dimension) %>% 
    summarise(mean=mean(value)) 

summary_table 

Source: local data frame [12 x 4] 
Groups: Species, attribute [?] 

     Species attribute dimension mean 
     <fctr>  <chr>  <chr> <dbl> 
1  setosa  Petal Length 1.462 
2  setosa  Petal  Width 0.246 
3  setosa  Sepal Length 5.006 
4  setosa  Sepal  Width 3.428 
5 versicolor  Petal Length 4.260 
6 versicolor  Petal  Width 1.326 
7 versicolor  Sepal Length 5.936 
8 versicolor  Sepal  Width 2.770 
9 virginica  Petal Length 5.552 
10 virginica  Petal  Width 2.026 
11 virginica  Sepal Length 6.588 
12 virginica  Sepal  Width 2.974 

Teraz chciałbym przedstawić to jako:

chciałbym spróbować kilku różnych sposoby organizowania, więc chciałbym móc łatwo grupować wiersze zamiast kolumn:

Kluczowe cechy zgrupowanych wersji wiersze:

• zmienna Grupowanie jest po lewej stronie, w osobnej kolumnie zamiast osobnego rzędu, w komórce, który obejmuje wszystkie wiersze
• pozioma komórkowych granice na poziomie grupy

Jestem nowy dla rmarkdown, ale ostatecznym celem jest posiadanie tego w dokumencie html.

Czy to możliwe?

Answer 1

Oto sposoby tworzenia każdej z tabel przy użyciu pakietu htmlTable. Nie byłem pewien, jak dodać poziome linie między gatunkami, ale dodałem cieniowanie zebry.

Oto dokument :

--- 
title: "<h3>Untitled</h3>" 
author: "Author" 
date: "September 3, 2016" 
output: html_document 
--- 

```{r setup, include=FALSE} 
knitr::opts_chunk$set(echo = FALSE, message=FALSE, warning=FALSE) 
``` 

```{r} 
library(tidyr) 
library(dplyr) 
library(reshape2) 
library(htmlTable) 
``` 

```{r} 
st = iris %>% 
    gather(measure, value, -Species) %>% 
    separate(measure, into=c("attribute", "dimension")) %>% 
    group_by(Species, attribute, dimension) %>% 
    summarise(mean=mean(value)) %>% 
    spread(dimension, mean) 

# Keep only first value of outer grouping column 
st = st %>% 
    group_by(Species) %>% 
    mutate(count=1:n()) %>% 
    ungroup %>% 
    mutate(Species = ifelse(count==1, as.character(Species), NA)) %>% 
    select(-count) 

# Remove names of grouping columns 
names(st)[1:2] = "" 

# Round numeric columns to two decimal places 
st[,sapply(st,is.numeric)] = sapply(st[,sapply(st,is.numeric)], function(x) sprintf("%1.2f",x)) 

htmlTable(st, rnames=FALSE, align="llrr", align.header="llrr", 
      col.rgroup = rep(c("none", "gray93"), each=2), 
      css.cell = c("padding-left: 0em","padding-left: 1em",rep("padding-left: 2em",2))) 
``` 
```{r} 
# Another option 
htmlTable(st[,-1], rnames=FALSE, align="llrr", align.header="lrr", 
      n.rgroup=rep(2,3), 
      rgroup=rep(unique(iris$Species),2), 
      #col.rgroup = c("none","gray93"), # If you want to add alternating shading 
      css.cell=c("padding-left: 0.5em","padding-left: 4em","padding-left: 1.5em")) 
``` 

```{r} 
st = iris %>% 
    melt(id.var="Species") %>% 
    group_by(Species, variable) %>% 
    summarise(mean=mean(value)) %>% 
    dcast(Species ~ variable) 
names(st)[1] = "" 

# Round numeric columns to two decimal places 
st[,sapply(st,is.numeric)] = sapply(st[,sapply(st,is.numeric)], function(x) sprintf("%1.2f",x)) 

# Set up grouping columns and column names 
group_col = gsub("(.*)\\..*", "\\1", names(st)) 
group_col = factor(group_col, levels=unique(group_col)) 
names(st) = gsub(".*\\.", "", names(st)) 

htmlTable(st, rnames=FALSE, align="lrrrr", 
      align.header="lrrrr", 
      cgroup=unique(group_col), n.cgroup=unclass(table(group_col)), 
      css.cell = c("padding-left: 0em","padding-left: 1.5em", rep("padding-left: 2em",3))) 
``` 

Oto wynik:

Answer 2

Chciałbym przyjrzeć się opcjom funkcji xtableFtable w pakiecie . Przykłady można znaleźć w sekcji 2.8 tego dokumentu: https://cran.r-project.org/web/packages/xtable/vignettes/xtableGallery.pdf