【发布时间】：2010-08-09 21:42:17
【问题描述】：
编辑：根据 aL3xa 的回答，我在下面修改了他的语法。不完美，但越来越接近。我还没有找到让 xtable 接受列或行的 \multicolumn{} 参数的方法。 Hmisc 似乎也在幕后处理了其中一些类型的任务，但要了解那里发生的事情似乎是一项艰巨的任务。有人对 Hmisc 中的乳胶功能有经验吗？
ctab <- function(tab, dec = 2, margin = NULL) {
tab <- as.table(tab)
ptab <- paste(round(prop.table(tab, margin = margin) * 100, dec), "%", sep = "")
res <- matrix(NA, nrow = nrow(tab) , ncol = ncol(tab) * 2, byrow = TRUE)
oddc <- 1:ncol(tab) %% 2 == 1
evenc <- 1:ncol(tab) %% 2 == 0
res[,oddc ] <- tab
res[,evenc ] <- ptab
res <- as.table(res)
colnames(res) <- rep(colnames(tab), each = 2)
rownames(res) <- rownames(tab)
return(res)
}
我想为 LaTeX 输出创建一个表格，其中包含每个列或变量的计数和百分比。我还没有找到解决这个问题的现成解决方案，但我觉得我必须在某种程度上重新创建轮子。
我已经为直接制表开发了一个解决方案，但在为交叉制表采用某些东西时遇到了困难。
首先是一些示例数据：
#Generate sample data
dow <- sample(1:7, 100, replace=TRUE)
purp <- sample(1:4, 100, replace=TRUE)
dow <- factor(dow, 1:7, c("Mon", "Tues", "Wed", "Thurs", "Fri", "Sat", "Sun"))
purp <- factor(purp, 1:4, c("Business", "Commute", "Vacation", "Other"))
现在可以使用直接选项卡功能：
customTable <- function(var, capt = NULL){
counts <- table(var)
percs <- 100 * prop.table(counts)
print(
xtable(
cbind(
Count = counts
, Percent = percs
)
, caption = capt
, digits = c(0,0,2)
)
, caption.placement="top"
)
}
#Usage
customTable(dow, capt="Day of Week")
customTable(purp, capt="Trip Pupose")
有没有人有任何建议将其用于交叉表（即按旅行目的一周中的哪一天）？这是我目前写的，它不使用 xtable 库，几乎可以工作，但不是动态的，而且很难使用：
#Create table and percentages
a <- table(dow, purp)
b <- round(prop.table(a, 1),2)
#Column bind all of the counts & percentages together, this SHOULD become dynamic in future
d <- cbind( cbind(Count = a[,1],Percent = b[,1])
, cbind(Count = a[,2], Percent = b[,2])
, cbind(Count = a[,3], Percent = b[,3])
, cbind(Count = a[,4], Percent = b[,4])
)
#Ugly function that needs help, or scrapped for something else
crossTab <- function(title){
cat("\\begin{table}[ht]\n")
cat("\\begin{center}\n")
cat("\\caption{", title, "}\n", sep="")
cat("\\begin{tabular}{rllllllll}\n")
cat("\\hline\n")
cat("", cat("", paste("&\\multicolumn{2}{c}{",colnames(a), "}"), sep = ""), "\\\\\n", sep="")
c("&", cat("", colnames(d), "\\\\\n", sep=" & "))
cat("\\hline\n")
c("&", write.table(d, sep = " & ", eol="\\\\\n", quote=FALSE, col.names=FALSE))
cat("\\hline\n")
cat("\\end{tabular}\n")
cat("\\end{center}\n")
cat("\\end{table}\n")
}
crossTab(title = "Day of week BY Trip Purpose")
【问题讨论】：
-
不要对 LaTeX 进行硬编码，很快它就会变得难以管理。同样代表 HTML。看看
xtable的文档，看看我的回答（看看一个自负的人的话）。