-
Notifications
You must be signed in to change notification settings - Fork 0
/
money per art form.R
114 lines (104 loc) · 3.3 KB
/
money per art form.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
# already looked at money per constituency
# and per la
# time to do per art form
# load packages
library(tidyverse)
library(readxl)
library(scales)
library(janitor)
library(ggrepel)
library(ggridges)
library(ggforce)
# crf money: from the ace site
crf_money_round1 <-
read_excel("CRF investment data published 020421.xlsx", 2) %>%
select(-Strand) %>%
mutate(source = "ACE grants round 1")
crf_money_capitalkickstart <-
read_excel("CRF investment data published 020421.xlsx", 3) %>%
mutate(source = "ACE capital kickstart")
crf_money_round2 <-
read_excel("CRF investment data published 020421.xlsx", 4) %>%
mutate(source = "ACE grants round 2")
# crf money: from dcms
# https://www.gov.uk/government/news/400-million-to-help-more-than-2700-arts-culture-heritage-organisations-and-independent-cinemas-survive-and-thrive
# sheet 1 seems to be the same, so steering clear for the moment
# bfi: weird missingness, trying to deal by replacing NAs with "per cinema"
bfi_money <-
read_excel("CRF_2-Awards_read-only.xlsx", 2,
skip = 1,
na = "-") %>%
mutate(`Award (£)` =
coalesce(`Award (£)`,
`Award per Cinema (£)`))
# nlhf: looks ok
nlhf_money <-
read_excel("CRF_2-Awards_read-only.xlsx", 3,
skip = 1)
# repayable finance from dcms - seems fine
repayable_finance <-
read_excel("CRF_2-Awards_read-only.xlsx", 4,
skip = 1) %>%
mutate(`Local authority` = fct_recode(`Local authority`,
"York" =
"City of York"))
# combine crf money: ace
crf_money <-
bind_rows(crf_money_round1,
crf_money_round2,
crf_money_capitalkickstart)
# crf money per discipline: ace
crf_money %>%
group_by(Discipline) %>%
summarise(total_money =
sum(`£ Awarded`)) %>%
arrange(-total_money)
# crf money per discipline once you add bfi
bfi_money %>%
rename("Organisation" =
"Applicant Name",
"£ Awarded" =
"Award (£)",
"Region ONS" =
"Region",
"Local Authority" =
"Local authority") %>%
select(-c("Cinema",
"Award per Cinema (£)")) %>%
bind_rows((crf_money %>%
select(-c(`Applicant ACE Area`,
source)))) %>%
group_by(Discipline) %>%
summarise(total_money =
sum(`£ Awarded`)) %>%
arrange(-total_money)
# attempt to add nlhf as well, a bit shakier this one
bfi_money %>%
rename("Organisation" =
"Applicant Name",
"£ Awarded" =
"Award (£)",
"Region ONS" =
"Region",
"Local Authority" =
"Local authority") %>%
select(-c("Cinema",
"Award per Cinema (£)")) %>%
bind_rows((crf_money %>%
select(-c(`Applicant ACE Area`,
source)))) %>%
bind_rows(nlhf_money %>%
rename("Organisation" =
"Applicant",
"Discipline" =
"Heritage Area",
"Local Authority" =
"Local authority",
"Region ONS" =
"Region",
"£ Awarded" =
"Award (£)") ) %>%
group_by(Discipline) %>%
summarise(total_money =
sum(`£ Awarded`)) %>%
arrange(-total_money)