プロットマップが光沢のあるアプリでレンダリングされていない

Question

光沢のあるアプリを入手してプロットマップを描画するのに問題があります。

私は取得していますエラーメッセージは次のとおりです。オブジェクトの状態は「plotly部分は、本質的に、このチュートリアルから来

見つかりません：それは私の反応性要素かどうかに関係している場合https://plot.ly/r/shinyapp-map-click/#shiny-app

わかりません。反応要素は、ggplotマップを作成するためにうまくいきました。どんな助けもありがとうございます。

library(shiny) 
library(dplyr) 
library(plotly) 


state_tot <- read.csv("https://raw.githubusercontent.com/bkreis84/Data-604---Model/master/VIS/codeS.csv") 


ui <- fluidPage(

    # Application title 
    titlePanel("IRS Tax Data 2010 - 2015"), 

    sidebarLayout(
     sidebarPanel(

     selectInput("var", 
        label = "Select Variable:", 
        choices = c('Unemployment $ per Return' = 'UNEMP_COMP_PR', 
           '% of Returns with Business Income' = 'PERC_BUSINESS_RETURN', 
           '% with Real Estate Deduction' = 'PERC_RE', 
           'AGI Per Return' = 'AGI_PR'), 
        selected = '% with Business Income'), 


     sliderInput("yr", 
        "Select Year:", 
        min = 2010, 
        max = 2015, 
        value = 2015) 



    ), 


     # Show a plot of the generated distribution 
     mainPanel(
     plotlyOutput("plot") 



    ) 
) 
) 


server <- function(input, output) { 

    select <- reactive({ 
    year_sel <- input$yr 

    }) 

    df <- reactive({ 
    state_tot %>% 
     filter(YEAR == select()) 
    }) 

    high <- reactive({ 
    switch(input$var, 
      "PERC_BUSINESS_RETURN" = "green", 
      "AGI_PR" = "green", 
      "PERC_RE" = "green", 
      "UNEMP_COMP_PR" = "red") 
    }) 

    low <- reactive({ 
    switch(input$var, 
      "PERC_BUSINESS_RETURN" = "red", 
      "AGI_PR" = "red", 
      "PERC_RE" = "red", 
      "UNEMP_COMP_PR" = "green") 
    }) 



    output$plot <- renderPlotly({ 
    g <- list(
     scope = 'usa', 
     projection = list(type = 'albers usa'), 
     lakecolor = toRGB('white') 
    ) 
    plot_ly(z = df()[[input$var]], text = df()[[STATE]], locations = df()[[STATE]], 
      type = 'choropleth', locationmode = 'USA-states') %>% 
     layout(geo = g) 
    }) 



} 

# Run the application 
shinyApp(ui = ui, server = server) 

Answer 1

エラーは、この行である：STATE以来

plot_ly(z = df()[[input$var]], text = df()[[STATE]], locations = df()[[STATE]] 

が引用されていない、あなたは名前がオブジェクトSTATEに格納されているの列を探すためにRを語っています。 STATE <- "STATE"でオブジェクトSTATEに値「STATE」を割り当てる代わりに

plot_ly(z = df()[[input$var]], text = df()[["STATE"]], locations = df()[["STATE"]] 

をまたは：あなたは「STATE」という列を取得したい場合は、そう、言葉を引用すべきです。本当に素晴らしい解決策ではありませんが、問題をよりよく理解するのに役立ちます。

希望すると便利です。