R基础学习（三）-- 简单练习（shiny+mysql+barplot）

测试环境：win10+RStudio

提前准备：

install.packages('shiny')

install.packages('RMySQL') 

数据表准备：

 

最终实现的界面效果如下：点击【Click Me】按钮，从数据库读出数据，并在界面画出条形图

 

正式开始！

在R项目（比如ShinyDemo）的目录下新建一个文件夹barplotDemo

然后在这个目录下新建两个文件，ui.R和server.R

 ui.R的代码实现如下

library(shiny)

# Use a fluid Bootstrap layout
fluidPage(      
  # Give the page a title
  titlePanel("A Simple Shiny Demo"),
  
  # Generate a row with a sidebar
  sidebarLayout(          
    # Define the sidebar with one input
    sidebarPanel(
      actionButton("do", "Click Me")
    ),
    
    # Create a spot for the barplot
    mainPanel(
      plotOutput("dataPlot")  
    )
 )
)

server.R的代码如下：

library(RMySQL)

# Define a server for the Shiny app
function(input, output) {
  observeEvent(input$do, {
　　 # connect the database
    conn <- dbConnect(MySQL(), dbname = "test", username="root", password="123456",client.flag=CLIENT_MULTI_STATEMENTS)
    users = dbGetQuery(conn, "SELECT * FROM tb_user")
    dbDisconnect(conn)
    output$dataPlot <- renderPlot({
      vAge<-as.vector(unlist(users[3]))
      vName<-as.vector(unlist(users[2]))
      height<-vAge
      names(height)<-vName
      barplot(height)
    })
  })
}

 备注：

（1）observeEvent(input$do, { }) 是按钮监听处理

（2）barplot的【height】要么是向量要么是矩阵，而users是list，所以需要进行处理，可以在Console查看数据类型

> is.vector(users)
[1] FALSE
> is.array(users)
[1] FALSE
> mode(users)
[1] "list"

> vAge<-as.vector(unlist(users[3]))
> mode(vAge)
[1] "numeric"
> vAge
[1] 20 26 29 49 39 53 48

> vName<-as.vector(unlist(users[2]))
> mode(vName)
[1] "character"
> vName
[1] "Tom"   "Jack"  "Mary"  "Merry" "Jerry" "Jucy"  "Lucy" 

 

上面两个R文件写好代码之后，在Console执行，记得在文件夹名字两侧加引号

> runApp('barplotDemo')

运行成功后，可以看到效果如下：

 

 点击【Click Me】,可以看到条形图

 

到此结束~

转载于:https://www.cnblogs.com/lmei/p/10177019.html