在knitr中将for循环应用于xtable时出错

The function seems to produce the desired result but when I compile the document the 'include.rownames = FALSE' argument in print.xtable does not seem to work and I'm getting the following error printed in the pdf: TRUE Error in rep(" ", nrow(x) + 2): invalid ’times’ argument 这是我创建用于逻辑测试的矩阵的方式:Here's how I'm creating the matrix I'm using for the logical test: l.vec <- as.logical(c(1,1,1,1,1, 1,1,1,1,1, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,1))l.mat <- matrix(l.vec, nrow = 6, ncol = 5, byrow = TRUE)这是我打印表格的方式:And here's how I'm printing the table: x.df.2 <- (xtable(df.2))x.df.3 <- bold(x.df.2, l.mat)print.xtable(x.df.3, include.rownames = FALSE)我已经不在这里了，我无法解决这个问题.我觉得我对xtable，latex和knitr的工作方式以及如何理解该错误的交互方式还不够了解.关于导致这些错误的原因的任何指导都将非常有帮助. I'm already well out of my depth here and I can't wrap my head around this problem. I feel like I don't understand enough about how xtable, latex and knitr work and interact to understand this error. Any guidance as to what's causing these errors would be very helpful. 样本数据框:df.2 <- DATE CY FY Quarter XEMPNIN 275 2043:3 2043 2044 3 3324.391 276 2043:4 2043 2044 4 3326.214 277 2044:1 2044 2044 1 3328.492 278 2044:2 2044 2044 2 3330.100 279 2044:3 2044 2045 3 3331.963 280 2044:4 2044 2045 4 3334.248推荐答案您已经关闭.问题出在您的bold()函数上.试试:You were close. The problem is with your bold() function. Try:bold <- function(x, matrix) { x[] <- lapply(x, as.character) for (i in 1:ncol(x)) { yes <- matrix[,i] x[yes,i] <- paste('\\textbf{', x[yes,i], '}', sep = "") } return(x)}并将sanitize.text添加到print.xtable()调用中:print.xtable( x.df.3, include.rownames = FALSE, sanitize.text.function = identity )这应该给您您想要的东西:This should give you what you want: 可以完全复制的.Rnw文件此处.A fully reproducible .Rnw file is available here. 这篇关于在knitr中将for循环应用于xtable时出错的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！