熟悉MySQL的朋友可以使用sqldf来操作数据框
# 引入sqldf库(sqldf)
library(sqldf) # 释放RMySQL库的加载(针对sqldf报错)
#detach("package:RMySQL", unload=T) # 读取数据
data <- read.csv("data.csv") # sql查询
results <- sqldf("select distinct(name) from data") # 获取故障代码列表,R中for循环不能处理List,需要转换成向量或者array
name_list <- as.vector(unlist(results))