如何在 R (markdown) 中创建水平表格
How to create horizontal tables in R (markdown)
我想为 R 和 R markdown 中的最小数据集提供水平原始数据 tables。我还没有找到一个简单的解决方案。是否有任何 table 包可以通过简单的默认选项切换行和列?
---
title: "Horizontal Tables"
author: "Name"
date: "11 5 2021"
output: html_document
---
## Raw Data As Horizontal Table
```{r warning=FALSE, message=FALSE}
# raw data vertical
mydata <- data.frame(pass = (c(0,0,0,0,1,1,1,1)) ,
hours = c(2,1,3,2,4,7,4,8))
mydata
# (subset) of raw data horizontal
library(tidyverse)
glimpse(mydata)
# What package shows nice horizontal raw data tables?
library(gt)
gt(mydata)
```
应转置输出,即更改行和列。 glimpse()
默认显示水平值,但缺少漂亮的 table 设计。
这是一个使用 t()
转置 table 的想法。
下面的代码使用knitr::kable()
和kableExtra
,您会找到更多信息here来选择您喜欢的样式。
如果你希望它非常小:kable_styling(bootstrap_options = c("condensed"),full_width = F, position = "left")
---
title: "Horizontal Tables"
output: html_document
---
## Raw Data As Horizontal Table
```{r warning=FALSE, message=FALSE}
# raw data vertical
mydata <- data.frame(pass = (c(0,0,0,0,1,1,1,1)) ,
hours = c(2,1,3,2,4,7,4,8))
mydata
library(knitr)
library(kableExtra)
as.data.frame(t(mydata)) %>% kable(col.names = NULL) %>% kable_styling()
```
输出:
我想为 R 和 R markdown 中的最小数据集提供水平原始数据 tables。我还没有找到一个简单的解决方案。是否有任何 table 包可以通过简单的默认选项切换行和列?
---
title: "Horizontal Tables"
author: "Name"
date: "11 5 2021"
output: html_document
---
## Raw Data As Horizontal Table
```{r warning=FALSE, message=FALSE}
# raw data vertical
mydata <- data.frame(pass = (c(0,0,0,0,1,1,1,1)) ,
hours = c(2,1,3,2,4,7,4,8))
mydata
# (subset) of raw data horizontal
library(tidyverse)
glimpse(mydata)
# What package shows nice horizontal raw data tables?
library(gt)
gt(mydata)
```
应转置输出,即更改行和列。 glimpse()
默认显示水平值,但缺少漂亮的 table 设计。
这是一个使用 t()
转置 table 的想法。
下面的代码使用knitr::kable()
和kableExtra
,您会找到更多信息here来选择您喜欢的样式。
如果你希望它非常小:kable_styling(bootstrap_options = c("condensed"),full_width = F, position = "left")
---
title: "Horizontal Tables"
output: html_document
---
## Raw Data As Horizontal Table
```{r warning=FALSE, message=FALSE}
# raw data vertical
mydata <- data.frame(pass = (c(0,0,0,0,1,1,1,1)) ,
hours = c(2,1,3,2,4,7,4,8))
mydata
library(knitr)
library(kableExtra)
as.data.frame(t(mydata)) %>% kable(col.names = NULL) %>% kable_styling()
```
输出: