您可以创建一个函数来检索查询。

library(RMySQL)
sqlQuery <- function (query) {

        # creating DB connection object with RMysql package
        DB <- dbConnect(MySQL(), user="user", password="password",
                        dbname="databaseName", host="host")

        # close db connection after function call exits
        on.exit(dbDisconnect(DB))

        # send Query to obtain result set
        rs <- dbSendQuery(DB, query)

        # get elements from result sets and convert to dataframe
        result <- fetch(rs, -1)

        # return the dataframe
        return(result)
}

然后就是：

new_dataframe <- sqlQuery("SELECT * from table")

希望有帮助