Имена легенд в гистограмме в блестящем приложении не отображаются

Question

Я не могу выяснить причину, по которой имена легенд не отображаются для гистограммы.

Имена легенд должны отображаться в виде имен строк.Но он отображается цифрами.

library(shiny)
library(shinydashboard)
library(ggplot2)
bld <- read.csv("C:/Users/velumani_d/Documents/My Dashboard/BLD.csv")
bldr <- rownames(bld)
bldn <- nrow(bld)

ui<- shinyUI(dashboardPage(dashboardBody(fluidPage(
  titlePanel("Block Level"),
  sidebarLayout(
    sidebarPanel(
      selectInput("Visitors", "Select column name:", choices = 
colnames(bld)), hr(), helpText("Data from DESH")),
    mainPanel(plotOutput("Bar_chart"))
  )
))))

server <- shinyServer(function(input,output){
output$Bar_chart <-  renderPlot({
        barplot(bld[,input$Visitors], main = input$Suspected, ylab="No of 
visitors", xlab = "Blocks", legend = bldr, beside = FALSE, col = 1:bldn)
})
    })

shinyApp(ui, server)

набор данных:

Block      Visitors Suspected
Amingaon    75      40
Azara       68      23
Chaygaon    80      30
Hajo        728     200
Kamalpur    1814    500
N.Guwahati  529     250
Rangia      49      24
Sualkuchi   1534    400

гистограмма