퍼센트가 area() 함수에서 작동하지 않습니다 - 형식 테이블

Question

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  

Answer 1

지금까지 내가 들어 왔 가장 좋은 결과는이 코드를 사용하고 있습니다 :

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

을하지만 숫자의 자릿수를 변경하는 방법을 모른다 :(