R中,将从MySQL中获取的结果字符列表转化为向量,并测试绘制图形

# 使用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) 

原文地址:https://www.cnblogs.com/xiaomingzaixian/p/8423285.html