在R中创建一个堆叠的2 x 2 kable表格，使用不同维度的数据框。

huangapple
go评论94阅读模式
英文:

Create a stacked 2 x 2 kable table in R with different dimension dataframes

问题

以下是您提供的代码的翻译部分：

  1. 我正在尝试在R中创建一组可以以HTML、LaTeX或PDF形式存在的表格，因此我正在使用kable。我想创建一个2行2列的表格，每个单元格包含来自不同数据框的信息。我希望在每个单元格的上方有不同的信息作为标题。对我来说棘手的部分是这些表格具有不同的宽度，所以我希望单元格的宽度或高度与我指定的一样，并且这将增加整个表格的宽度和高度。
  3. 基本上，我希望它看起来像这样：
  5. ![enter image description here](https://i.stack.imgur.com/IQEi7.png)
  7. 到目前为止，我有这段代码：
  9. ```R
  10. library(kableExtra)
  11. df1 <- head(mtcars)
  12. df2 <- head(iris)
  13. df3 <- head(ChickWeight)
  14. df4 <- head(airquality)
  16. table1 <- kable(df1, format = "html") %>%
  17.   kable_styling()
  18. table2 <- kable(df2, format = "html") %>%
  19.   kable_styling()
  20. table3 <- kable(df3, format = "html") %>%
  21.   kable_styling()
  22. table4 <- kable(df4, format = "html") %>%
  23.   kable_styling()
  25. combined_table=kable(list(df1,df2, df3,df4), format="html") %>%
  26.   kable_styling() %>%
  27.   column_spec(column=1:4, border_left = T, border_right = T)

但当它们具有不同的列长度时，我无法rbind数据帧。那么如何将它们放入不同的面板？

我包括了我的代码，希望它能将对象分成不同的面板，但它没有这样做。

  2. 请注意，这是您提供的代码的翻译部分，不包括代码的解决方案或答案。如果您需要关于如何解决问题的帮助，请随时提出具体的问题。
  4. <details>
  5. <summary>英文:</summary>
  7. I am trying to create in R a set of tables that can be in either html or latex or pdf form so I&#39;m using kable. I want to create a 2 row and 2 column table with each cell containing information from a different dataframe. I want headers above each of the cells with different information. The tricky part for me is the tables have different so I want the cells to be as wide or long as a I specify and this would just add to the width and height of the overall table. 
  9. Basically i want it to look like this 
  11. ![enter image description here](https://i.stack.imgur.com/IQEi7.png)
  13. I have this code so far

library(kableExtra)
df1 <- head(mtcars)
df2 <- head(iris)
df3 <- head(ChickWeight)
df4 <- head(airquality)

table1 <- kable(df1, format = "html") %>%
kable_styling()
table2 <- kable(df2, format = "html") %>%
kable_styling()
table3 <- kable(df3, format = "html") %>%
kable_styling()
table4 <- kable(df4, format = "html") %>%
kable_styling()

combined_table=kable(list(df1,df2, df3,df4), format="html") %>%
kable_styling() %>%
column_spec(column=1:4, border_left = T, border_right = T)

  1. but I cannot rbind the dataframes when they have different column lengths. So how do I get them into different panels.  
  4. I included my code and expected it to panel the objects but it does not. 
  6. </details>
  9. # 答案1
  10. **得分**: 0
  12. 以下是使用 `quarto` 中的网格布局的方法：

format: html
execute:
echo: false

  2. ```{r}
  3. library(kableExtra)
  4. df1 <- head(mtcars)
  5. df2 <- head(iris)
  6. df3 <- head(ChickWeight)
  7. df4 <- head(airquality)
  9. table1 <- kable(df1, format = "html") %>%
  10.   kable_styling()
  11. table2 <- kable(df2, format = "html") %>%
  12.   kable_styling()
  13. table3 <- kable(df3, format = "html") %>%
  14.   kable_styling()
  15. table4 <- kable(df4, format = "html") %>%
  16.   kable_styling()
  1. ::: {.grid}
  3. ::: {.g-col-6}
  5. ## 组合表格
  6. ```{r}
  7. table1

:::

::: {.g-col-6}

{}

  1. table2

:::

:::

::: {.grid}

::: {.g-col-6}

  1. table3

:::

::: {.g-col-6}

  1. table4

:::

:::

  2. [![在这里输入图片描述][1]][1]
  3.   
  4.   [1]: https://i.stack.imgur.com/yu3u1.png
  6. <details>
  7. <summary>英文:</summary>
  9. Here is a way using the grid layout in `quarto`:
  11.     ---
  12.     format: html
  13.     execute: 
  14.       echo: false
  15.     ---
  16.     
  17.     
  18.     ```{r}
  19.     library(kableExtra)
  20.     df1 &lt;- head(mtcars)
  21.     df2 &lt;- head(iris)
  22.     df3 &lt;- head(ChickWeight)
  23.     df4 &lt;- head(airquality)
  24.     
  25.     table1 &lt;- kable(df1, format = &quot;html&quot;) %&gt;%
  26.       kable_styling()
  27.     table2 &lt;- kable(df2, format = &quot;html&quot;) %&gt;%
  28.       kable_styling()
  29.     table3 &lt;- kable(df3, format = &quot;html&quot;) %&gt;%
  30.       kable_styling()
  31.     table4 &lt;- kable(df4, format = &quot;html&quot;) %&gt;%
  32.       kable_styling()
  33.     ```
  34.     
  35.     ::: {.grid}
  36.     
  37.     ::: {.g-col-6}
  38.     
  39.     ## Combined Table
  40.     ```{r}
  41.     table1
  42.     ```
  43.     
  44.     :::
  45.       
  46.     ::: {.g-col-6}
  47.     ## {}
  48.     ```{r}
  49.     table2
  50.     ```
  51.     
  52.     :::
  53.       
  54.     :::  
  55.     
  56.     ::: {.grid}
  57.     
  58.     ::: {.g-col-6}
  59.     
  60.     ```{r}
  61.     table3
  62.     ```
  63.     
  64.     :::
  65.       
  66.     ::: {.g-col-6}
  67.     
  68.     ```{r}
  69.     table4
  70.     ```
  71.     
  72.     :::
  73.       
  74.     :::  
  76. [![enter image description here][1]][1]
  79.   [1]: https://i.stack.imgur.com/yu3u1.png
  81. </details>

huangapple
  • 本文由 发表于 2023年6月6日 05:26:50
  • 转载请务必保留本文链接：https://go.coder-hub.com/76410106.html
  • kable
  • kableextra
  • r
匿名

发表评论

匿名网友

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定