From ec2f7d04067894b4f2ecaf79c9f4c661a79d65e9 Mon Sep 17 00:00:00 2001 From: Jeremy Kidwell Date: Tue, 13 Feb 2024 14:26:55 +0000 Subject: [PATCH] fixed error in var name --- hacking_religion/chapter_1.qmd | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hacking_religion/chapter_1.qmd b/hacking_religion/chapter_1.qmd index 571ec56..3544c73 100644 --- a/hacking_religion/chapter_1.qmd +++ b/hacking_religion/chapter_1.qmd @@ -276,7 +276,7 @@ uk_census_2001_religion_ethnicity <- filter(uk_census_2001_religion_ethnicity, G uk_census_2011_religion_ethnicity <- filter(uk_census_2011_religion_ethnicity, GEOGRAPHY_NAME=="England and Wales" & C_RELPUK11_NAME != "All categories: Religion" & C_ETHPUK11_NAME != "All categories: Ethnic group") # <2> uk_census_2001_religion_ethnicity <- uk_census_2001_religion_ethnicity %>% filter(grepl('Total', C_ETHHUK11_NAME)) # <3> uk_census_2011_religion_ethnicity <- uk_census_2011_religion_ethnicity %>% filter(grepl('Total', C_ETHPUK11_NAME)) # <3> -uk_census_2011_religion_plot <- ggplot(uk_census_2011_religion, aes(x = C_RELPUK11_NAME, y = OBS_VALUE)) + geom_bar(stat = "identity") + theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1)) +uk_census_2011_religion_plot <- ggplot(uk_census_2011_religion_ethnicity, aes(x = C_RELPUK11_NAME, y = OBS_VALUE)) + geom_bar(stat = "identity") + theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1)) ``` 1. Select columns