在 gvisTable 中舍入数字

Question

我是 googleVis 的新手，我无法让它将 table 中的数字四舍五入到小数点后两位。任何帮助将不胜感激。

目前我正在使用代码

gvisTable(round(data_frame),2)

我试过了

gvisTable(data_frame, formats=list(data_frame="##.##"))

但没有帮助

Answer 1

您必须指定要舍入的列。在下面的示例中，我将 'Revenue' 列四舍五入。您可以查看格式 here and here

我下面的例子：

rm(list = ls())
library(shiny)
library(googleVis)

# Sample data
dat <- data.frame(Product=c("Milk", "Butter", "Yoghurt", "Total"),Revenue=c(2230.32787, 43908.123432, 231.5343, 46369.1112))

ui = fluidPage(htmlOutput("my_table"))
server = function(input, output) {
  output$my_table <- renderGvis({gvisTable(dat, options=list(width=300, height=150),formats=list('Revenue'='##.##'))})}
runApp(list(ui = ui, server = server))

在 gvisTable 中舍入数字

Round up numbers in gvisTable

shiny