Skip to content

Instantly share code, notes, and snippets.

@JosiahParry

JosiahParry/gist:360ce51c98b4d90f229dcd4104ad9a26

Created April 12, 2016 22:11
Show Gist options
  • Save JosiahParry/360ce51c98b4d90f229dcd4104ad9a26 to your computer and use it in GitHub Desktop.
Save JosiahParry/360ce51c98b4d90f229dcd4104ad9a26 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
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