rowsum独立工作，但在服务器函数中不能工作

Question

当使用rowsum在函数外部按团队汇总值时，它可以工作，但当放在仪表板的服务器函数内时，它会返回最大值。

我一直在rowsum和dplyr之间转来转去。

install.packages(c("shiny","shinydashboard","ggplot2","dplyr"))
#this is just a subset of the entire data frame
data.frame(Team =  
  c("Blue","Blue","Blue","Green","Green","Green","Gold","Gold","Gold") 
  ,Revenue = c(1455,1462,3440,900,2299,1139,2472,2830,1789))

header <- dashboardHeader(title = "July 2019")
sidebar <- dashboardSidebar(
  sidebarMenu(
    menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard"))
  )
)

frow2 <- fluidRow(
  box(
    title = "Revenue by Team"
    ,status = "primary"
    ,solidHeader = TRUE
    ,collapsible = TRUE
    ,plotOutput("team.revenue", height = "400px")
  )
)

body <- dashboardBody(frow2)
ui <- dashboardPage(title = "Title", header, sidebar, body)

server <- function(input, output) {
  team.revenue <-  rowsum(July$Revenue, July$Team, reorder = TRUE)
output$team.revenue <- renderPlot({
    ggplot(data = July,
           aes(x=Team, y=Revenue , fill = factor(July$Team)))+
      geom_bar(position = "dodge", stat = "identity") + ylab("Revenue")+
      xlab("Team") + theme(legend.position = "bottom"
                           ,plot.title = element_text(size = 15, face = 
"bold"))+
      ggtitle("Revenue by Team") + labs(fill = "Team")
  })
}
shinyApp(ui, server)

没有错误的messages.The最终产品应该显示每个团队的总数。我的结果是报告每个团队的最大值。

Answer 1

通过使用tidyverse中的group_by/summarise，我们可以在dplyr中完成所有这些工作

library(dplyr)
library(ggplot2)
library(shiny)
library(shinydashboard)
server <- function(input, output) {

  output$team.revenue <- renderPlot({
    July %>%
         group_by(Team) %>%
         summarise(Revenue = sum(Revenue)) %>%
    ggplot(data =.,
           aes(x=Team, y=Revenue , fill = factor(Team)))+
      geom_bar(position = "dodge", stat = "sum") + ylab("Revenue")+
      xlab("Team") + theme(legend.position = "bottom"
                           ,plot.title = element_text(size = 15, face = 
                                                        "bold"))+
      ggtitle("Revenue by Team") + labs(fill = "Team")
  })
}