如何将数据框变成表格

Question

我想在刺激我的整个刺激十次后得到一个五数表，使用下面的代码：

do.call(rbind, lapply(1:10, function(i) mycode()))

然而我得到的只是一个像这样的数据框：

 Mean   SD   Min    Q1 Median    Q3   Max
1  65.01 0.07 46.37 61.00  65.30 69.65 81.20
2  65.32 0.07 45.60 60.63  65.12 70.25 82.23
3  64.35 0.08 43.97 58.37  64.60 70.56 81.20
4  63.76 0.07 35.23 58.97  63.85 69.18 82.83
5  66.07 0.07 49.47 61.70  66.33 70.68 82.70
6  63.70 0.08 38.53 58.96  64.60 68.76 80.90
7  64.46 0.08 39.63 59.43  64.83 70.23 79.20
8  65.54 0.07 35.70 62.09  66.18 70.72 80.13
9  65.20 0.06 46.53 61.34  65.30 69.36 80.43
10 64.92 0.08 38.23 60.32  65.11 70.10 82.10

我尝试使用

table()

、

as.table()

、

xtab()

等代码，但输出如下所示：

Mean     0.07
  63.87  0.00
  64.41  0.00
  64.45  0.00
  64.6   0.00
  64.87  0.00
  65.26  0.00
  65.28  0.00
  65.52  0.00
  66.26  0.00
  66.63  0.00

, , Min = 43.37, Q1 = 59.68, Median = 64.67, Q3 = 68.88

       SD
Mean     0.07
  63.87  0.00
  64.41  0.00
  64.45  0.00
  64.6   0.00
  64.87  0.00
  65.26  0.00
  65.28  0.00
  65.52  0.00
  66.26  0.00
  66.63  0.00

, , Min = 44.73, Q1 = 59.68, Median = 64.67, Q3 = 68.88

或者使用额外的包

flextable

，这给了我一张如所附图片的桌子。

Answer 1

如果问题是如何获取与数据框具有相同行数和列数的表类对象，那么首先将其转换为矩阵。我们使用最后注释中显示的输入。

tab <- as.table(as.matrix(DF))

class(tab)
## [1] "table"

tab
##     Mean    SD   Min    Q1 Median    Q3   Max
## 1  65.01  0.07 46.37 61.00  65.30 69.65 81.20
## 2  65.32  0.07 45.60 60.63  65.12 70.25 82.23
## 3  64.35  0.08 43.97 58.37  64.60 70.56 81.20
## 4  63.76  0.07 35.23 58.97  63.85 69.18 82.83
## 5  66.07  0.07 49.47 61.70  66.33 70.68 82.70
## 6  63.70  0.08 38.53 58.96  64.60 68.76 80.90
## 7  64.46  0.08 39.63 59.43  64.83 70.23 79.20
## 8  65.54  0.07 35.70 62.09  66.18 70.72 80.13
## 9  65.20  0.06 46.53 61.34  65.30 69.36 80.43
## 10 64.92  0.08 38.23 60.32  65.11 70.10 82.10

注意

Lines <- "Mean   SD   Min    Q1 Median    Q3   Max
1  65.01 0.07 46.37 61.00  65.30 69.65 81.20
2  65.32 0.07 45.60 60.63  65.12 70.25 82.23
3  64.35 0.08 43.97 58.37  64.60 70.56 81.20
4  63.76 0.07 35.23 58.97  63.85 69.18 82.83
5  66.07 0.07 49.47 61.70  66.33 70.68 82.70
6  63.70 0.08 38.53 58.96  64.60 68.76 80.90
7  64.46 0.08 39.63 59.43  64.83 70.23 79.20
8  65.54 0.07 35.70 62.09  66.18 70.72 80.13
9  65.20 0.06 46.53 61.34  65.30 69.36 80.43
10 64.92 0.08 38.23 60.32  65.11 70.10 82.10"
DF <- read.table(text = Lines)