Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
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