如何解决在单独的页面上打印每一行 data.frame,在新行上打印每一列
我想在单独的页面上打印 data.frame
或 tibble
的每一行,并在下一行打印以 \n
分隔的字符串。任何提示。
library(tidyverse)
tb1 <-
tibble(
A = c("A1","A2","A3"),B = c("B1","B2","B3"),C = c("C1","C2","C3")
)
tb2 <-
tb1 %>%
mutate(Total = paste(A,B,C,sep = " \n ")) %>%
select(Total)
tb2
library(kableExtra)
kbl(x = tb2,format = "latex")
解决方法
这个 Markdown 块对我有用 -
```
---
title: "temp"
output:
pdf_document: default
---
```{r,echo=FALSE,results='asis'}
tb2 <- structure(list(Total = c("A1 \n B1 \n C1","A2 \n B2 \n C2","A3 \n B3 \n C3")),row.names = c(NA,-3L),class = c("tbl_df","tbl","data.frame"))
for(i in seq(nrow(tb2))) {
cat(gsub('\n',' \n ',tb2$Total[i]))
cat("\n\n\n\\pagebreak\n")
}
```
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。