R 这导致googleVis中的数据集具有不同的行数

我正在尝试使用Shiny创建一个googleVis气泡图。在闪亮的服务器之外，此代码工作正常：

df=data.frame(states=gun_stats$new_states, household=gun_stats$Gun.Ownership..2007., murder=gun_stats$Gun.Murder.Rate.per.100K..2010.,
          attack_size=gun_stats$state_attacks,attack_size_group=gun_stats$attack_category,
          gun_stats$x)


Bubble <- gvisBubbleChart(df, idvar="states", xvar="household", yvar="murder",colorvar="attack_size", sizevar="attack_size",
                      options=list(hAxis="{title:'% Housholds with Guns'}",
                                   vAxis="{title: 'Gun muder rate per 100k'}",height="600"))
plot(Bubble)

但是，这将返回：Error in data.frame:参数表示不同的行数：51,0

---

有什么建议吗？

嗯，您有

colorvar=“attack\u var”

，df中没有名为“attach\u var”的列。如果要获取

selectInput

的值，它位于

input

对象中（请参阅）。在这种情况下，您可能希望

输入$attack\u var

@mRcSchwering一定是错误地复制了它，谢谢，我已将colorvar和sizevar更改为输入$attack\u var，但我仍然收到相同的错误。您有

colorvar=“attack\u var”

，df中没有名为“attach\u var”的列。如果要获取

selectInput

的值，它位于

input

对象中（请参阅）。在这种情况下，您可能希望

输入$attack\u var

@mRcSchwering一定是错误地复制了它，谢谢，我已将colorvar和sizevar更改为输入$attack\u var，但我仍然收到相同的错误

shinyServer(function(input, output, session) {

    df=data.frame(states=gun_stats$new_states, household=gun_stats$Gun.Ownership..2007., murder=gun_stats$Gun.Murder.Rate.per.100K..2010.,
              attack_size=gun_stats$state_attacks, attack_size_group=gun_stats$attack_category)    

    output$chart <- renderGvis({
    gvisBubbleChart(df, idvar="states", xvar="household", yvar="murder",colorvar="attack_var", sizevar="attack_var",
                    options=list(hAxis="{title:'% Housholds with Guns'}",
                                 vAxis="{title: 'Gun muder rate per 100k'}",height="600"))
    })   
})

library(googleVis)
library(shiny)
pageWithSidebar(
headerPanel("Mass Shootings Overview"),
     sidebarPanel(
        selectInput("attack_var", "Choose a size metric", 
                    choices = c("x", "attack_size"))
    ),
mainPanel(htmlOutput('chart'))
)