使用RMySQL连接到本地MySQL服务器

我能够使用以下R脚本成功连接到本地MySQL服务器：

library(RMySQL)

drv <- dbDriver("MySQL")
con <- dbConnect(drv, user="root", pass="myrootpass")
rs <- dbSendQuery(con, statement = "SHOW DATABASES;")
fetch(rs)

库（RMySQL）
drv如前所述，使用您的用户、密码等设置一个选项文件。
首先，创建以下.csv并将其命名为“database\u credentials.csv”

如果这是本地连接，则在上面.csv文件的主机字段中输入“localhost”

那就这样做吧

# R Script for
# CONNECTING TO DATABASE
  library(RMySQL)
  dbCredentialsFile <- read.csv("database_credentials.csv", stringsAsFactors = FALSE, header = TRUE)
  con <- dbConnect(MySQL(),
  user = dbCredentialsFile$user[1],
  password = dbCredentialsFile$password[1],
  host = dbCredentialsFile$host[1],
  dbname = dbCredentialsFile$dbname[1])
  rm(dbCredentialsFile)
  gc()

# FUNCTION FOR QUERYING DATABASE
  query <- function(...) dbGetQuery(con, ...)

# EXAMPLE FOR QUERYING DATABASE
  testDF <- query("SELECT * FROM name_of_table_in_database_to_retrive")

#R脚本
#连接到数据库
图书馆（RMySQL）
dbCredentialsFile使用MySQL的“root”用户进行数据处理工作可能很危险。无论如何，MySQL有一个细粒度的访问控制。您可以添加一个没有密码的用户，该密码只允许从localhost连接。
user,password,dbname,host
your_user_name_here,your_password_here,your_database_address_aka_database_name_here,your_hostname_here

# R Script for
# CONNECTING TO DATABASE
  library(RMySQL)
  dbCredentialsFile <- read.csv("database_credentials.csv", stringsAsFactors = FALSE, header = TRUE)
  con <- dbConnect(MySQL(),
  user = dbCredentialsFile$user[1],
  password = dbCredentialsFile$password[1],
  host = dbCredentialsFile$host[1],
  dbname = dbCredentialsFile$dbname[1])
  rm(dbCredentialsFile)
  gc()

# FUNCTION FOR QUERYING DATABASE
  query <- function(...) dbGetQuery(con, ...)

# EXAMPLE FOR QUERYING DATABASE
  testDF <- query("SELECT * FROM name_of_table_in_database_to_retrive")