有沒有人想出一個解決方案來調整knitr文檔中顯示的圓整R值,或者沿着\Sexpr{}
或通過xtable
?打字?round
返回Note that for rounding off a 5, the IEC 60559 standard is expected to be used, ‘go to the even digit’
。固定圓形R值在xtable在knitr
當使用xtable顯示來自數據框的計算數字時,我的問題是以下情況。如果在一個單獨的列分別顯示在表中的值,讀出器會假設有一個計算誤差:
2.5 + 3.1 = 5.6
將顯示爲
2 + 3 = 6
當R舍入數字(我已將有效數字設置爲0,因爲觀衆不需要更多細節)。無論顯示多少個小數位,這種情況都可能發生(我想避免顯示任何!)。
我使用以下內嵌表達式,但我很少在段落中插入一個數字,它通常不會顯示爲計算。對於小於10且大於-10的數字,這將顯示1位小數位,並且應該以偶數以0.5結尾。
number_hook <- function(x) {
if (is.numeric(x)) {
if (x < 10 & x > 0 | x < 0 & x > -10) {
y = prettyNum(x,
small.mark = ".",
digits = 2)
return(y)
} else if (sign(x) == 1) {
y = x + 0.5
y = trunc(y)
y = prettyNum(y, big.mark = ",", small.mark = ".", digits = 0)
return(y)
} else if (sign(x) == -1) {
y = x - 0.5
y = trunc(y)
y = prettyNum(y, big.mark = ",", small.mark = ".", digits = 0)
return(y)
}
} else {
x
}
}
任何幫助,解決方法,或建議表示讚賞!謝謝!
我也訪問了this similar question。
你能詳細說明你是如何使用xtable的嗎?你能否在創建一個xtable對象之前不應用「number_hook」之類的東西? – detroyejr
@ jonathande4我原本是想通過一個函數來運行每個數據框,然後把數據放在xtable中... – Prevost
假設你的原始函數按照預期工作,你可以使用類似於: 'xtable: :xtable(dplyr :: mutate_if(iris,is.numeric,number_hook))' xtable也有一個你可以使用的數字參數。這是否讓你得到你所需要的? – detroyejr