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)