1

我正在创建一个应用程序，该应用程序将从用户那里获取动态输入，并且应该生成条形图和折线图。为了获得适当的条形百分比，我觉得我需要总结我的数据。由于我的数据很大，我正在使用 data.table。

我正在寻找的是在行中选择的变量应该是我的 x 轴，y 轴应该用于计算百分比（分母）。比例为 100%。我创建了一个示例数据来描述这种情况。

下面是我正在使用的闪亮代码 -

library("shiny")
library("ggplot2")
library("scales")
library("data.table")
library("plotly")

Location <- sample(1:5,100,replace = T)
Brand <- sample(1:3,100,replace = T)
Year <- rep(c("Year 2014","Year 2015"),50)
Q1 <- sample(1:5,100,replace = T)
Q2 <- sample(1:5,100,replace = T)

mydata <- as.data.table(cbind(Location,Brand,Year,Q1,Q2))

ui <- shinyUI(fluidPage(
  sidebarPanel(
    fluidRow(
      column(10,
             div(style = "font-size: 13px;", selectInput("rowvar", label = "Select Row Variable", ''))
      ),
      tags$br(),
      tags$br(),
      column(10,
             div(style = "font-size: 13px;", selectInput("columnvar", "Select Column Variable", ''))
      ))

  ),
  tabPanel("First Page"),
  mainPanel(tabsetPanel(id='charts',
                        tabPanel("charts",tags$b(tags$br("Graphical Output" )),tags$br(),plotlyOutput("plot1"))
  )
  )
))

server <- shinyServer(function(input, output,session){
  updateTabsetPanel(session = session
                    ,inputId = 'myTabs')

  observe({
    updateSelectInput(session, "rowvar", choices = (as.character(colnames(mydata))),selected = "mpg")
  })

  observe({
    updateSelectInput(session, "columnvar", choices = (as.character(colnames(mydata))),selected = "cyl")
  })

  output$plot1 <- renderPlotly({
    validate(need(input$rowvar,''),
             need(input$columnvar,''))
countdd <- mydata[,.N,by=.(get(input$rowvar),get(input$columnvar))]
sumdd <- countdd[,sum(N),get(input$columnvar)]
propdd <- countdd$N/sumdd$V1[match(paste0("countdd$",get(input$columnvar)),paste0("sumdd$",get(input$columnvar)))]
countdd$prop <- round(propdd*100,2)

ggplot(countdd,aes(x=get(input$rowvar),y=prop)) + geom_bar(stat = 'sum')

  })

})

shinyApp(ui = ui, server = server)

但是当我运行这段代码时，它给了我错误 -错误：“by”或“keyby”列表中的项目是长度（100）。每个必须与 x 中的行长度或 i (6) 返回的行数相同。

如何创建一个反应性 data.table 以便我可以使用它来生成我的条形图和线图。我们不能在 i,j 和 data.table 的一部分中传递动态变量吗？

请推荐！！

4

1 回答 1

0

您可以通过在表达式中使用字符向量（如input$rowvar）。如果您想要一个汇总数据的图，这样所有三个品牌的总和每年总计为 1：data.tableeval()prop.table(table(mydata$Brand,mydata$Year),2)

    Year 2014 Year 2015
  1      0.48      0.38
  2      0.24      0.32
  3      0.28      0.30

然后试试这个（总共是 100）：

  output$plot1 <- renderPlotly({
    validate(need(input$rowvar,''),
             need(input$columnvar,''))
    countdd <- mydata[, .(n = .N), by = eval(c(input$rowvar, input$columnvar))]
    sumdd <- countdd[, .(total = sum(n, na.rm = TRUE)), by = eval(c(input$rowvar))]
    setkeyv(countdd, input$rowvar)
    setkeyv(sumdd, input$rowvar)
    propdd <- sumdd[countdd]
    propdd[, proportion := round(100 * n / total, 2)]
    ggplot(propdd, aes_string(x = input$rowvar, y = "proportion",
      fill = input$columnvar)) + geom_bar(stat = 'sum')
  })

year当是行变量并且brand是应用程序中的列变量时，它会产生此图shiny：

汇总数据

于 2017-03-18T01:59:57.583 回答