5

サンプル データ ( formattablegithub ドキュメントから修正):

df <- data.frame(
  id = 1:10,
  name = c("Bob", "Ashley", "James", "David", "Jenny", 
           "Hans", "Leo", "John", "Emily", "Lee"), 
  age = c(48, 47, 40, 28, 29, 29, 27, 27, 31, 30),
  test1_score = c(18.9, 19.5, 19.6, 12.9, 11.1, 7.3, 4.3, 3.9, 2.5, 1.6),
  test2_score = c(9.1, 9.1, 9.2, 11.1, 13.9, 14.5, 19.2, 19.3, 19.1, 18.8),
  stringsAsFactors = FALSE)

次のように、余分な色の書式設定を使用してきれいなテーブルを作成できます。

library(formattable)
formattable(df, list(
  age = color_tile("white", "orange"),
  test1_score = color_bar("pink", 0.2),
  test2_score = color_bar("pink", 0.2)
))

次のようになります。

ここに画像の説明を入力

私がやりたいことは、最初の n 行 (ここでは n=3) のみを保持するように、このテーブルをフィルター処理することです。これを行わない方法は、典型的なサブセット化を行うことです。これは、カラー スケールが元のデータではなく、データのサブセットの最小/最大にのみ適用されるためです。すなわち

formattable(df[1:3,], list(
  age = color_tile("white", "orange"),
  test1_score = color_bar("pink", 0.2),
  test2_score = color_bar("pink", 0.2)
))

これは次のようになります。

ここに画像の説明を入力

これにより、明らかに色が再スケーリングされました。

strオブジェクトの を見る:

str(
formattable(df, list(
  age = color_tile("white", "orange"),
  test1_score = color_bar("pink", 0.2),
  test2_score = color_bar("pink", 0.2)
)) 
)

Classes ‘formattable’ and 'data.frame': 10 obs. of  5 variables:
 $ id         : int  1 2 3 4 5 6 7 8 9 10
 $ name       : chr  "Bob" "Ashley" "James" "David" ...
 $ age        : num  48 47 40 28 29 29 27 27 31 30
 $ test1_score: num  18.9 19.5 19.6 12.9 11.1 7.3 4.3 3.9 2.5 1.6
 $ test2_score: num  9.1 9.1 9.2 11.1 13.9 14.5 19.2 19.3 19.1 18.8
 - attr(*, "formattable")=List of 4
  ..$ formatter: chr "format_table"
  ..$ format   :List of 1
  .. ..$ :List of 3
  .. .. ..$ age        :function (x)  
  .. .. ..$ test1_score:function (x)  
  .. .. ..$ test2_score:function (x)  
  ..$ preproc  : NULL
  ..$ postproc : NULL

構造には他の要素が含まれているため、生成されたオブジェクトをフィルタリング/サブセット化することはできません。

テーブル/データフレーム全体が使用された場合のカラースケールを備えた上位n行のみを出力する方法はありますか?

4

1 に答える 1

8

データ フレームのサブセットからの再スケーリングは、設計された機能です。再スケーリングを本当に回避する必要がある場合は、現在利用可能な回避策を試すことができます。

subset_df <- function(m) {
  formattable(df[m, ], list(
    age = x ~ color_tile("white", "orange")(df$age)[m],
    test1_score = x ~ color_bar("pink", 0.2)(df$test1_score)[m],
    test2_score = x ~ color_bar("pink", 0.2)(df$test2_score)[m]
  ))
}

subset_df(1:5)
subset_df(c(1,3,5,9))
subset_df(df$age <= mean(df$age))

基本的に、各列のフォーマッタ関数を強制的に固定データに適用し、生成されたフォーマットされた値を同じサブセットでフィルタリングします。

于 2015-11-01T00:22:18.383 に答える