ggplot沒有顯示在閃亮的應用程序

Question

全部， 我似乎無法得到我的陰謀來拉丁曼數據這個閃亮的應用程序。任何幫助將不勝感激。

ui.R

library(shiny) 
library(ggplot2) 
shinyUI(fluidPage(
    fluidRow(
sidebarLayout(
    sidebarPanel(
    selectInput("team","Select Team",choices=levels(teamID)), 
    sliderInput("year","Include Years in Range",min=1871,max=2014,value=c(1871,2014), sep="") 
    ), 
    mainPanel(
    plotOutput("pitchingplot") 
) 
) 
) 
)) 

server.R

library(dplyr) 
library(ggplot2) 
library(shiny) 

shinyServer(function(input, output) { 
    Pitching%>% 
group_by(input$teamID,yearID)%>% 
filter(teamID=input$team,yearID>=input$year[1]& yearID<=input$year[2]) 
summarise(TotER=sum(ER)) 

    output$pitchingplot<-renderPlot({ 
g<-ggplot(data=Pitching,aes(x=yearID,y=TotER)) + geom_point(aes(color=input$team)) 
g 
    }) 
}) 

Answer 1

你沒有確切指定你想要什麼，所以也很難幫助。我所能做的只是讓代碼工作 - 增加了被動數據集data並且改變了一些東西。

library(shiny) 
library(ggplot2) 
library(dplyr) 
library(Lahman) 

data("LahmanData") 

ui <- shinyUI(fluidPage(
    fluidRow(
    sidebarLayout(
     sidebarPanel(         # added Pithing$ 
     selectInput("team","Select Team", choices=levels(Pitching$teamID)), 
     sliderInput("year","Include Years in Range",min=1871,max=2014,value=c(1871,2014), sep="") 
    ), 
     mainPanel(
     plotOutput("pitchingplot") 
    ) 
    ) 
) 
)) 



server <- shinyServer(function(input, output) { 

    # create a reactive dataset which is passed to ggplot object 
    data <- reactive({ 
    Pitching%>% 
     group_by(teamID == input$team, yearID)%>% # changed to teamID == input$team 
     filter(yearID >= input$year[1] & yearID <= input$year[2]) %>% 
     summarise(TotER=sum(ER)) 
    }) 

    output$pitchingplot<-renderPlot({ 
      # changed to data()     # use aes_string if the variable is passed as a string 
    g<-ggplot(data=data(),aes(x=yearID,y=TotER)) + geom_point() 
    g 
    }) 
}) 

shinyApp(ui = ui, server)