大家帮看看我这个shiny App错哪了

我想分别根据diomands的cut, color，clarity绘制直方图，但出来的效果如下图，明显错误

1. #这是我的代码
   
2. library(shiny)
   
3. library(ggplot2)
   
4. 
   
5. # Define UI for application that draws a histogram
   
6. ui <- fluidPage(
   
7.    
   
8.    
   
9.    titlePanel("Old Faithful Geyser Data"),
   
10.    
    
11.   
    
12.    sidebarLayout(
    
13.       sidebarPanel(
    
14.         radioButtons('dist','please choose a column:',
    
15.                      c('cut'='cut',
    
16.                        'color'='color',
    
17.                        'clarity'='clarity'))
    
18.       ),
    
19.       # Show a plot of the generated distribution
    
20.       mainPanel(
    
21.          plotOutput("distPlot")
    
22.       )
    
23.    )
    
24. )
    
25. 
    
26. # Define server logic required to draw a histogram
    
27. server <- function(input, output) {
    
28.    
    
29.    output$distPlot <- renderPlot({
    
30.       
    
31.      #diamonds
    
32.       y <- switch(input$dist,
    
33.                  cut = diamonds$cut,
    
34.                 color = diamonds$color,
    
35.                 clarity = diamonds$clarity)
    
36.      #hist(y)
    
37.   
    
38.      ggplot(diamonds,aes(x=y))+
    
39.        geom_bar()
    
40.       
    
41.    })
    
42. }
    
43. 
    
44. # Run the application
    
45. shinyApp(ui = ui, server = server)

复制代码

我想要的结果是每点击一个按钮绘制下面样式的条形图，请问我的代码该怎么改