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】,可以看到条形图

 

到此结束~

posted @ 2018-12-25 23:31  lmei  阅读(854)  评论(0编辑  收藏  举报