1. Installing R packages that will allow to connect with MySQL DB.

  2. Connecting to MySQL

  3. Listing tables

dbListTables(db)
## [1] "movies"  "people"  "reviews"
  1. Display all movies reviews.
query<-dbSendQuery(db,"select movie_title, person_name,grade from movies,people,reviews where reviews.movie_id=movies.movie_id and people.person_id=reviews.person_id order by movies.movie_title")
reviews_data=fetch(query,n=-1)
reviews_data
##    movie_title person_name grade
## 1      Arrival      Pamela     5
## 2      Arrival      Marina     2
## 3      Arrival       Anrew     5
## 4      Arrival        Alex     5
## 5      Arrival      Albina     1
## 6      Arrival       Irene     5
## 7        Jakie        Alex     4
## 8        Jakie      Albina     5
## 9        Jakie       Irene     4
## 10       Jakie      Pamela     4
## 11       Jakie      Marina     5
## 12       Jakie       Anrew     4
## 13  La la Land      Pamela     5
## 14  La la Land      Marina     3
## 15  La la Land       Anrew     5
## 16  La la Land        Alex     5
## 17  La la Land      Albina     4
## 18  La la Land       Irene     3
## 19        Lion       Irene     5
## 20        Lion      Pamela     4
## 21        Lion      Marina     4
## 22        Lion       Anrew     1
## 23        Lion        Alex     3
## 24        Lion      Albina     3
## 25    Zootopia      Pamela     4
## 26    Zootopia      Marina     4
## 27    Zootopia       Anrew     3
## 28    Zootopia        Alex     4
## 29    Zootopia      Albina     5
## 30    Zootopia       Irene     3
  1. Close DB connection.
on.exit(dbDisconnect(db))
## Warning: Closing open result sets