Skip to content

Instantly share code, notes, and snippets.

@Tingting-Chang

Tingting-Chang/hipsterRatio.R

Last active February 5, 2017 03:44
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Tingting-Chang/5e252326d1ecae89cc7decc8f298641c to your computer and use it in GitHub Desktop.
Save Tingting-Chang/5e252326d1ecae89cc7decc8f298641c to your computer and use it in GitHub Desktop.
Download ZIP
Yelp shiny app ui.R file
Raw
hipsterRatio.R
hipster <- dataset %>%
filter(attributes.Ambience.hipster == TRUE) %>%
group_by(categories) %>%
summarise(total = sum(attributes.Ambience.hipster), stars = mean(stars)) %>%
arrange(desc(total))
noise <- dataset %>%
mutate(noisy = ifelse(attributes.Noise.Level =='loud' |
attributes.Noise.Level== 'very_loud', T, F)) %>%
filter(noisy == TRUE) %>%
group_by(categories) %>%
summarise(total = sum(noisy), stars = mean(stars)) %>%
arrange(desc(total))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment