R中的rpivotTable：是否有可能在选择区域中使某个变量名不可见？

Question

我想友好地问，如果有人知道如何在使用＆＃39; rpivotTable（）＆＃39;时在选择区域中使某个变量名不可见。包裹在R？

例如，我使用＆＃34; UCBAdmission＆＃34;来构建数据透视表。数据集：

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

是rp的输出：

但是，如果用户意外拖动了＃34; Freq＆＃34;到＆＃34; col＆＃34;或＆＃34;行＆＃34;区域，桌子会很大但这不是我想要的。

所以我想找到一种方法来制作＆＃34; Freq＆＃34;从选择区看不见。我在这里使用了代码，但这只能自定义整个表而不是单个变量。

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")
)
)

我不知道如何控制个别变量的自定义。有谁知道它或有任何想法吗？

我感谢您的回复。

谢谢！

祝你好运