在 R 中创建表的解释

Question

我在统计测试后从 R 数据帧在 PDF 中生成了一个乳胶表，我想创建该表的摘要，以解释其中的重要变量是什么。这怎么办？

这就是表：

  \hline
 & a & b & c & d & e \\ 
  \hline
a & 1.00 & 0.00 & 0.00 & 0.00 & 0.02 \\ 
  b & 0.00 & 1.00 & 0.00 & 0.08 & 0.40 \\ 
  c & 0.00 & 0.00 & 1.00 & 0.00 & 0.00 \\ 
  d & 0.00 & 0.08 & 0.00 & 1.00 & 0.99 \\ 
  e & 0.02 & 0.40 & 0.00 & 0.99 & 1.00 \\ 
   \hline

注意：显着变量是指值大于 0.7 的变量，例如（d 和 e 的值 =0.99）它们是显着的。我希望摘要作为表下的文本（例如，变量 d 和 e 非常相似 | a 和 e 是“弱相似”（0.02）T 与 C 更不相似），并且我想将 * 放在显着的位置数字，数字来自 R 中的数据框，

提前致谢

Answer 1

看看这是否符合您的要求。几乎可以肯定，有更有效的方法可以做到这一点，但没有任何有关数据结构的细节 - 这有点像读心术游戏，以了解您真正需要什么。话虽如此，假设数据来自 data.frame，这似乎可以满足您的要求：

require(xtable)
#Sample data
set.seed(1)
dat <- data.frame(matrix(abs(rnorm(25)), ncol = 5
  , dimnames = list(letters[1:5], letters[1:5])))


xtable(apply(dat, c(1,2), function(x) 
    ifelse(x > .7, paste(round(x,3), "**", sep = ""), 
    ifelse(x > .5, paste(round(x,3), "*" , sep = ""),round(x,3)))
))

产生：

% latex table generated in R 2.12.2 by xtable 1.5-6 package
% Tue Apr 12 21:23:31 2011
\begin{table}[ht]
\begin{center}
\begin{tabular}{rlllll}
  \hline
 & a & b & c & d & e \\ 
  \hline
a & 0.626* & 0.82** & 1.512** & 0.045 & 0.919** \\ 
  b & 0.184 & 0.487 & 0.39 & 0.016 & 0.782** \\ 
  c & 0.836** & 0.738** & 0.621* & 0.944** & 0.075 \\ 
  d & 1.595** & 0.576* & 2.215** & 0.821** & 1.989** \\ 
  e & 0.33 & 0.305 & 1.125** & 0.594* & 0.62* \\ 
   \hline
\end{tabular}
\end{center}
\end{table}
> 

Answer 2

使用 xtable 包中的 print.xtable。然后，您可以指定可以放置所需文本的标题。然后要添加星星，您只需添加一列即可：

require(xtable)
tbl$significance <- ifelse(tbl[,5] > .7, "*", "")
print.xtable(xtable(tbl), caption = "")