R 如何解决“美学必须为长度1或与数据相同”的问题

我想知道如何解决错误：

美学长度必须为1或与数据437:x，y相同

我正试图用闪亮的R制作一个直方图：我创建了两个小部件，如果用户选择IL作为他们的选择，x轴将是IL中的所有县，这就是x变量稍后的用途

output$hist <- renderPlot({
# Store x and y values to produce the chart
x <- chart_two_data$county[chart_two_data$state == input$x_var]
y <- chart_two_data[[input$y_var]]

title <- "Number of Population Race in county by State"

# Create ggplot hist
ggplot(data = chart_two_data) +
  geom_bar(mapping = aes(x = x, y = y),
           stat = "identity") +
  ggtitle("Population Number Of Each Race Based On State")
}) 

这是我的图表，由中西部数据集整理而成：

---

如果您希望输入$x_var来提供状态选择，并输入$y_var来选择“poptotal”或“area”之类的列，那么这就是解决方案。您必须使用此行提取y值YY您必须包括应用程序的其余部分以及数据。欢迎使用StackOverflow！我希望你不介意我做了一些编辑来改进格式、显示数据等等。祝你好运！你的问题不清楚。你必须解释什么是x_var和y_var。我可以从上下文中理解x_var是用户想要选择的状态，但是y_var是什么？？？我猜它是任意列名是的，y_变量将是除state和country之外的其他列名

output$hist <- renderPlot({
# Store x and y values to produce the chart
x <- chart_two_data$county[chart_two_data$state == input$x_var]
y<-chart_two_data[,input$y_var]

title <- "Number of Population Race in county by State"

# Create ggplot hist
ggplot(chart_two_data) +
     geom_bar(aes(x = x, y = y),stat = "identity") +
labs(x=paste0("County of State ",input$x_var),y=paste0(input$y_val),title="Population Number Of Each Race Based On State")+
theme(panel.background=element_blank())
})