/
tab_institution.R
46 lines (40 loc) · 1.68 KB
/
tab_institution.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
## Only 59 respondants provided information about tools, so I'm not visualising that data
# institution_tool_types <- list("Managing active data" = "managing.active.data",
# "Data sharing" = "data.sharing",
# "Data publishing" = "data.publishing",
# "Discovering existing datasets" = "discovering.existing.data",
# "Data archive and preservation" = "data.archive.and.preservation")
#
# qs_institution_tools <- survey_labels %>%
# filter(combined.q.id == 3) %>%
# select(short.colname) %>%
# .[[1]] %>%
# unique()
#
# survey_responses[, grepl(qs_institution_tools, colnames(survey_responses))] %>%
# filter(rowSums(is.na(.)) != ncol(.))
output$institution_open_data_guidance_hc <- renderHighchart({
survey_responses %>%
select(contains("how.org.provides.open.data.guidance")) %>%
multiple_choice_tally("how.org.provides.open.data.guidance", drop.skipped = TRUE) %>%
arrange(desc(count)) %>%
hchart(type = "bar",
hcaes(
x = response,
y = count
)) %>%
hc_style_survey_percentage() %>%
hc_title(text = "How does your institution/organisation provide guidance to researchers on open data?")
})
survey_responses %>%
select(contains("does.org.incentvise.open.data")) %>%
filter(!is.na(.))
multiple_choice_tally("does.org.advise.on.what.should.be.open", drop.skipped = TRUE) %>%
arrange(desc(count)) %>%
hchart(type = "bar",
hcaes(
x = response,
y = count
)) %>%
hc_style_survey_percentage() %>%
hc_title(text = "How does your institution/organisation provide guidance to researchers on open data?")