SG
2/10/2019
library(ggplot2)
library(RMySQL)## Loading required package: DBI
mydb = dbConnect(MySQL(), user='root', password='dataisfun', dbname='Data607', host='localhost')
movieRatings <- dbGetQuery(mydb, "select MovieRatingID, BlackPanther_Rating, AQuietPlace_Rating, WonderWoman_Rating, ASimpleFavor_Rating, CrazyRichAsians_Rating, JohnWickChapter2_Rating from tMovieRating")
movieRatings## MovieRatingID BlackPanther_Rating AQuietPlace_Rating WonderWoman_Rating
## 1 1 4 5 3
## 2 2 3 5 1
## 3 3 5 2 3
## 4 4 2 3 5
## 5 5 1 4 2
## ASimpleFavor_Rating CrazyRichAsians_Rating JohnWickChapter2_Rating
## 1 3 5 1
## 2 5 1 5
## 3 2 2 2
## 4 4 5 3
## 5 1 4 4
summary(movieRatings)## MovieRatingID BlackPanther_Rating AQuietPlace_Rating WonderWoman_Rating
## Min. :1 Min. :1 Min. :2.0 Min. :1.0
## 1st Qu.:2 1st Qu.:2 1st Qu.:3.0 1st Qu.:2.0
## Median :3 Median :3 Median :4.0 Median :3.0
## Mean :3 Mean :3 Mean :3.8 Mean :2.8
## 3rd Qu.:4 3rd Qu.:4 3rd Qu.:5.0 3rd Qu.:3.0
## Max. :5 Max. :5 Max. :5.0 Max. :5.0
## ASimpleFavor_Rating CrazyRichAsians_Rating JohnWickChapter2_Rating
## Min. :1 Min. :1.0 Min. :1
## 1st Qu.:2 1st Qu.:2.0 1st Qu.:2
## Median :3 Median :4.0 Median :3
## Mean :3 Mean :3.4 Mean :3
## 3rd Qu.:4 3rd Qu.:5.0 3rd Qu.:4
## Max. :5 Max. :5.0 Max. :5