stat_bin需要以下缺失的美感：x

Question

我创建了以下闪亮的应用程序，并尝试使用input $ name变量作为参数之一绘制直方图，但编译器表示存在错误“ stat_bin需要以下缺失的美感：x”

似乎input $ name的值无法插入变量x

请告知我该如何解决。谢谢。

P.S。不需要担心tdata，因为它存储了我的.csv文件之一中的数据

```{r}
library(shiny)
ui <- fluidPage(
  titlePanel("Demonstation of textInput widget in shiny"),
  sidebarLayout(
    sidebarPanel(("Enter the personal information"),
                 textInput("name", " Enter your name please", ""),
                 textInput("age", "Enter your age", "")), 
    mainPanel(("Personal Information"), 
              textOutput("myname"),
              textOutput("myage"))



  )



)


server <- function(input, output){

  output$myname <- renderText(input$name)
  output$myage <- renderText(input$age)


}


shinyApp(ui = ui, server = server)
```


```{r}

renderPlot(
  ggplot(tdata, aes_string(x=input$name)) +
  geom_histogram(binwidth=5) + 
  theme_classic() 

)

```