[我想知道是否有人知道如何在Xtable下添加脚注，以及如何用垂直线分隔每列以使此表看起来更整洁。
我希望我的脚注说“这些是ADF测试结果”
我在下面复制了我的代码和数据框
{r table_3, echo = FALSE, warning = FALSE, message = FALSE, results = 'asis'}
library(tidyverse)
library(tidyselect)
library(xtable)
library(readxl)
library(knitr)
# Create Dataframe
variables <- c("Argentina Bond Flows", "Argentina Equity Flows", "Chile Bond Flows", "Chile Equity Flows", "Mexico Bond Flows",
"Mexico Equity Flows", "Indonesia Bond Flows", "Indonesia Equity Flows", "Korea Bond Flows", "Korea Equity Flows",
"Philippines Bond Flows", "Philippines Equity Flows", "Thailand Bond Flows", "Thailand Equity Flows",
"South Africa Bond Flows", "South Africa Equity Flows","United States S&P 500", "United States M1")
adf <- c("-4.3557","-6.4865","-3.4893","-3.3485","-2.6294","-5.511","-2.9238","-6.0305","-9.7081","-2.0444","-4.7619","-5.6108","-4.6314","-4.6218","-4.3337","-3.7213","2.6471"," 4.0174")
pp <- c("-6.9685","-9.3864","-6.7449","-5.6533","-6.0265","-9.4065","-6.531","-7.5043","-21.0764","-3.5716","-8.3505","-6.5574 ","-10.3266","-7.445","-8.9639","-6.3464","-11.1298","4.0512")
variables2 <- c("Argentina M1", "Argentina Equity Index", "Chile M1", "Chile Equity Index", "Mexico M1",
"Mexico Equity Index", "Indonesia M1", "Indonesia Equity Index", "Korea M1", "Korea Equity Index",
"Philippines M1", "Philippines Equity Index", "Thailand M1", "Thailand Equity Index",
"South Africa M1", "South Africa Equity Index","", "")
adf2 <- c("-6.9593","6.1785","3.6245","-2.2697","3.2417","2.4172","2.4237","2.0484","3.8211","-6.938","-6.9593","-7.7315","-6.9593","6.1785","-8.0415 ","2.5385","","")
pp2 <- c("-13.7725","4.8728","-11.0177","-9.3776","-14.3688 ","-2.2334","-13.1095","-8.8171","-11.1806","-9.8397","-13.7725","-9.4015","-2.6801","-11.8756","-10.681"," -9.6241","","")
unit_table <- data.frame(variables, adf, pp,variables2, adf2,pp2)
colnames(unit_table) <- c("Country Variable", "ADF", "PP","Country Variable", "ADF", "PP")
# Create a table using XTable
table <- xtable(unit_table, caption = "Unit Root Test Results \\label{Table3}",
# tabular.environment = "longtable",
floating = TRUE,
table.placement = 'H',
include.rownames = FALSE,
# scalebox = 0.3,
comment = FALSE,
caption.placement = 'top'
)
bold <- function(x) {paste('{\\textbf{',x,'}}', sep ='')}
print(table, include.rownames = FALSE, sanitize.colnames.function=bold, comment = FALSE)
[此外，我该如何加粗表格中的某些单词。例如，如果我想加粗“韩国债券流”，我将如何去做？
TIA！
我不太使用xtable，但有一些建议可能会有所帮助。
首先，要添加脚注，您可以包括以下内容：
comment <- list(pos = list(0))
comment$pos[[1]] <- c(nrow(unit_table))
comment$command <- c(paste("\\hline\n",
"These are ADF test results.\n",
sep = ""))
然后在您print表格时，添加add.to.row = comment, hline.after = c(-1, 0)。有关更多详细信息，请参见类似的question。
要用垂直线分隔列，请使用align并提供具有对齐方式的图案（例如，左或右）以及需要分割的位置。例如，当您调用xtable功能时，添加选项align = "ll|l|l|l|l|l"。
到表中的[[bold特定单元格，为这些表元素添加代码，例如Korea Bond Flows的BOLD：
unit_table[9, "Country Variable"] <- paste0("BOLD", unit_table[9, "Country Variable"])
并使用函数检测此粗体代码：
bold.function <- function(x) gsub('BOLD(.*)', paste('\\\\textbf{\\1','}'),x)
并将sanitize.text.function = bold.function添加到xtable中。这里似乎是整个RMarkdown都可以正常工作。值得注意的是，在创建数据框时，我在
&中转义了United States S&P 500，并添加了stringsAsFactors = FALSE。
--- title: "Test" output: pdf_document classoption: landscape --- ```{r, results="asis", echo = FALSE} library(xtable) variables <- c("Argentina Bond Flows", "Argentina Equity Flows", "Chile Bond Flows", "Chile Equity Flows", "Mexico Bond Flows", "Mexico Equity Flows", "Indonesia Bond Flows", "Indonesia Equity Flows", "Korea Bond Flows", "Korea Equity Flows", "Philippines Bond Flows", "Philippines Equity Flows", "Thailand Bond Flows", "Thailand Equity Flows", "South Africa Bond Flows", "South Africa Equity Flows","United States S\\&P 500", "United States M1") adf <- c("-4.3557","-6.4865","-3.4893","-3.3485","-2.6294","-5.511","-2.9238","-6.0305","-9.7081","-2.0444","-4.7619","-5.6108","-4.6314","-4.6218","-4.3337","-3.7213","2.6471"," 4.0174") pp <- c("-6.9685","-9.3864","-6.7449","-5.6533","-6.0265","-9.4065","-6.531","-7.5043","-21.0764","-3.5716","-8.3505","-6.5574 ","-10.3266","-7.445","-8.9639","-6.3464","-11.1298","4.0512") variables2 <- c("Argentina M1", "Argentina Equity Index", "Chile M1", "Chile Equity Index", "Mexico M1", "Mexico Equity Index", "Indonesia M1", "Indonesia Equity Index", "Korea M1", "Korea Equity Index", "Philippines M1", "Philippines Equity Index", "Thailand M1", "Thailand Equity Index", "South Africa M1", "South Africa Equity Index","", "") adf2 <- c("-6.9593","6.1785","3.6245","-2.2697","3.2417","2.4172","2.4237","2.0484","3.8211","-6.938","-6.9593","-7.7315","-6.9593","6.1785","-8.0415 ","2.5385","","") pp2 <- c("-13.7725","4.8728","-11.0177","-9.3776","-14.3688 ","-2.2334","-13.1095","-8.8171","-11.1806","-9.8397","-13.7725","-9.4015","-2.6801","-11.8756","-10.681"," -9.6241","","") unit_table <- data.frame(variables, adf, pp,variables2, adf2,pp2, stringsAsFactors = FALSE) colnames(unit_table) <- c("Country Variable", "ADF", "PP","Country Variable", "ADF", "PP") # Create a table using XTable unit_table[9, "Country Variable"] <- paste0("BOLD", unit_table[9, "Country Variable"]) table <- xtable(unit_table, caption = "Unit Root Test Results \\label{Table3}", # tabular.environment = "longtable", floating = TRUE, table.placement = 'H', include.rownames = FALSE, # scalebox = 0.3, comment = FALSE, caption.placement = 'top', align = "ll|l|l|l|l|l" ) # Additional code added bold.function <- function(x) gsub('BOLD(.*)', paste('\\\\textbf{\\1','}'),x) comment <- list(pos = list(0)) comment$pos[[1]] <- c(nrow(unit_table)) comment$command <- c(paste("\\hline\n", "These are ADF test results.\n", sep = "")) print(table, add.to.row = comment, hline.after = c(-1, 0), sanitize.text.function = bold.function) ```