vishal7george

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')