## [1] "C:/Users/nehet/Downloads/old dell/Downloads/analytics classes/term 6/ANLY 545"
## spc_tbl_ [1,282 × 6] (S3: spec_tbl_df/tbl_df/tbl/data.frame)
## $ restaurant: chr [1:1282] "Taco Bell" "McDonald" "Burger King" "KFC" ...
## $ age : num [1:1282] 31 34 29 20 27 34 30 21 30 31 ...
## $ race : chr [1:1282] "White" "Hispanic" "Other" "Black" ...
## $ sex : chr [1:1282] "Female" "Male" "Female" "Female" ...
## $ id : num [1:1282] 1 2 3 4 5 6 7 8 9 10 ...
## $ stars : num [1:1282] 4 5 5 2 5 3 1 5 1 3 ...
## - attr(*, "spec")=
## .. cols(
## .. restaurant = col_character(),
## .. age = col_double(),
## .. race = col_character(),
## .. sex = col_character(),
## .. id = col_double(),
## .. stars = col_double()
## .. )
## - attr(*, "problems")=<externalptr>
## Length Class Mode
## 1282 character character
## [1] 1282
## # A tibble: 4 × 3
## `data$restaurant` count Percentage
## <chr> <int> <dbl>
## 1 KFC 335 26.1
## 2 McDonald 320 25.0
## 3 Burger King 319 24.9
## 4 Taco Bell 308 24.0
average rating by Sex
|
|
Sex
|
|
Restaurant
|
Overall
|
Female
|
Male
|
|
McDonald
|
2.98
|
3.06
|
2.89
|
|
Taco Bell
|
3.12
|
3.18
|
3.06
|
|
KFC
|
3.03
|
3.09
|
2.97
|
|
Burger King
|
2.79
|
2.84
|
2.74
|
## Restaurant Overall Female Male
## 1 McDonald 2.98 3.06 2.89
## 2 Taco Bell 3.12 3.18 3.06
## 3 KFC 3.03 3.09 2.97
## 4 Burger King 2.79 2.84 2.74
average rating by Race
|
|
Race
|
|
Restaurant
|
Overall
|
Black
|
Hispanic
|
Other
|
White
|
|
McDonald
|
2.98
|
2.96
|
2.76
|
3.06
|
3.13
|
|
Taco Bell
|
3.13
|
3.02
|
3.08
|
3.09
|
3.35
|
|
KFC
|
3.02
|
3.20
|
2.96
|
2.94
|
3.00
|
|
Burger King
|
2.79
|
2.94
|
2.80
|
2.71
|
2.71
|
## Restaurant Overall Black Hispanic Other White
## 1 McDonald 2.98 2.96 2.76 3.06 3.13
## 2 Taco Bell 3.13 3.02 3.08 3.09 3.35
## 3 KFC 3.02 3.20 2.96 2.94 3.00
## 4 Burger King 2.79 2.94 2.80 2.71 2.71