1

我正在尝试使用 Pander 包在 RMarkdown 文档中显示数据框。

我想突出显示每行值中的最小值。这是我尝试过的：

df <- replicate(4, rnorm(5)) 
df <- as.data.frame(df)
df$min <- apply(df, 1, min)
emphasize.strong.cells(which(df == df$min, arr.ind = T))
pander(df[1:4])

当我这样做时，我得到了错误：

Error in check.highlight.parameters(emphasize.strong.cells, nrow(t), ncol(t)) : 
  Too high number passed for column indexes that should be kept below 6

我可以毫无困难地打印出整个表格（带有 min 列），或者我可以不加强调地打印出部分表格，但这些都不是理想的。我想要突出显示，但我不希望包含“min”列。

我想我将一些突出显示的单元格从 pander 命令中删除的事实导致了错误。

有没有解决的办法？或者更好的方法来做到这一点？

谢谢。

子问题：如果我想突出显示前几行中的最小值和后面几行中的最大值怎么办。这可能在一张桌子上吗？

4

1 回答 1

1

除了which查找之外，有可能匹配错误行中的行最小值，您可以使用简单的序列 (1:N) 轻松构造这些数组索引并调用which.min每一行，例如apply：

> df <- replicate(4, rnorm(5))
> df <- as.data.frame(df)
> emphasize.strong.cells(cbind(1:nrow(df), apply(df, 1, which.min)))
> pander(df)

----------------------------------------------
    V1          V2          V3          V4    
----------- ----------- ----------- ----------
  0.6802      0.1409    **-0.7992**   0.1997  

  0.6797    **-0.2212**    1.016      0.6874  

   2.031     -0.009855    0.3881    **-1.275**

   1.376      0.2619    **-2.337**   -0.1066  

**-0.4541**    1.135      -0.1566     0.2912  
----------------------------------------------

关于您的下一个问题：您当然可以在单个表中执行此操作，例如，使用和 与rbind上述类似地创建两个矩阵。which.minwhich.max

于 2015-12-04T06:45:56.200 回答