1

我想友好地问一下，如果有人知道在 R 中使用 'rpivotTable()' 包时如何使某个变量名在选择区域中不可见？

例如，我使用“UCBAdmission”数据集构建了一个数据透视表：

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

是 的输出rp： 输出截图

但是，如果用户不小心将“Freq”拖到“col”或“row”区域，表格会很大，但这不是我想要的。

所以我想找到一种方法让“频率”从选择区域不可见。我在这里使用了代码，但这只能自定义整个表，但不能自定义单个变量。

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

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

我很感激任何答复。

谢谢！

此致

4

0 回答 0