3

関数を使用してパーセント値のテーブルを作成しようとしていますarea()。しかし、実際にはまったく機能しません (つまり、パーセント値)。誰もそれを修正する方法を知っていますか?

#library(magrittr)
#library(dplyr)
#library(formattable)
#library(scales)

set.seed(123)
df <- data.frame(id = 1:10, 
             a = rnorm(10), b = rnorm(10), c = rnorm(10))

df <- df %>% 
    mutate(a = percent(a), b = percent(b), c = percent(c))

# show percentage value without using area function
formattable(df, list(a = color_tile("transparent", "pink"),
                     b = color_tile("transparent", "pink"),
                     c = color_tile("transparent", "pink")))

# does not show percentage value
formattable(df, list(area(col = a:c) ~ color_tile("transparent", "pink")))

sessionInfo()

[1] formattable_0.2   DT_0.1            scales_0.4.0 
[4] tidyr_0.4.1       rCharts_0.4.5     dplyr_0.4.3      
[7] shiny_0.13.2
4

2 に答える 2

0

これまでのところ、私が得た最良の結果は、次のコードを使用したものです。

formattable(df, list(area(col = a:c) ~ percent))

しかし、数字の桁数を変更する方法がわかりません:(

于 2017-06-15T19:58:32.983 に答える
0

Liliana のコメントへの追加:

最初に独自の関数を作成するときに、小数点以下の桁数を指定することもできます。

percent2 <- function(x) {
   x <- percent(x, 2)
}

次に、定義済みの小数点以下の桁数を持つチルダでこれを使用できます。

formattable(df, list(area(col = a:c) ~ percent2))
于 2018-09-14T13:25:42.400 に答える