可以使用条件脚注吗？

Question

该etoolbox包提供了一个字符串相等性测试，可以像\cfootnote下面的宏一样使用。如果您愿意从相关单元格调用宏，如下面的第一个示例所示，那么将根据单元格值添加脚注。请注意%宏行末尾的，以防止在宏扩展期间出现不必要的空格等。

如果您想自动添加脚注而不编写重复的宏调用，那么您可以使用包collcell定义一个包含宏调用的新列类型，如下面的第二个示例所示。请注意，longtable和之间似乎存在不兼容性，这会导致错误，可以通过向表中添加基本类型的虚拟列（以及在每一行中添加一个额外的列，以及在空行中添加序列）collcell来解决此问题。&&

此外，我还使用了caption包和footnotemark来footnotetext修复脚注编号问题。

梅威瑟：

\documentclass{article}
\usepackage{longtable}
\usepackage{etoolbox}
\usepackage{collcell}
\usepackage{caption}

\newcommand*{\cfootnote}[1]{%
          #1%
          \ifstrequal{#1}{NAICS\_TITLE}{\footnote{Industry footnote}}{%
                \ifstrequal{#1}{TEI}{\footnote{NAICS footnote}}{%
                \ifstrequal{#1}{CDAFW}{\footnote{DAFW footnote}}{}%
            }%
        }%
}
\newcolumntype{L}{>{\collectcell\cfootnote}l<{\endcollectcell}}
%%%% First example
\begin{document}
\begin{longtable}{@{\extracolsep{-5pt}} llllllll}
\caption{First example. Incidence rates\protect\footnote{rates footnote} of nonfatal occupational injuries and illnesses by industry and case types, 2014}
\\[-1.8ex]\hline 
\hline \\[-1.8ex] 
\cfootnote{NAICS\_TITLE} & OWNERSHIP & \cfootnote{TEI} & TRC & \cfootnote{CDART} & CDAFW & CDJTR & CORC\\
\end{longtable}

%%%% Second example
\begin{longtable}{@{\extracolsep{-5pt}} LLLLLLLLr}
\caption{Second example. Incidence rates\protect\footnotemark\ of nonfatal occupational injuries and illnesses by industry and case types, 2014}\\[-1.8ex]
\footnotetext{rates footnote}&&&&&&&&\\[-1.8ex]\hline 
\hline &&&&&&&&\\[-1.8ex] 
NAICS\_TITLE & OWNERSHIP & TEI & TRC & CDART & CDAFW & CDJTR & CORC &\\
\end{longtable}
\end{document}

对于以后的问题，请提供完整的代码示例（而不是仅提供表中的几行）。

此解决方案使用的来源：

当参数是使用 etoolbox 命令的结果时，将参数与字符串进行比较

如何将宏应用于表格的每一列

collcell、longtable 和/或 arydshln 之间是否存在不兼容性？

如何在长表顶部添加标题？

编辑：关于自动添加额外内容&：这可能是 R 中最简单的。例如：

library(xtable)
# data frame
df <- data.frame(A = c(1,2,3), B = c(4,5,6), DUMMY = character(3))
colnames(df)[3] <- ""
xtable(df)
# with some xtable options
print.xtable(xtable(df, display = c("s","d","d","s"), align="LLLr"),include.rownames=FALSE, floating=FALSE, tabular.environment='longtable')

# matrix
df2 <- matrix(c(c(1,2,3,4,5,6),character(3)),nrow=3,ncol=3,byrow=FALSE)
dimnames(df2) = list(character(3),c("A","B","DUMMY"))
colfunc <- function(col) { sub("DUMMY","",col) }
print.xtable(xtable(df2),sanitize.colnames.function=colfunc)

注意：xtable替换矩阵中的空列名，可以通过使用选项删除列名来解决此问题sanitize。

关于重复的脚注：该fixfoot软件包非常接近，它会为给定页面上的所有脚注打印单个脚注。但是，编号是递增的。或者，您可以在第一页打印所有脚注，并\footnotemark在宏中使用相应的 s。

Answer 1