有一种方法不是在 Hmisc 中而是使用starpolishr包，
install.packages("devtools")
library(devtools)
install_github("ChandlerLutz/starpolishr");library(starpolishr)
插入带有标题包的脚注
la<-latex(mtcars[1:2,1:5],file="example.tex",caption = "table using caption",
where="!htbp")
file0<-readLines("example.tex")
file0<-star_notes_tex(file0, note = "file using caption*")
cat(file0, file = paste0(getwd(),"/file0.tex"),sep="\n")
使用 Threeparttable 插入脚注
注意，您必须在 Hmisc::latex 中使用标题和标签参数
mt <- mtcars[1:2,1:5]
mt[1,1]<-paste0(mt[1,1],"\\tnote{*}")
la<-latex(mt,file="example1.tex",label=" ",caption="table using threeparttable",
where="!htbp")
file1<-readLines("example1.tex")
file1<-star_notes_tex(file1, note.type = "threeparttable",
note = "* notes with threeparttable : For this example you must use both label and caption, the
threepartable code is meant to be used with tables generated by
stargazer where a row with label is present. Otherwise the threepart table
argument is badly positionned.")
cat(file1, file = paste0(getwd(),"/file1.tex"),sep="\n")
