测试环境：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="",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】,可以看到条形图
到此结束~