闪亮的相关图

Question

我正在尝试使用USArrests数据库构建一个简单的Shiny应用程序，该数据库显示密度人口与犯罪的3个变量（谋杀，攻击，强奸）之间的相关性，使用selectInpuct更改犯罪变量。

这里是ui.R的代码：

 shinyUI(fluidPage(
    titlePanel("Violent Crime Rates by US State"),

    sidebarLayout(
        sidebarPanel(
            helpText("A series of plots that display correlation between density population and various kind of crimes"),

            selectInput("var", 
                        label = "Choose a crime",
                        choices = c("Murder"=1, "Assault"=2,
                                       "Rape"=4),
                        selected = "Murder")


            ),

        mainPanel(plotOutput('crimeplot'))
    )
))

和server.R

shinyServer(function(input,output){


output$crimeplot<- renderPlot({
    x<-as.numeric(input$var)
    y<-as.numeric(USArrests$UrbanPop)

    plot(x, y, log = "xy")




})

}

但运行应用程序会返回：

错误：'x'和'y'长度不同

你能帮助我，并解释我在做什么有什么问题吗？

非常感谢您提前！