R语言连接MySQL数据库的详细指南

install.packages("RMySQL")
install.packages("DBI")

# 加载RMySQL包
library(RMySQL)
# 连接到MySQL数据库
con <- dbConnect(MySQL(), dbname = "your_database", host = "localhost", 
                 port = 3306, user = "your_username", password = "your_password")
# 检查连接是否成功
if (!dbExistsTable(con, "your_table")) {
  print("数据库连接成功，但数据表不存在。")
} else {
  print("数据库连接成功，数据表存在。")
}
# 关闭数据库连接
dbDisconnect(con)

# 加载DBI包
library(DBI)
# 连接到数据库
con <- dbConnect(MySQL(), dbname = "your_database", host = "localhost", 
                 port = 3306, user = "your_username", password = "your_password")
# 查询数据
query <- "SELECT * FROM your_table"
data <- dbGetQuery(con, query)
# 打印查询结果
print(data)
# 关闭数据库连接
dbDisconnect(con)

# 连接到数据库
con <- dbConnect(MySQL(), dbname = "your_database", host = "localhost", 
                 port = 3306, user = "your_username", password = "your_password")
# 插入数据
query <- "INSERT INTO your_table (column1, column2) VALUES ('value1', 'value2')"
dbExecute(con, query)
# 关闭数据库连接
dbDisconnect(con)

# 连接到数据库
con <- dbConnect(MySQL(), dbname = "your_database", host = "localhost", 
                 port = 3306, user = "your_username", password = "your_password")
# 更新数据
query <- "UPDATE your_table SET column1 = 'new_value' WHERE column2 = 'value'"
dbExecute(con, query)
# 关闭数据库连接
dbDisconnect(con)

# 连接到数据库
con <- dbConnect(MySQL(), dbname = "your_database", host = "localhost", 
                 port = 3306, user = "your_username", password = "your_password")
# 删除数据
query <- "DELETE FROM your_table WHERE column2 = 'value'"
dbExecute(con, query)
# 关闭数据库连接
dbDisconnect(con)