r - RのrpivotTable:選択領域で特定の変数名を非表示にすることは可能ですか?

Question

Rで「rpivotTable()」パッケージを使用するときに、特定の変数名を選択領域で非表示にする方法を誰かが知っているかどうかをフレンドリーに尋ねたいですか?

たとえば、「UCBAdmission」データ セットを使用してピボット テーブルを作成します。

# use rpivotTable to illustrate the effect
rp <- rpivotTable(UCBAdmissions, height=200)

の出力は次のrpとおり です。

ただし、ユーザーが誤って「Freq」を「col」または「row」領域にドラッグすると、テーブルが非常に大きくなりますが、これは私が望むものではありません。

そこで、選択領域から「Freq」を見えないようにする方法を見つけたいと思います。ここでコードを使用しましたが、これはテーブル全体のみをカスタマイズできますが、個々の変数はカスタマイズできません。

style_widget <- function(hw=NULL, style="", addl_selector="") {
stopifnot(!is.null(hw), inherits(hw, "htmlwidget"))

# use current id of htmlwidget if already specified
elementId <- hw$elementId
if(is.null(elementId)) {
# borrow htmlwidgets unique id creator
elementId <- sprintf(
  'htmlwidget-%s',
  htmlwidgets:::createWidgetId()
)
hw$elementId <- elementId
}

htmlwidgets::prependContent(
hw,
htmltools::tags$style(
  sprintf(
    "#%s %s {%s}",
    elementId,
    addl_selector,
    style
  )
 )
 )
 }


library(htmltools)
library(htmlwidgets)
library(rpivotTable)

# use rpivotTable to illustrate the effect
rp <- rpivotTable(UCBAdmissions, height=200)

browsable(
tagList(
rp,
style_widget(hw=rp, "font-family:monospace;"),
style_widget(hw=rp, "visibility:none;", "table td")
)
)

個々の変数のカスタマイズを制御する方法がわかりません。誰かがそれを知っているか、それについて何か考えを持っていますか?

返信ありがとうございます。

ありがとうございました！

よろしくお願いします