# 使用RMySQL操作数据库# 载入DBI和RMySQL包library(DBI)library(RMySQL)# 创建数据库连接con <- dbConnect(MySQL(),host ="localhost",dbname="test",user="root",password="123456")#说明用什么字符集来获取数据库字段dbGetQuery(con, "SET NAMES gbk")# SQL查询# 获取结果results <- dbGetQuery(con,'select `HS整车控制器故障代码""` from raja_7j05b where `HS整车控制器故障代码""`!=0')# 获取字符长度len <- as.integer(unlist(dbGetQuery(con,'select count(*) from raja_7j05b where `HS整车控制器故障代码""`!=0')))# 断开连接dbDisconnect(con)# 构建相应长度向量x <- c(1:len)#;print(class(x))# 将列表转化为向量y <- as.integer(unlist(results))#;print(class(y))# 绘制散点图plot(x,y)