Following packages need to be installed: install.packages(“RMariaDB”) library(RMariaDB)

You must indicate your localuserpassword, user, and hostName

localuserpassword = ''
user = 'user'
hostName = 'localhost'
moviesDB <- dbConnect(RMariaDB::MariaDB(), user=user, password=localuserpassword, dbname='MovieRatingsAssignment2', host=hostName)

query<-paste("select * from MovieRatingView order by Movie, Friend",sep="")
print(query)
## [1] "select * from MovieRatingView order by Movie, Friend"
dc = dbSendQuery(moviesDB,query)
ratingData<-data.frame(dbFetch(dc))
dbDisconnect(moviesDB)
## Warning in connection_release(conn@ptr): There is a result object still in use.
## The connection will be automatically released when it is closed
avgData = aggregate(ratingData$Rating, list(ratingData$Movie), mean)
ratingData
##                   Movie Friend Rating
## 1               Aladdin Burhan      1
## 2               Aladdin    Isa      2
## 3               Aladdin   Musa      3
## 4               Aladdin   Syed      4
## 5   Avengers - End Game Burhan      5
## 6   Avengers - End Game    Isa      5
## 7   Avengers - End Game   Musa      5
## 8   Avengers - End Game  Nazia      4
## 9   Avengers - End Game   Syed      5
## 10         Hobbs & Shaw Burhan      5
## 11         Hobbs & Shaw    Isa      5
## 12         Hobbs & Shaw   Musa      5
## 13         Hobbs & Shaw  Nazia      2
## 14         Hobbs & Shaw   Syed      5
## 15          John Wick 3 Burhan      5
## 16          John Wick 3    Isa      4
## 17          John Wick 3   Musa      5
## 18          John Wick 3  Nazia      5
## 19          John Wick 3   Syed      5
## 20 Spiderman Homecoming Burhan      4
## 21 Spiderman Homecoming    Isa      5
## 22 Spiderman Homecoming   Musa      4
## 23 Spiderman Homecoming  Nazia      5
## 24   The Lion King 2019 Burhan      5
## 25   The Lion King 2019    Isa      3
## 26   The Lion King 2019   Musa      5
## 27   The Lion King 2019  Nazia      3
## 28   The Lion King 2019   Syed      3
avgData
##                Group.1   x
## 1              Aladdin 2.5
## 2  Avengers - End Game 4.8
## 3         Hobbs & Shaw 4.4
## 4          John Wick 3 4.8
## 5 Spiderman Homecoming 4.5
## 6   The Lion King 2019 3.8
barplot(avgData$x, names = avgData$Group.1,
        xlab = "Movie", ylab = "Avg Rating",
        main = "Average Rating of Movies From Friends", las=2, cex.names=.5, col=c("darkblue","green"))