假设我有以下数据框:
df <- data.frame(sector = c(rep('a', 3), rep('b', 4)), id = 1:7)
我想创建一个汇总表来报告每个扇区的 ID 列表,所以我这样做:
table <- xtable(aggregate(id ~ sector, df, paste))
但是,当我尝试使用 xtable()
将上面的对象转换为 LaTeX 时,出现以下错误:
> xtable(table)
Error in is.finite(x) : default method not implemented for type 'list'
这是由第二列引起的,因为 class(table$id)
确认它是一个列表。
需要注意的是,xtable()
可以很好地处理作为输入的数据帧。将“粘贴”更改为更常见的内容,如“总和”或“长度”不会产生错误。
我可以对 table
(或 xtable
)做些什么来创建我想要的表?所需的原始输出应该看起来像像这样:
\begin{table}[ht]
\centering
\begin{tabular}{rlr}
\hline
& sector & id \\
\hline
1 & a & 1, 2, 3 \\
2 & b & 4, 5, 6, 7\\
\hline
\end{tabular}
\end{table}
最佳答案
向 paste
添加“collapse”参数将会成功:
> xtable(aggregate(id ~ sector, df, paste, collapse=","))
% latex table generated in R 3.0.1 by xtable 1.7-1 package
% Tue Aug 6 11:46:03 2013
\begin{table}[ht]
\centering
\begin{tabular}{rll}
\hline
& sector & id \\
\hline
1 & a & 1,2,3 \\
2 & b & 4,5,6,7 \\
\hline
\end{tabular}
\end{table}
关于r - 我怎样才能使 xtable 与 aggregate(..., FUN = paste) 一起工作?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/18087882/