從 R 中的 Summary() 創建表

Question

使用通用的 Summary() function 來獲取一些數據。 現在我想將一些匯總數據顯示到一個表格中，然后編織到 pdf 中。 如何在調用 Summary() function 的結果上創建一個表？

使用 TeX、kableExtra 和 ggplot2。

summary(segmentdata)
summary(subset(segmentdata, Segment == "Suburb mix"))
summary(subset(segmentdata, Segment == "Urban hip"))
summary(subset(segmentdata, Segment == "Travelers"))
summary(subset(segmentdata, Segment == "Moving up"))

例如數據

年齡 性別 收入 孩子自己的家
分鍾。 ：20.00 長度：300 分鍾。 ：-13292 分鍾。 :0.000 長度:300
第一個隊列：32.75 Class：字符 第一個隊列：38122 第一個隊列：0.000 Class：字符
中位數：39.00 模式：字符 中位數：51134 中位數：1.000 模式：字符
平均值：40.59 平均值：50259 平均值：1.163
第三區：47.00 第三區：63001 第三區：2.000
最大限度。 :70.00 最大。 :139679 最大。 :5.000
訂閱段
長度：300 長度：300
Class：字符 Class：字符
模式：字符模式：字符

Answer 1

歡迎來到 StackOverflow。 發布問題以提供具有可重復示例的實際數據時，這是一個很好的做法，以便貢獻者可以幫助您。 reprex package 建議與R一起使用。

我會根據我認為你想要實現的目標給你一個答案。 我以iris數據集為例。

library(tidyverse)
library(kableExtra)

vars <- iris %>% names()
iris %>%
  filter(Species == "setosa") %>%       # subset data
  map_dfr(summary) %>%                  # apply summary to variables
  add_column(vars = vars, .before = 1)  # add variable names

#> # A tibble: 5 x 10
#>   vars  Min.  `1st Qu.` Median Mean  `3rd Qu.` Max.  setosa versicolor virginica
#>   <chr> <tab> <table>   <tabl> <tab> <table>   <tab>  <int>      <int>     <int>
#> 1 Sepa.. 4.3   4.8       5.0    5.006 5.200     5.8       NA         NA        NA
#> 2 Sepa.. 2.3   3.2       3.4    3.428 3.675     4.4       NA         NA        NA
#> 3 Peta.. 1.0   1.4       1.5    1.462 1.575     1.9       NA         NA        NA
#> 4 Peta.. 0.1   0.2       0.2    0.246 0.300     0.6       NA         NA        NA
#> 5 Spec..  NA    NA        NA       NA    NA      NA       50          0         0

有關該過程的更多詳細信息，請查看該函數的文檔。

對於kableExtra output，在管道末尾添加kbl() %>% kable_styling() 。