r - R Formattable は、領域に 2 つの形式を適用します

Question

フォーマット可能な素晴らしいパッケージを使用して、パーセンテージと色が複数の列にスケーリングされたテーブルを取得しようとしています。

ここにコードがあります

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

df$a <- percent(df$a)
df$b <- percent(df$b)
df$c <- percent(df$c)


table_with_percent_but_color_not_scaled <- formattable(df, list(a = color_tile("transparent", "pink")
                     , b= color_tile("transparent", "pink")
                     , c= color_tile("transparent", "pink")))

table_with_color_scaled_but_not_percent <- formattable(df, list(area(col = 2:4)  ~  color_tile("transparent","pink")))

問題はtable_with_color_scaled_but_not_percent、パーセンテージ形式を維持しないことです:

table_with_percent_but_color_not_scaled色を着色するために同じスケールを維持しないでください：

area最終コードで df の列数と名前が変更されるため、理想的にはこの機能を使用したいと考えています。何か案が ？ありがとう！