r - 在R中组合多个xtables
问题描述
我想组合 2 个数据集,当我在 R 中运行下面的代码时,但不显示标题,我想查看每个数据集的列标题
iriss <- head(iris)
iriss1 <- tail(iris)
print(xtable(rbind(iriss,iriss1)))
预期的输出是这样的,我怎样才能从 R 控制台得到这个?
\begin{table}[ht]
\centering
\begin{tabular}{rrrrrl}
\hline
& Sepal.Length & Sepal.Width & Petal.Length & Petal.Width & Species \\
\hline
1 & 5.10 & 3.50 & 1.40 & 0.20 & setosa \\
2 & 4.90 & 3.00 & 1.40 & 0.20 & setosa \\
3 & 4.70 & 3.20 & 1.30 & 0.20 & setosa \\
4 & 4.60 & 3.10 & 1.50 & 0.20 & setosa \\
5 & 5.00 & 3.60 & 1.40 & 0.20 & setosa \\
6 & 5.40 & 3.90 & 1.70 & 0.40 & setosa \\
\hline
& Sepal.Length & Sepal.Width & Petal.Length & Petal.Width & Species \\
\hline
145 & 6.70 & 3.30 & 5.70 & 2.50 & virginica \\
146 & 6.70 & 3.00 & 5.20 & 2.30 & virginica \\
147 & 6.30 & 2.50 & 5.00 & 1.90 & virginica \\
148 & 6.50 & 3.00 & 5.20 & 2.00 & virginica \\
149 & 6.20 & 3.40 & 5.40 & 2.30 & virginica \\
150 & 5.90 & 3.00 & 5.10 & 1.80 & virginica \\
\hline
\end{tabular}
\end{table}
提前谢谢了
解决方案
Anxtable
本质上是一个带有打印方法的数据框,它显示了用于在乳胶文档中复制表格的乳胶代码。因此,不可能创建一个xtable
按您希望的方式打印的对象。
但是,可以通过捕获控制台输出并对其进行操作以将多个表连接在一起,从而获得所需的控制台输出。这是一个可以做到这一点的函数:
multi_xtable <- function(...)
{
vars <- as.list(match.call(expand.dots = TRUE))[-1]
df_list <- lapply(vars, eval)
num_cols <- sapply(df_list, length)
if (!all(num_cols == num_cols[1]))
stop("All data frames must have equal number of columns")
xtables <- lapply(df_list, function(x) capture.output(xtable::xtable(x)))
if (length(xtables) == 1)
return(xtables[[1]])
header <- xtables[[1]][1:6]
tail <- xtables[[1]][length(xtables[[1]]) + (-1:0)]
xtables <- lapply(xtables, function(x) x[7:(length(x) - 2)])
xtables <- do.call("c", xtables)
cat(header, xtables, tail, sep = "\n")
}
你可以像这样使用它:
multi_xtable(iriss, iriss1)
#> % latex table generated in R 3.6.2 by xtable 1.8-4 package
#> % Wed Apr 29 12:51:24 2020
#> \begin{table}[ht]
#> \centering
#> \begin{tabular}{rrrrrl}
#> \hline
#> & Sepal.Length & Sepal.Width & Petal.Length & Petal.Width & Species \\
#> \hline
#> 1 & 5.10 & 3.50 & 1.40 & 0.20 & setosa \\
#> 2 & 4.90 & 3.00 & 1.40 & 0.20 & setosa \\
#> 3 & 4.70 & 3.20 & 1.30 & 0.20 & setosa \\
#> 4 & 4.60 & 3.10 & 1.50 & 0.20 & setosa \\
#> 5 & 5.00 & 3.60 & 1.40 & 0.20 & setosa \\
#> 6 & 5.40 & 3.90 & 1.70 & 0.40 & setosa \\
#> \hline
#> & Sepal.Length & Sepal.Width & Petal.Length & Petal.Width & Species \\
#> \hline
#> 145 & 6.70 & 3.30 & 5.70 & 2.50 & virginica \\
#> 146 & 6.70 & 3.00 & 5.20 & 2.30 & virginica \\
#> 147 & 6.30 & 2.50 & 5.00 & 1.90 & virginica \\
#> 148 & 6.50 & 3.00 & 5.20 & 2.00 & virginica \\
#> 149 & 6.20 & 3.40 & 5.40 & 2.30 & virginica \\
#> 150 & 5.90 & 3.00 & 5.10 & 1.80 & virginica \\
#> \hline
#> \end{tabular}
#> \end{table}
推荐阅读
- firebase - 如何在结果 [] 响应中激活可选的“registration_id”?
- c - 如何在 C 中读取 .cnf 文件(联合范式)?
- c - K&R 4.2 atof 函数
- memory-management - 给定虚拟地址的对应页框?
- vb.net - 在 SetParent 之后获取滚动条的问题
- r - 尝试过滤数据框 - 寻找另一个变量变化有限的设定时间段
- python - odoo 12 自定义模块菜单未显示
- elasticsearch - 弹性搜索单个大文档与多个小文档
- xamarin - Xamarin Tabhost - 重叠的选项卡内容
- java - 应用版本更新后,我可以在哪里存储用户数据以保留这些数据?