library(readxl)
Data_survey <- read_excel("C:/Reneika Thomas/DataRen.xlsx")
na.omit(Data_survey)
## # A tibble: 200 × 11
## `Student ID` Age Gender Game 1 Action (Time Played…¹ Game 1 Action (Viole…²
## <dbl> <dbl> <chr> <dbl> <dbl>
## 1 1 20 Male 4 3
## 2 2 25 Female 5 4
## 3 3 18 Male 3 2
## 4 4 30 Male 2 1
## 5 5 22 Female 5 5
## 6 6 28 Male 4 4
## 7 7 19 Male 3 3
## 8 8 21 Female 4 5
## 9 9 26 Male 5 3
## 10 10 23 Female 3 2
## # ℹ 190 more rows
## # ℹ abbreviated names: ¹`Game 1 Action (Time Played)`,
## # ²`Game 1 Action (Violence Rating)`
## # ℹ 6 more variables: `Game 2 Adventure (Time Played)` <dbl>,
## # `Game 2 Adventure (Violence Rating)` <dbl>,
## # `Game 3 Simulation(Time Played)` <dbl>,
## # `Game 3 Simulation (Violence Rating)` <dbl>, `Voilent rating` <dbl>, …
View(Data_survey)
gender_freq <- table(Data_survey$Gender)
summary(Data_survey)
## Student ID Age Gender
## Min. : 1.00 Min. :18.00 Length:200
## 1st Qu.: 50.75 1st Qu.:20.00 Class :character
## Median :100.50 Median :23.00 Mode :character
## Mean :100.50 Mean :23.39
## 3rd Qu.:150.25 3rd Qu.:26.00
## Max. :200.00 Max. :31.00
## Game 1 Action (Time Played) Game 1 Action (Violence Rating)
## Min. :2.000 Min. :0.000
## 1st Qu.:3.000 1st Qu.:3.000
## Median :4.000 Median :3.000
## Mean :3.915 Mean :3.405
## 3rd Qu.:5.000 3rd Qu.:4.000
## Max. :5.000 Max. :5.000
## Game 2 Adventure (Time Played) Game 2 Adventure (Violence Rating)
## Min. :0.000 Min. :0.00
## 1st Qu.:3.000 1st Qu.:2.00
## Median :4.000 Median :3.00
## Mean :3.725 Mean :3.25
## 3rd Qu.:5.000 3rd Qu.:4.00
## Max. :5.000 Max. :5.00
## Game 3 Simulation(Time Played) Game 3 Simulation (Violence Rating)
## Min. :0.000 Min. :0.00
## 1st Qu.:3.000 1st Qu.:2.00
## Median :4.000 Median :3.00
## Mean :3.725 Mean :3.32
## 3rd Qu.:5.000 3rd Qu.:4.00
## Max. :5.000 Max. :5.00
## Voilent rating BPAQ Score
## Min. : 0.000 Min. : 0.00
## 1st Qu.: 8.000 1st Qu.:19.00
## Median :10.000 Median :23.00
## Mean : 9.975 Mean :23.72
## 3rd Qu.:12.000 3rd Qu.:28.00
## Max. :15.000 Max. :32.00
summary(Data_survey$Age)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 18.00 20.00 23.00 23.39 26.00 31.00
summary(Data_survey$`Game 1 Action (Time Played)`)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 2.000 3.000 4.000 3.915 5.000 5.000
summary(Data_survey$`Game 1 Action (Violence Rating)`)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.000 3.000 3.000 3.405 4.000 5.000
summary(Data_survey$`Game 2 Adventure (Time Played)`)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.000 3.000 4.000 3.725 5.000 5.000
summary(Data_survey$`Game 2 Adventure (Violence Rating)`)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 2.00 3.00 3.25 4.00 5.00
summary(Data_survey$`Game 3 Simulation(Time Played)`)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.000 3.000 4.000 3.725 5.000 5.000
summary(Data_survey$`Game 3 Simulation (Violence Rating)`)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 2.00 3.00 3.32 4.00 5.00
summary(Data_survey$`BPAQ Score`)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.00 19.00 23.00 23.72 28.00 32.00
library(dplyr)
## Warning: package 'dplyr' was built under R version 4.3.3
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
numeric_data <- select(Data_survey, where(is.numeric))
cor(numeric_data)
## Student ID Age
## Student ID 1.00000000 -0.00726321
## Age -0.00726321 1.00000000
## Game 1 Action (Time Played) 0.05017995 0.24555239
## Game 1 Action (Violence Rating) 0.09539073 0.14343142
## Game 2 Adventure (Time Played) 0.09573010 0.12544731
## Game 2 Adventure (Violence Rating) 0.08079735 0.09419605
## Game 3 Simulation(Time Played) 0.13420986 0.10414698
## Game 3 Simulation (Violence Rating) 0.06543939 0.16000990
## Voilent rating 0.08459812 0.14089758
## BPAQ Score 0.14903732 0.20318929
## Game 1 Action (Time Played)
## Student ID 0.05017995
## Age 0.24555239
## Game 1 Action (Time Played) 1.00000000
## Game 1 Action (Violence Rating) 0.81073081
## Game 2 Adventure (Time Played) 0.77247505
## Game 2 Adventure (Violence Rating) 0.68843150
## Game 3 Simulation(Time Played) 0.75447619
## Game 3 Simulation (Violence Rating) 0.74250937
## Voilent rating 0.78932214
## BPAQ Score 0.80097148
## Game 1 Action (Violence Rating)
## Student ID 0.09539073
## Age 0.14343142
## Game 1 Action (Time Played) 0.81073081
## Game 1 Action (Violence Rating) 1.00000000
## Game 2 Adventure (Time Played) 0.68634094
## Game 2 Adventure (Violence Rating) 0.81507338
## Game 3 Simulation(Time Played) 0.81886296
## Game 3 Simulation (Violence Rating) 0.86330098
## Voilent rating 0.94224184
## BPAQ Score 0.86989164
## Game 2 Adventure (Time Played)
## Student ID 0.0957301
## Age 0.1254473
## Game 1 Action (Time Played) 0.7724750
## Game 1 Action (Violence Rating) 0.6863409
## Game 2 Adventure (Time Played) 1.0000000
## Game 2 Adventure (Violence Rating) 0.8080810
## Game 3 Simulation(Time Played) 0.7739384
## Game 3 Simulation (Violence Rating) 0.6590045
## Voilent rating 0.7568656
## BPAQ Score 0.7954315
## Game 2 Adventure (Violence Rating)
## Student ID 0.08079735
## Age 0.09419605
## Game 1 Action (Time Played) 0.68843150
## Game 1 Action (Violence Rating) 0.81507338
## Game 2 Adventure (Time Played) 0.80808101
## Game 2 Adventure (Violence Rating) 1.00000000
## Game 3 Simulation(Time Played) 0.82538671
## Game 3 Simulation (Violence Rating) 0.84791637
## Voilent rating 0.93710327
## BPAQ Score 0.86087724
## Game 3 Simulation(Time Played)
## Student ID 0.1342099
## Age 0.1041470
## Game 1 Action (Time Played) 0.7544762
## Game 1 Action (Violence Rating) 0.8188630
## Game 2 Adventure (Time Played) 0.7739384
## Game 2 Adventure (Violence Rating) 0.8253867
## Game 3 Simulation(Time Played) 1.0000000
## Game 3 Simulation (Violence Rating) 0.8745951
## Voilent rating 0.8884830
## BPAQ Score 0.8878007
## Game 3 Simulation (Violence Rating)
## Student ID 0.06543939
## Age 0.16000990
## Game 1 Action (Time Played) 0.74250937
## Game 1 Action (Violence Rating) 0.86330098
## Game 2 Adventure (Time Played) 0.65900450
## Game 2 Adventure (Violence Rating) 0.84791637
## Game 3 Simulation(Time Played) 0.87459509
## Game 3 Simulation (Violence Rating) 1.00000000
## Voilent rating 0.95822846
## BPAQ Score 0.90331854
## Voilent rating BPAQ Score
## Student ID 0.08459812 0.1490373
## Age 0.14089758 0.2031893
## Game 1 Action (Time Played) 0.78932214 0.8009715
## Game 1 Action (Violence Rating) 0.94224184 0.8698916
## Game 2 Adventure (Time Played) 0.75686559 0.7954315
## Game 2 Adventure (Violence Rating) 0.93710327 0.8608772
## Game 3 Simulation(Time Played) 0.88848297 0.8878007
## Game 3 Simulation (Violence Rating) 0.95822846 0.9033185
## Voilent rating 1.00000000 0.9287354
## BPAQ Score 0.92873540 1.0000000