Created
April 12, 2016 22:11
-
-
Save JosiahParry/360ce51c98b4d90f229dcd4104ad9a26 to your computer and use it in GitHub Desktop.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| sq <- ggplot((na.omit(threats)), aes(factor(soil_quality)))+ geom_bar() + facet_grid(~Gender) + aes(fill = Gender) | |
| wq <- ggplot((na.omit(threats)), aes(factor(waterquality))) + geom_bar()+ facet_grid(~Gender) + aes(fill = Gender) | |
| wl <- ggplot((na.omit(threats)), aes(factor(wildlife))) + geom_bar()+ facet_grid(~Gender) + aes(fill = Gender) | |
| rec <- ggplot((na.omit(threats)), aes(factor(recreation))) + geom_bar() + facet_grid(~Gender) + aes(fill = Gender) | |
| scen <- ggplot((na.omit(threats)), aes(factor(scenic))) + geom_bar() + facet_grid(~Gender) + aes(fill = Gender) | |
| tour <- ggplot((na.omit(threats)), aes(factor(tourism))) + geom_bar() + facet_grid(~Gender) + aes(fill = Gender) | |
| biz <- ggplot((na.omit(threats)), aes(factor(business))) + geom_bar() + facet_grid(~Gender) + aes(fill = Gender) | |
| rur <- ggplot((na.omit(threats)), aes(factor(rural))) + geom_bar() + facet_grid(~Gender) + aes(fill = Gender) | |
| #Generating Grid of all threats and frequency counts | |
| allthreats <- plot_grid(sq,wq,wl,rec, scen, tour, biz, rur, ncol = 2) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment