Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/82.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
删除RpivotTable中的总计时出现问题_R_Shiny_Pivot Table_Dashboard_Rpivottable - Fatal编程技术网

删除RpivotTable中的总计时出现问题

删除RpivotTable中的总计时出现问题,r,shiny,pivot-table,dashboard,rpivottable,R,Shiny,Pivot Table,Dashboard,Rpivottable,请有人帮我删除RpivotTable中出现的总计,如图所示。我也在添加代码。 其上卡久了,请引导 问候 library(rpivotTable) rpivotTable(data = mtcars, subtotals = FALSE, rows = c( "cyl"),cols=c("carb"), vals = "mpg", aggregatorName = "Sum", rendererName = "Table", width="50%", height="550px") 当前版本的r

请有人帮我删除RpivotTable中出现的总计,如图所示。我也在添加代码。 其上卡久了,请引导

问候

library(rpivotTable)
rpivotTable(data = mtcars, subtotals = FALSE, rows = c( "cyl"),cols=c("carb"), vals = "mpg", aggregatorName = "Sum", rendererName = "Table", width="50%", height="550px")

当前版本的rPivottable不允许您删除总计,但下一个版本可能会删除。

当前版本的rPivottable不允许您删除总计,但下一个版本可能会删除总计。

我通过CSS实现了这样的工作(一种解决方法,因为只有显示是隐藏的):


mypivottable我是通过CSS(一种解决方法,因为只有显示是隐藏的)实现的:


mypivottable小计可以删除,显示在下面的第6行:

library(pivottabler)

pt <- PivotTable$new()

pt$addData(data)

pt$addColumnDataGroups("Date")  

pt$addRowDataGroups("SKU.ID" ,  addTotal=FALSE) 

pt$addRowDataGroups("Location" ,  addTotal=FALSE)

pt$renderPivot()

pt$defineCalculation(calculationName="Total Sales Qty", summariseExpression="sum(Sales_Qty, na.rm=TRUE)")

pt$defineCalculation(calculationName="TotalSalesQty")
pt$renderPivot()
库(数据透视表)

pt小计可以删除,显示在下面的第6行:

library(pivottabler)

pt <- PivotTable$new()

pt$addData(data)

pt$addColumnDataGroups("Date")  

pt$addRowDataGroups("SKU.ID" ,  addTotal=FALSE) 

pt$addRowDataGroups("Location" ,  addTotal=FALSE)

pt$renderPivot()

pt$defineCalculation(calculationName="Total Sales Qty", summariseExpression="sum(Sales_Qty, na.rm=TRUE)")

pt$defineCalculation(calculationName="TotalSalesQty")
pt$renderPivot()
库(数据透视表)
pt如果您添加
标记$style(.pvtTotalLabel.colTotal.rowTotal.pvtgrandtall{display:none;}”)
到用户界面。e、 g

ui <- fluidPage(
    tags$style(
        ".pvtTotalLabel, .colTotal, .rowTotal, .pvtGrandTotal { display: none; }"
    ),
    rpivotTableOutput("pivot_table", height = "100%")
)
ui如果您添加
标记$style(.pvtTotalLabel.colTotal.rowTotal.pvtgrandtall{display:none;}”)
到用户界面。e、 g

ui <- fluidPage(
    tags$style(
        ".pvtTotalLabel, .colTotal, .rowTotal, .pvtGrandTotal { display: none; }"
    ),
    rpivotTableOutput("pivot_table", height = "100%")
)

ui谢谢nicolas,你能告诉我下一个版本什么时候可用吗?我想再问你一件事,shiny应用程序的url没有加载,在日志中说内存不足,我不想最小化我的数据集,你能给我建议一个解决方案吗?嗨nicolas,我有两个问题。1) 如果不删除,是否可以隐藏总计?2) 我可以增加下拉列表的宽度吗?由于一些字符串很大,除非滚动到左边,否则在下拉列表中无法读取谢谢nicolas,你能告诉我下一个版本何时可用吗?我想再问你一件事,shiny应用程序的url没有加载,在日志中显示内存不足,我不想最小化我的数据集,你能给我建议一个解决方案吗?嗨nicolas,我有两个问题。1) 如果不删除,是否可以隐藏总计?2) 我可以增加下拉列表的宽度吗?因为有些字符串很大,除非向左滚动,否则在下拉列表中无法读取