install.packages("RODBC")
MySQL Connector_ODBC Data Source Configuration
library(RODBC)
connect<-odbcConnect("Local instance MySQL80")
my.data<-sqlQuery(connect,"SELECT * from assignment2.movies")
my.data
## FriendName MovieName rating
## 1 Kish Cold Pursuit 2
## 2 Kish Green Book 5
## 3 Kish Escape Room 4
## 4 Kish Miss Bala 1
## 5 Kish Glass 2
## 6 Kish Bumblebee 5
## 7 Sam Cold Pursuit 2
## 8 Sam Green Book 5
## 9 Sam Escape Room 4
## 10 Sam Miss Bala 1
## 11 Sam Glass 2
## 12 Sam Bumblebee 5
## 13 Dol Cold Pursuit 2
## 14 Dol Green Book 5
## 15 Dol Escape Room 4
## 16 Dol Miss Bala 1
## 17 Dol Glass 2
## 18 Dol Bumblebee 5
## 19 Tere Cold Pursuit 2
## 20 Tere Green Book 5
## 21 Tere Escape Room 4
## 22 Tere Miss Bala 1
## 23 Tere Glass 2
## 24 Tere Bumblebee 5
## 25 Aaron Cold Pursuit 2
## 26 Aaron Green Book 5
## 27 Aaron Escape Room 4
## 28 Aaron Miss Bala 1
## 29 Aaron Glass 2
## 30 Aaron Bumblebee 5
table(my.data)
## , , rating = 1
##
## MovieName
## FriendName Bumblebee Cold Pursuit Escape Room Glass Green Book Miss Bala
## Aaron 0 0 0 0 0 1
## Dol 0 0 0 0 0 1
## Kish 0 0 0 0 0 1
## Sam 0 0 0 0 0 1
## Tere 0 0 0 0 0 1
##
## , , rating = 2
##
## MovieName
## FriendName Bumblebee Cold Pursuit Escape Room Glass Green Book Miss Bala
## Aaron 0 1 0 1 0 0
## Dol 0 1 0 1 0 0
## Kish 0 1 0 1 0 0
## Sam 0 1 0 1 0 0
## Tere 0 1 0 1 0 0
##
## , , rating = 4
##
## MovieName
## FriendName Bumblebee Cold Pursuit Escape Room Glass Green Book Miss Bala
## Aaron 0 0 1 0 0 0
## Dol 0 0 1 0 0 0
## Kish 0 0 1 0 0 0
## Sam 0 0 1 0 0 0
## Tere 0 0 1 0 0 0
##
## , , rating = 5
##
## MovieName
## FriendName Bumblebee Cold Pursuit Escape Room Glass Green Book Miss Bala
## Aaron 1 0 0 0 1 0
## Dol 1 0 0 0 1 0
## Kish 1 0 0 0 1 0
## Sam 1 0 0 0 1 0
## Tere 1 0 0 0 1 0