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)