Question

我有一个包含60行数据的数据框，我在这里发布了一列数据，因此我们可以使用一些数据：

    local   N
1    IPA   0.164
2    IPA   0.045
3    IPA   0.069
4    IPA   0.100
5    IPA   0.050
.     .      .
.     .      .
.     .      . 
28   IPA   0.078
29   IPA   0.121
30   IPA   0.104
31   OPA   0.035
32   OPA   0.057
33   OPA   0.043
.     .      .
.     .      .
.     .      .
55   OPA   0.021
56   OPA   0.004
57   OPA   0.043
58   OPA   0.002
59   OPA   0.005
60   OPA   0.034

观察到30个读数的本地是IPA，最后30个读数的本地是OPA。我使用knitr制作一个包含R中所有分析的pdf文件，但是如果我打印这个列，我会得到一个占用整页的很长的表。

stargazer(data[c("local", "N")], summary=FALSE)

我使用的是观星者，但我也可以使用其他套餐。我的目标是将打印的表格分成两列，这样它可以有更好的尺寸，更适合我的文字。我试图找到一些谎言：

    local    N          local   N
1    IPA   0.164   31   OPA   0.035
2    IPA   0.045   32   OPA   0.057
3    IPA   0.069   33   OPA   0.043
4    IPA   0.100   34   OPA   0.029
5    IPA   0.050   35   OPA   0.017
.     .      .     .     .      .
.     .      .     .     .      .
.     .      .     .     .      .
25   IPA   0.141   55   OPA   0.021
26   IPA   0.100   56   OPA   0.004
27   IPA   0.104   57   OPA   0.043
28   IPA   0.078   58   OPA   0.002
29   IPA   0.121   59   OPA   0.005
30   IPA   0.104   60   OPA   0.034

我潜水30左右，30左右，因为30个第一读数（IPA）的本地不同于本地到最后30个读数（OPA）。对我来说更好的成就是将本地作为表格的名称，例如：

    IPA N        OPA N
1   0.164   31   0.035
2   0.045   32   0.057
3   0.069   33   0.043
4   0.100   34   0.029
5   0.050   35   0.017
.     .     .      .  
.     .     .      .  
.     .     .      .  
25   0.141   55   0.021
26   0.100   56   0.004
27   0.104   57   0.043
28   0.078   58   0.002
29   0.121   59   0.005
30   0.104   60   0.034

我试图让观星者理解我作为2列表发送给它的数据，但我没有得到理想的结果

stargazer(c(data[grep("IPA", data$local), "N"],
            data[grep("OPA", data$local), "N"]),
          summary=FALSE)

实际上这会产生很长的行。：/

如何从并排分为两列的数据框中打印长列

0 个答案: