diff --git a/figures/create_admin_barplot-1.png b/figures/create_admin_barplot-1.png index c4fe680..74febfb 100644 Binary files a/figures/create_admin_barplot-1.png and b/figures/create_admin_barplot-1.png differ diff --git a/figures/create_choropleth_others-1.png b/figures/create_choropleth_others-1.png index a24d28f..9b952ea 100644 Binary files a/figures/create_choropleth_others-1.png and b/figures/create_choropleth_others-1.png differ diff --git a/figures/create_choropleth_others-2.png b/figures/create_choropleth_others-2.png index a35346a..651767b 100644 Binary files a/figures/create_choropleth_others-2.png and b/figures/create_choropleth_others-2.png differ diff --git a/figures/create_choropleth_others-3.png b/figures/create_choropleth_others-3.png index f05c48b..408da16 100644 Binary files a/figures/create_choropleth_others-3.png and b/figures/create_choropleth_others-3.png differ diff --git a/figures/create_simd_barplot-1.png b/figures/create_simd_barplot-1.png index 194881b..e156aa7 100644 Binary files a/figures/create_simd_barplot-1.png and b/figures/create_simd_barplot-1.png differ diff --git a/figures/create_ur_barplot-1.png b/figures/create_ur_barplot-1.png index a78321b..0ad0b87 100644 Binary files a/figures/create_ur_barplot-1.png and b/figures/create_ur_barplot-1.png differ diff --git a/figures/create_urbanrural_ecs_chart_choropleth-1.png b/figures/create_urbanrural_ecs_chart_choropleth-1.png index d2d57f3..d3770c5 100644 Binary files a/figures/create_urbanrural_ecs_chart_choropleth-1.png and b/figures/create_urbanrural_ecs_chart_choropleth-1.png differ diff --git a/figures/plot_admin_ecs_admin2_choropleth-1.png b/figures/plot_admin_ecs_admin2_choropleth-1.png index 5200f2f..5f13b35 100644 Binary files a/figures/plot_admin_ecs_admin2_choropleth-1.png and b/figures/plot_admin_ecs_admin2_choropleth-1.png differ diff --git a/figures/plot_admin_ecs_choropleth-1.png b/figures/plot_admin_ecs_choropleth-1.png index 72774d8..46510ae 100644 Binary files a/figures/plot_admin_ecs_choropleth-1.png and b/figures/plot_admin_ecs_choropleth-1.png differ diff --git a/figures/plot_admin_ecs_normed_choropleth-1.png b/figures/plot_admin_ecs_normed_choropleth-1.png index ca50df6..3787e43 100644 Binary files a/figures/plot_admin_ecs_normed_choropleth-1.png and b/figures/plot_admin_ecs_normed_choropleth-1.png differ diff --git a/figures/plot_admin_ecs_normed_choropleth-2.png b/figures/plot_admin_ecs_normed_choropleth-2.png index 4249d63..353491b 100644 Binary files a/figures/plot_admin_ecs_normed_choropleth-2.png and b/figures/plot_admin_ecs_normed_choropleth-2.png differ diff --git a/mapping_draft.Rmd b/mapping_draft.Rmd index c9da2c9..4530b7f 100644 --- a/mapping_draft.Rmd +++ b/mapping_draft.Rmd @@ -348,7 +348,7 @@ ggplot() + colour = 'black', alpha = .7, size = .005) + - viridis::scale_fill_viridis(discrete = TRUE) + + scale_fill_brewer(palette = "Oranges") + labs(x = NULL, y = NULL, fill = "Groups", title = "Figure 1a", subtitle="Concentration of ECS groups", @@ -363,8 +363,7 @@ ggplot() + panel.border = element_rect(fill = NA, colour = "#cccccc"), legend.text = element_text(size = 9), legend.position = c(0.25, 0.85)) -# TODO: shift to use of grobs: https://cran.r-project.org/web/packages/egg/vignettes/Ecosystem.html -# Adapt colour above to use oranges - scale_fill_brewer(palette = "Oranges") + +# TODO: consider a shift to use of grobs: https://cran.r-project.org/web/packages/egg/vignettes/Ecosystem.html ``` @@ -415,7 +414,7 @@ ggplot() + colour = 'black', alpha = .7, size = .005) + - viridis::scale_fill_viridis(discrete = TRUE) + + scale_fill_brewer(palette = "Oranges") + labs(x = NULL, y = NULL, fill = "Groups", title = "Figure 2", subtitle="Concentration of ECS groups, data normalised by places of worship", @@ -430,10 +429,6 @@ ggplot() + panel.border = element_rect(fill = NA, colour = "#cccccc"), legend.text = element_text(size = 8), legend.position = c(0.25, 0.85)) -# ggsave("figure2.pdf") -# Adapt colour above to use oranges - scale_fill_brewer(palette = "Oranges") + - - # Plot out second figure with normalised data: ggplot() + @@ -443,7 +438,7 @@ ggplot() + colour = 'black', alpha = .7, size = .005) + - viridis::scale_fill_viridis(discrete = TRUE) + + scale_fill_brewer(palette = "Oranges") + labs(x = NULL, y = NULL, fill = "Groups", title = "Figure 3", subtitle="Concentration of ECS groups, data normalised by population", @@ -459,7 +454,6 @@ ggplot() + legend.text = element_text(size = 8), legend.position = c(0.25, 0.85)) -# Adapt colour above to use oranges - scale_fill_brewer(palette = "Oranges") + # TODO: Force bins to be consistently at count of 5? ``` @@ -519,7 +513,7 @@ ggplot() + colour = 'black', alpha = .7, size = .005) + - viridis::scale_fill_viridis(discrete = TRUE) + + scale_fill_brewer(palette = "Oranges") + labs(x = NULL, y = NULL, fill = "Groups", title = "Figure 5", subtitle="Concentration of ECS groups", @@ -535,8 +529,6 @@ ggplot() + legend.text = element_text(size = 8), legend.position = c(0.25, 0.85)) -# Adapt colour above to use oranges - scale_fill_brewer(palette = "Oranges") + - ggplot() + geom_polygon(aes(x = long, y = lat, group = group, fill = cut_interval(admin_lev1_fortified$transition_count, 5)), @@ -544,7 +536,7 @@ ggplot() + colour = 'black', alpha = .7, size = .005) + - viridis::scale_fill_viridis(discrete = TRUE) + + scale_fill_brewer(palette = "Oranges") + labs(x = NULL, y = NULL, fill = "Groups", title = "Figure 6", subtitle="Concentration of Transition groups", @@ -560,9 +552,6 @@ ggplot() + legend.text = element_text(size = 8), legend.position = c(0.25, 0.85)) -# Adapt colour above to use oranges - scale_fill_brewer(palette = "Oranges") + - - ggplot() + geom_polygon(aes(x = long, y = lat, group = group, fill = cut_interval(admin_lev1_fortified$dtas_count, 5)), @@ -570,7 +559,7 @@ ggplot() + colour = 'black', alpha = .7, size = .005) + - viridis::scale_fill_viridis(discrete = TRUE) + + scale_fill_brewer(palette = "Oranges") + labs(x = NULL, y = NULL, fill = "Groups", title = "Figure 7", subtitle="Concentration of DTAS groups", @@ -586,8 +575,6 @@ ggplot() + legend.text = element_text(size = 8), legend.position = c(0.25, 0.85)) -# Adapt colour above to use oranges - scale_fill_brewer(palette = "Oranges") + - ``` ## Cartogram Comparisons @@ -742,22 +729,22 @@ ecs_df <- as.data.frame(ecs) urbanrural_fortified <- join(urbanrural_fortified,urbanrural@data, by="id") # Make dots smaller - add outlines, & lines thinner -# Adapt colour above to use oranges - scale_fill_brewer(palette = "BrBG") + +# Need to add scale_fill_brewer(palette = "BrBG") + ggplot() + geom_polygon(aes(x = long, y = lat, group = group, fill = UR8FOLD), data = urbanrural_fortified, - colour = 'black', + colour = "black", alpha = .7, size = .005) + - geom_point(aes(X, Y, fill = NULL, group = NULL), size = 1, data = ecs_df, + geom_point(aes(X, Y, fill = NULL, group = NULL), size = 1, data = ecs_df, colour = "black", fill = "white", size = .15, stroke = .002, alpha = .6, show.legend = TRUE) + - labs(x = NULL, y = NULL, fill = "Groups", + labs(x = NULL, y = NULL, fill = "Groups", title = "Figure 9", subtitle="Eco-Congregation Scotland concentrations in Urban Rural 8-fold classifications", caption = paste("Jeremy H. Kidwell :: jeremykidwell.info", @@ -971,27 +958,38 @@ st_crs(permaculture_sf) <- 27700 # Generate dataframe based on SSSI buffers -titles <- c("Within SSSIs", "...50m", "...500m") - +# Calculate incidence of ecs within SSSI and within buffers at 50/500m ecs_sssi_row <- c(sum(apply(st_within(ecs_sf, sssi, sparse=FALSE), 1, any)), sum(apply(st_within(ecs_sf, st_buffer(sssi, dist = 50), sparse=FALSE), 1, any)), sum(apply(st_within(ecs_sf, st_buffer(sssi, dist = 500), sparse=FALSE), 1, any))) - -ecs_sssi_row <- rbind(titles, ecs_sssi_row) +# Calculate row based on percentage of total +ecs_sssi_row_pct <- ecs_sssi_row/length(ecs) pow_sssi_row <- c(sum(apply(st_within(pow_pointX_sf, sssi, sparse=FALSE), 1, any)), sum(apply(st_within(pow_pointX_sf, st_buffer(sssi, dist = 50), sparse=FALSE), 1, any)), sum(apply(st_within(pow_pointX_sf, st_buffer(sssi, dist = 500), sparse=FALSE), 1, any))) - -sssi_counts <- rbind(ecs_sssi_row, pow_sssi_row) +pow_sssi_row_pct <- pow_sssi_row/length(pow_pointX) dtas_sssi_row <- c(sum(apply(st_within(dtas_sf, sssi, sparse=FALSE), 1, any)), sum(apply(st_within(dtas_sf, st_buffer(sssi, dist = 50), sparse=FALSE), 1, any)), sum(apply(st_within(dtas_sf, st_buffer(sssi, dist = 500), sparse=FALSE), 1, any))) - -sssi_counts <- rbind(sssi_counts, dtas_sssi_row) +dtas_sssi_row_pct <- dtas_sssi_row/length(dtas) transition_sssi_row <- c(sum(apply(st_within(transition_sf, sssi, sparse=FALSE), 1, any)), sum(apply(st_within(transition_sf, st_buffer(sssi, dist = 50), sparse=FALSE), 1, any)), sum(apply(st_within(transition_sf, st_buffer(sssi, dist = 500), sparse=FALSE), 1, any))) - -sssi_counts <- rbind(sssi_counts, transition_sssi_row) +transition_sssi_row_pct <- transition_sssi_row/length(transition) permaculture_sssi_row <- c(sum(apply(st_within(permaculture_sf, sssi, sparse=FALSE), 1, any)), sum(apply(st_within(permaculture_sf, st_buffer(sssi, dist = 50), sparse=FALSE), 1, any)), sum(apply(st_within(permaculture_sf, st_buffer(sssi, dist = 500), sparse=FALSE), 1, any))) +permaculture_sssi_row_pct <- permaculture_sssi_row/length(permaculture) +sssi_counts <- rbind(ecs_sssi_row, pow_sssi_row) +sssi_counts <- rbind(sssi_counts, dtas_sssi_row) +sssi_counts <- rbind(sssi_counts, transition_sssi_row) sssi_counts <- rbind(sssi_counts, permaculture_sssi_row) +sssi_counts <- as.data.frame(sssi_counts) +colnames(sssi_counts) <- c("Within SSSIs", "...50m", "...500m") + +sssi_counts_pct <- rbind(ecs_sssi_row_pct, pow_sssi_row_pct) +sssi_counts_pct <- rbind(sssi_counts_pct, dtas_sssi_row_pct) +sssi_counts_pct <- rbind(sssi_counts_pct, transition_sssi_row_pct) +sssi_counts_pct <- rbind(sssi_counts_pct, permaculture_sssi_row_pct) +colnames(sssi_counts_pct) <- c("% Within SSSIs", "% within 50m", "% within 500m") + +sssi_counts_merged <- cbind(sssi_counts, sssi_counts_pct) + # Generate dataframe based on wildland buffers @@ -1126,7 +1124,7 @@ urbanrural_table <- as_data_frame(urbanrural[,c(1,7:16)]) urbanrural_table %>% kable(format = "html", col.names = colnames(urbanrural_table)) %>% kable_styling(bootstrap_options = c("striped", "hover", "condensed")) %>% - kableExtra::scroll_box(width = "100%", height = "800px", caption = 'Group Counts by Urban Rural Scale') + kableExtra::scroll_box(width = "100%") ``` diff --git a/mapping_draft.html b/mapping_draft.html index dc748b6..b48f69f 100644 --- a/mapping_draft.html +++ b/mapping_draft.html @@ -11,7 +11,7 @@ - +
Until recently, environmentalism has been treated by governments and environmental charities as a largely secular concern. In spite of the well-developed tradition of “eco-theology” which began in earnest in the UK in the mid-twentieth century (and which has many precursors in previous centuries), third-sector groups and governments, particularly in Britain and Europe, have largely ignored religious groups as they have gone about their business crafting agendas for behaviour change, developing funding programmes, and developing platforms to mitigate ecological harm, motivate consumers and create regulation regimes. That this has changed is evidenced by the fact that several prominent non-religious environmental groups have commissioned studies and crafted outreach programmes to persons with a particular faith tradition or to “spiritual communities” including RSPB (2013) and the Sierra Club USA (2008).2 Further, since 2008, the Scottish Government has provided a significant portion of funding for the ecumenical charity, Eco-Congregation Scotland, which works to promote literacy on environmental issues in religious communities in Scotland and helps to certify congregations under their award programme. What is not well known, however, even by these religious environmental groups themselves, is whether or how their membership might be different from other environmental groups. This study represents an attempt to illuminate this new interest with some more concrete data about religious groups in Scotland and how they may differ from non-religious counterparts.
+Until recently, environmentalism has been treated by governments and environmental charities as a largely secular concern. In spite of the well-developed tradition of “eco-theology” which began in earnest in the UK in the mid-twentieth century (and which has many precursors in previous centuries), third-sector groups and governments, particularly in Britain and Europe, have largely ignored religious groups as they have gone about their business crafting agendas for behaviour change, developing funding programmes, and developing platforms to mitigate ecological harm, motivate consumers and create regulation regimes. That this has changed is evidenced by the fact that several prominent non-religious environmental groups have commissioned studies and crafted outreach programmes to persons with a particular faith tradition or to “spiritual communities” including RSPB (2013) and the Sierra Club USA (2008).2 Further, since 2008, the Scottish Government has provided a significant portion of funding for the ecumenical charity, Eco-Congregation Scotland, which works to promote literacy on environmental issues in religious communities in Scotland and helps to certify congregations under their award programme. What is not well known, however, even by these religious environmental groups themselves, is whether or how their membership might be different from other environmental groups. This study represents an attempt to illuminate this new interest with some more concrete data about religious groups in Scotland and how they may differ from non-religious counterparts.
There are 344 eco-congregations in Scotland. By some measurements, particularly in terms of individual sites and possibly also with regards to volunteers, this makes Eco-Congregation Scotland one of the largest environmental third-sector groups in Scotland.3
+There are 344 eco-congregations in Scotland. By some measurements, particularly in terms of individual sites and possibly also with regards to volunteers, this makes Eco-Congregation Scotland one of the largest environmental third-sector groups in Scotland.3
In seeking to conduct GIS and statistical analysis of ECS, it is important to note that there some ways in which these sites are statistically opaque. Our research conducted through interviews at a sampling of sites and analysis of a variety of documents suggests that there is a high level of diversity both in terms of the number of those participating in environmental action and the types of action underway at specific sites. Work at a particular site can also ebb and flow over the course of time. Of course, as research into other forms of activism and secular environmental NGOs has shown, this is no different from any other third sector volunteer group. Variability is a regular feature of groups involved in activism and/or environmental concern.
For the sake of this analysis, we took each Eco-Congregation Scotland site to represent a point of analysis as if each specific site represented a community group which had “opted-in” on environmental concern. On this basis, in this section, in the tradition of human geography, we “map” environmental action among religious communities in Scotland a variety of ways. This is the first major geographical analysis of this kind conducted to date in Europe. We measure the frequency and location of ECS sites against a variety of standard geo-referenced statistical data sets, seeking to provide a statistical and geographically based assessment of the participation of religious groups in relation to the following:
Analysis was conducted using QGIS 2.8 and R 3.5.2, and data-sets were generated in CSV format.4 To begin with, I assembled a data set consisting of x and y coordinates for each congregation in Scotland and collated this against a variety of other specific data. Coordinates were checked by matching UK postcodes of individual congregations against geo-referencing data in the Office for National Statistics postcode database. In certain instances a single “congregation” is actually a series of sites which have joined together under one administrative unit. In these cases, each site was treated as a separate data point if worship was held at that site at least once a month, but all joined sites shared a single unique identifier. As noted above, two other datasets were generated for the sake of comparative analysis.5 These included one similar Environmental Non-Governmental Organisation (ENGO) in Scotland (1) Transition Scotland (which includes Scotland Communities Climate Action Network);6 and another community-based NGO, Scottish Community Development Trusts.7 As this report will detail, these three overlap in certain instances both literally and in terms of their aims, but each also has a separate identity and footprint in Scotland. Finally, in order to normalise data, we utilised the PointX POI dataset which maintains a complete database of Places of Worship in Scotland.8
+Analysis was conducted using QGIS 2.8 and R 3.5.1, and data-sets were generated in CSV format.4 To begin with, I assembled a data set consisting of x and y coordinates for each congregation in Scotland and collated this against a variety of other specific data. Coordinates were checked by matching UK postcodes of individual congregations against geo-referencing data in the Office for National Statistics postcode database. In certain instances a single “congregation” is actually a series of sites which have joined together under one administrative unit. In these cases, each site was treated as a separate data point if worship was held at that site at least once a month, but all joined sites shared a single unique identifier. As noted above, two other datasets were generated for the sake of comparative analysis.5 These included one similar Environmental Non-Governmental Organisation (ENGO) in Scotland (1) Transition Scotland (which includes Scotland Communities Climate Action Network);6 and another community-based NGO, Scottish Community Development Trusts.7 As this report will detail, these three overlap in certain instances both literally and in terms of their aims, but each also has a separate identity and footprint in Scotland. Finally, in order to normalise data, we utilised the PointX POI dataset which maintains a complete database of Places of Worship in Scotland.8
Eco-Congregation Scotland began a year before the official launch of Eco-Congregation England and Wales, in 1999, as part of an effort by Kippen Environment Centre (later renamed to Forth Environment Link, or “FEL”) a charity devoted to environmental education in central Scotland9 to broaden the scope of its environmental outreach to churches in central Scotland.10 Initial funding was provided, through Kippen Environment Centre by way of a “sustainable action grant” (with funds drawn from a government landfill tax) through a government programme called Keep Scotland Beautiful (the Scottish cousin of Keep Britain Tidy). After this initial pilot project concluded, the Church of Scotland provided additional funding for the project in the form of staff time and office space. Additional funding a few years later from the Scottish Government helped subsidise the position of a business manager, and in 2011 the United Reformed Church contributed additional funding which subsidised the position of a full-time environmental chaplain for a 5-year term, bringing the total staff to five.
-The programme launched officially in 2001 at Dunblane Cathedral in Stirling and by 2005 the project had 89 congregations registered to be a part of the programme and 25 which had completed the curriculum successfully and received an Eco-Congregation award. By 2011, the number of registrations had tripled to 269 and the number of awarded congregations had quadrupled to sum(ecs$award1 < "01/01/2012", na.rm=TRUE)
. This process of taking registrations and using a tiered award or recognition scheme is common to many voluntary organisations. The ECS curriculum was developed in part by consulting the Eco-Congregation England and Wales materials which had been released just a year earlier in 1999, though it has been subsequently revised, particularly with a major redesign in 2010. In the USA, a number of similar groups take a similar approach including Earth Ministry (earthministry.org) and Green Faith (greenfaith.org).
In the case of Eco-Congregation Scotland, congregations are invited to begin by “registering” their interest in the programme by completing a basic one-sided form. The next step requires the completion of an award application, which includes a facilitated curriculum called a “church check-up” and after an application is submitted, the site is visited and assessed by third-party volunteer assessors. Sites are invited to complete additional applications for further awards which are incremental (as is the application process). Transition communities, at least in the period reflected on their map, go through a similar process (though this does not involve the use of a supplied curriculum) by which they are marked first as “interested,” become “active” and then gain “official” status.11
+Eco-Congregation Scotland began a year before the official launch of Eco-Congregation England and Wales, in 1999, as part of an effort by Kippen Environment Centre (later renamed to Forth Environment Link, or “FEL”) a charity devoted to environmental education in central Scotland9 to broaden the scope of its environmental outreach to churches in central Scotland.10 Initial funding was provided, through Kippen Environment Centre by way of a “sustainable action grant” (with funds drawn from a government landfill tax) through a government programme called Keep Scotland Beautiful (the Scottish cousin of Keep Britain Tidy). After this initial pilot project concluded, the Church of Scotland provided additional funding for the project in the form of staff time and office space. Additional funding a few years later from the Scottish Government helped subsidise the position of a business manager, and in 2011 the United Reformed Church contributed additional funding which subsidised the position of a full-time environmental chaplain for a 5-year term, bringing the total staff to five.
+The programme launched officially in 2001 at Dunblane Cathedral in Stirling and by 2005 the project had 89 congregations registered to be a part of the programme and 25 which had completed the curriculum successfully and received an Eco-Congregation award. By 2011, the number of registrations had tripled to 269 and the number of awarded congregations had quadrupled to sum(ecs$award1 < "01/01/2012", na.rm=TRUE)
. This process of taking registrations and using a tiered award or recognition scheme is common to many voluntary organisations. The ECS curriculum was developed in part by consulting the Eco-Congregation England and Wales materials which had been released just a year earlier in 1999, though it has been subsequently revised, particularly with a major redesign in 2010. In the USA, a number of similar groups take a similar approach including Earth Ministry (earthministry.org) and Green Faith (greenfaith.org).
In the case of Eco-Congregation Scotland, congregations are invited to begin by “registering” their interest in the programme by completing a basic one-sided form. The next step requires the completion of an award application, which includes a facilitated curriculum called a “church check-up” and after an application is submitted, the site is visited and assessed by third-party volunteer assessors. Sites are invited to complete additional applications for further awards which are incremental (as is the application process). Transition communities, at least in the period reflected on their map, go through a similar process (though this does not involve the use of a supplied curriculum) by which they are marked first as “interested,” become “active” and then gain “official” status.11