Rreactableパッケージを使用して、2 つの groupBy 変数を使用してフラグ付きの読み取り値の割合を表示しようとしています。グループ化の下位レベルでは、これは正しいパーセンテージを計算しています。ただし、グループ化の 2 番目 (外側) のレベルでは、正しいパーセンテージが表示されていません。
データは次のとおりです。
dat <- structure(list(Date = structure(c(1592611200, 1592611200, 1592611200,
1592611200, 1592697600, 1592697600,
1592697600, 1592697600, 1592784000,
1592784000, 1592784000, 1592784000,
1592870400, 1592870400, 1592870400,
1592870400, 1592956800, 1592956800,
1592956800, 1592956800, 1593043200,
1593043200, 1593043200, 1593043200,
1593129600, 1593129600, 1593129600,
1593129600, 1593216000, 1593216000,
1593216000, 1593216000, 1593302400,
1593302400, 1593302400, 1593302400,
1593388800, 1593388800, 1593388800,
1593388800),
tzone = "UTC", class = c("POSIXct", "POSIXt")),
variable = c("Incoming Reading 1", "Outgoing Reading 1", "Incoming Reading 2", "Outgoing Reading 2", "Incoming Reading 1",
"Outgoing Reading 1", "Incoming Reading 2", "Outgoing Reading 2", "Incoming Reading 1", "Outgoing Reading 1",
"Incoming Reading 2", "Outgoing Reading 2", "Incoming Reading 1", "Outgoing Reading 1", "Incoming Reading 2",
"Outgoing Reading 2", "Incoming Reading 1", "Outgoing Reading 1", "Incoming Reading 2", "Outgoing Reading 2",
"Incoming Reading 1", "Outgoing Reading 1", "Incoming Reading 2", "Outgoing Reading 2", "Incoming Reading 1",
"Outgoing Reading 1", "Incoming Reading 2", "Outgoing Reading 2", "Incoming Reading 1", "Outgoing Reading 1",
"Incoming Reading 2", "Outgoing Reading 2", "Incoming Reading 1", "Outgoing Reading 1", "Incoming Reading 2",
"Outgoing Reading 2", "Incoming Reading 1", "Outgoing Reading 1", "Incoming Reading 2", "Outgoing Reading 2"),
reading = c(60, 55, 60, 72,
61, 56, 60, 71,
62, 55, 61, 72,
61, 54, 60, 71,
62, 53, 60, 72,
61, 52, 59, 71,
60, 51, 60, 72,
62, 50, 60, 71,
61, 55, 61, 72,
62, 56, 60, 70),
in_spec = c (1, 1, 1, 1,
1, 1, 1, 1,
1, 1, 1, 1,
1, 1, 1, 1,
1, 0, 1, 1,
1, 0, 0, 1,
1, 0, 1, 1,
1, 0, 1, 1,
1, 1, 1, 1,
1, 1, 1, 1),
category = c("reading_1", "reading_1", "reading_2", "reading_2",
"reading_1", "reading_1", "reading_2", "reading_2",
"reading_1", "reading_1", "reading_2", "reading_2",
"reading_1", "reading_1", "reading_2", "reading_2",
"reading_1", "reading_1", "reading_2", "reading_2",
"reading_1", "reading_1", "reading_2", "reading_2",
"reading_1", "reading_1", "reading_2", "reading_2",
"reading_1", "reading_1", "reading_2", "reading_2",
"reading_1", "reading_1", "reading_2", "reading_2",
"reading_1", "reading_1", "reading_2", "reading_2")),
row.names = c(NA, -40L), class = c("tbl_df", "tbl", "data.frame"))
このデータでは、in_spec列の 1 は読み取り値が許容範囲内にあったことを意味します。0 の場合は、指定範囲外です。データが入ってくると、仕様内または仕様外としてフラグが付けられます。
そして、これが私がこれまでに持っているコードです:
library(reactable)
reactable(dat[, c("Date", "variable", "reading",
"category", "in_spec")],
columns = list(in_spec = colDef(name = "In Spec",
aggregate = JS("function(values, rows) {
var totalReadings = 0;
var inSpecReadings = 0;
rows.forEach(function(row) {
if(row['in_spec'] == 1) {
inSpecReadings += 1;
}
totalReadings += 1;
})
return (inSpecReadings / totalReadings);
}")
)
),
groupBy = c("category", "variable"))
現在の出力は次のとおりです。
reading_1 および reading_2 カテゴリ内では、各変数が仕様内の読み取り値の正しいパーセンテージを示しています。ただし、最も外側のレベルでは、各カテゴリは必要なパーセンテージを計算していません。各カテゴリ内で、仕様内の読み取りの合計数と読み取りの合計数をカウントしたいと考えています。次に、仕様内の合計を読み取りの合計数で割ります。
この例では、最初のグループ (reading_1) に 16 個の仕様内読み取り値と 20 個の合計読み取り値があるため、0.8 を表示したいと考えています。2 番目のグループ (reading_2) には 19 個の仕様内読み取り値と 20 個の合計読み取り値があるため、0.95 を表示したいと考えています。
カスタム集計関数を作成するのが正しい方法だと思いますが、よくわかりません。私は通話dplyr以外の解決策reactableを受け入れますが、個々の読み取り値を失いたくないので、要約はおそらく機能しません。