Here is a simple example that roughly matches your ggplot call. You do not say how you get your error bar values, so I manually entered them.
DF <- data.frame(HousingStatus = c(rep("Indoor", 3), rep("Outdoor", 7)))
DFerror <- data.frame(HousingStatus = c("Indoor", "Outdoor"),
Lower = c(0.2, 0.6),
Upper = c(0.4, 0.8))
DFerror
#> HousingStatus Lower Upper
#> 1 Indoor 0.2 0.4
#> 2 Outdoor 0.6 0.8
library(ggplot2)
ggplot(DF, aes(x = HousingStatus, fill = HousingStatus)) + labs(y = "Fraction") +
geom_bar(aes(y = (..count..)/sum(..count..))) + theme_bw() +
geom_errorbar(aes(ymin = Lower, ymax = Upper), data = DFerror, width = 0.2)

Created on 2020-02-25 by the reprex package (v0.3.0)