將符號（*）添加到滿足R筆記本中條件（大於）的表中的值

Question

我想在R Notebook中滿足條件的值上添加標記。 我可以使用knitr html表，但常規表也可以。

該表總結了一個結果，我想強調一下那些大於分析的置信度（0.95）的結果。 以粗體顯示值可以，在數字后面也可以添加“ *” ...

我一直在嘗試...但是我無法做到...除了在所有單元格之間循環（for循環）並在滿足條件的情況下粘貼“ *”。 但是應該有更好的方法！ 謝謝！

一個例子：

example <- structure(list(Period = structure(1:3, .Label = c("period1", 
"period2", "period3", "period4", "period5", "period6", "period7"
), class = "factor"), Amphibians = c(1, 0.821782178217822, 0.891089108910891
), Aves = c(1, 0.811881188118812, 0.316831683168317)), .Names = c("Period", 
"Amphibians", "Aves"), row.names = c(NA, 3L), class = "data.frame")

Answer 1

這是將*添加到kable的一種方法。 您需要一個數字版本以與0.95進行比較，並需要一個字符版本以粘貼* 。 同樣，對於這種事情，因素也是可怕的。

example_temp <- apply(example,2,as.numeric)
example <- apply(example,2,as.character)
example <- as.data.frame(example,stringsAsFactors=FALSE)

example[example_temp>.95&!is.na(example_temp)] <-paste(example[example_temp>.95&!is.na(example_temp)] ,"*")

kable(example)

|Period  |Amphibians  |Aves        |
|:-------|:-----------|:-----------|
|period1 |1.0000000 * |1.0000000 * |
|period2 |0.8217822   |0.8118812   |
|period3 |0.8910891   |0.3168317   |