# 创建图片填充预设位置
output$phonePlot <- renderPlot({
  # 生成柱状图
})

# 创建图片填充预设位置
output$phonePlot <- renderPlot({
  # 生成柱状图
  barplot(WorldPhones[,input$region]*1000, 
          main=input$region,
          ylab="Number of Telephones",
          xlab="Year")
})