R data.frame与xtable胶乳输出堆叠指定标题
> w<-data.frame(c(0,0,1,1.3,2.1), c(0,0.6,0.9,1.6091,1.6299), c(258,141,206.4,125.8,140.5), c(162,162.7,162.4,162,162))
> colnames(w) <- c('Worst Cum', 'Best Cum', 'Worst Points', 'Best Points' )
错（代码）
Worst Cum Best Cum Worst Points Best Points
1 0.0 0.0000 258.0 162.0
2 0.0 0.6000 141.0 162.7
3 1.0 0.9000 206.4 162.4
4 1.3 1.6091 125.8 162.0
5 2.1 1.6299 140.5 162.0
目标：如何？
CUM Points
Worst Best Worst Best
1 0.0 0.0000 258.0 162.0
2 0.0 0.6000 141.0 162.7
3 1.0 0.9000 206.4 162.4
4 1.3 1.6091 125.8 162.0
5 2.1 1.6299 140.5 162.0
-------------示例（如果您知道上述解决方案，则需要进一步阅读针头）-------------
试验1：许多数据帧失败
> a<-data.frame(c(0,0,1,1.3,2.1), c(0,0.6,0.9,1.6091,1.6299))
> b<-data.frame(c(258,141,206.4,125.8,140.5), c(162,162.7,162.4,162,162))
> c<-data.frame(cbind(a,b))
> colnames(c) <- c('Cum', 'Points')
> colnames(a) <- c('Worst', 'Best')
> colnames(b) <- c('Worst', 'Best')
和
> xtable(c)
% latex table generated in R 2.13.1 by xtable 1.6-0 package
% Thu Nov 24 03:43:34 2011
begin{table}[ht]
begin{center}
begin{tabular}{rrrrr}
hline
& Cum & Points & NA & NA
hline
1 & 0.00 & 0.00 & 258.00 & 162.00
2 & 0.00 & 0.60 & 141.00 & 162.70
3 & 1.00 & 0.90 & 206.40 & 162.40
4 & 1.30 & 1.61 & 125.80 & 162.00
5 & 2.10 & 1.63 & 140.50 & 162.00
hline
end{tabular}
end{center}
end{table}
> xtable(a)
% latex table generated in R 2.13.1 by xtable 1.6-0 package
% Thu Nov 24 03:45:06 2011
begin{table}[ht]
begin{center}
begin{tabular}{rrr}
hline
& Worst & Best
hline
1 & 0.00 & 0.00
2 & 0.00 & 0.60
3 & 1.00 & 0.90
4 & 1.30 & 1.61
5 & 2.10 & 1.63
hline
end{tabular}
end{center}
end{table}
这是错误的，因为它用高级标头nb“NA”vals代替内部标题。
来自Hmisc软件包的latex功能可以解决这个问题。 这里是代码（确保在序言中包含usepackage{booktabs}以获得更好的表格格式）
library(Hmisc)
latex(w, file = "", booktabs = TRUE, title = "", cgroup = c('Cum', 'Points'),
colheads = rep(c('Worst', 'Best'), 2))
上一篇: R data.frame with stacked specified titles for latex output with xtable
下一篇: Any way to produce a LaTeX table from an lme4 mer model fit object?