Skip to content

Instantly share code, notes, and snippets.

@vishal7george
Created September 7, 2019 05:48
Show Gist options
  • Save vishal7george/f4a1baebc67ba2addd3bc344775702dd to your computer and use it in GitHub Desktop.
Save vishal7george/f4a1baebc67ba2addd3bc344775702dd to your computer and use it in GitHub Desktop.
FeelGood_Aucklanddata <- subset(FeelGood_data, `Population group`== 'Auckland')
library(readr)
FeelGood_data <- read_csv("Documents/Feel Good - GovHack/lsf_our_people_subdomain_data.csv")
#Subset Auckland
FeelGood_Aucklanddata <- subset(FeelGood_data, `Population group`== 'Auckland')
#Subset Lonely
Loneliness_Aucklanddata <- subset(FeelGood_Aucklanddata, `Wellbeing subdomain`== 'Social connections - Loneliness')
#Subset Friends & Family
Loneliness_Aucklanddata <- subset(FeelGood_Aucklanddata, `Wellbeing subdomain`== 'Social connections - Friends & family')
#Subset Discrimination
Loneliness_Aucklanddata <- subset(FeelGood_Aucklanddata, `Wellbeing subdomain`== 'Social connections - Discrimination')
# Barplot
library(ggplot2)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment