Skip to content

Commit b0aea16

Browse files
Sara-Jade-OSara-Jade-O
authored
124 summarise all (#131)
* 125 remove items from summarise_all * 126 update items in summarise_all * 127 add items to summarise all
1 parent fe10ad4 commit b0aea16

2 files changed

Lines changed: 20 additions & 24 deletions

File tree

‎R/frequency-tables.R‎

Lines changed: 17 additions & 21 deletions
Original file line numberDiff line numberDiff line change
@@ -14,49 +14,45 @@
1414
summarise_all <- function(data, config, all_tables = FALSE, sample = TRUE) {
1515

1616
output_list <- list(
17+
time_in_role = summarise_data(data, config, question = "time_in_role", sample = sample),
1718
code_freq = summarise_data(data, config, question = "code_freq", sample = sample),
19+
coding_freq_pref = summarise_data(data, config, question = "coding_freq_pref", sample = sample),
1820
knowledge = summarise_coding_tools(data, config, question = "coding_tools_knowledge", sample = sample),
19-
access = summarise_coding_tools(data, config, question = "coding_tools_access", sample = sample),
20-
first_learned = summarise_data(data, config, question = "first_learned", sample = sample),
21+
use = summarise_coding_tools(data, config, question = "coding_tools_use", sample = sample),
2122
ability_change = summarise_data(data, config, question = "ability_change" , sample = sample),
23+
coding_learn_pref = summarise_data(data, config, question = "coding_learn_pref", sample = sample),
24+
coding_improve_barriers = summarise_data(data, config, question = "coding_improve_barriers", sample = sample),
25+
coding_learn_barriers = summarise_data(data,config, question = "coding_learn_barriers", sample = sample),
2226
coding_years = summarise_data(data, config, question = "coding_years" , sample = sample),
2327
coding_practices = summarise_multi_col_data(data, config, question = "coding_practices" , sample = sample),
2428
working_practices = summarise_multi_col_data(data, config, question = "working_practices" , sample = sample),
2529
doc = summarise_multi_col_data(data, config, question = "doc" , sample = sample),
2630
rap_knowledge = summarise_data(data, config, question = "heard_of_rap" , sample = sample),
27-
rap_opinions = summarise_rap_opinions(data, config, question = "rap_opinions" , sample = sample),
28-
git_knowledge = summarise_git(data, config, question = "coding_tools_knowledge" , sample = sample),
29-
access_git = summarise_git(data, config, question = "coding_tools_access" , sample = sample),
30-
rap_components = summarise_rap_comp(data, config, question = "rap_components", sample = sample)
31+
rap_components = summarise_rap_comp(data, config, question = "rap_components", sample = sample),
32+
git = summarise_git(data, config, question = "git", sample = sample),
33+
cloud= summarise_data(data, config, question = "cloud", sample = sample),
34+
rap_implementing = summarise_data(data, config, question = "rap_implementing", sample = sample),
35+
rap_barriers = summarise_data(data, config, question = "rap_barriers", sample = sample),
36+
standards = summarise_data(data, config, question = "standards", sample = sample),
37+
duck_book = summarise_data(data, config, question = "duck_book", sample = sample),
38+
packages = summarise_data(data, config, question = "packages", sample = sample)
3139

3240
)
33-
41+
3442
if (all_tables) {
3543

3644
output_list <- c(output_list,
3745
list(
3846
coding_exp = summarise_data(data, config, question = "coding_exp", sample = sample),
3947
team = summarise_data(data, config, question = "team", sample = sample),
40-
management = summarise_data(data, config, question = "management", sample = sample),
41-
code_leisure = summarise_data(data, config, question = "code_leisure", sample = sample),
42-
ai = summarise_data(data, config, question = "ai" , sample = sample),
48+
manage_project = summarise_data(data, config, question = "manage_project", sample = sample),
4349
ai_tools = summarise_data(data, config, question = "ai_tools" , sample = sample),
44-
ai_use = summarise_data(data, config, question = "ai_use" , sample = sample),
45-
ai_trust = summarise_data(data, config, question = "ai_trust" , sample = sample),
50+
ai_use = summarise_multi_col_data(data, config, question = "ai_use" , sample = sample),
4651
qs_aware = summarise_data(data, config, question = "qs_aware" , sample = sample),
4752
qs_comply = summarise_data(data, config, question = "qs_comply" , sample = sample),
4853
qq_aware = summarise_data(data, config, question = "qq_aware" , sample = sample),
4954
capability_change_by_freq = summarise_cap_change_by_freq(data, config, question1 = "code_freq", question2 = "ability_change", sample = sample),
5055
languages_by_prof = summarise_languages_by_prof(data, config, question = "professions" , sample = sample)
51-
# capability_change_by_line_manage = summarise_cap_change_by_line_manage(data),
52-
# capability_change_by_CS_grade = summarise_cap_change_by_CS_grade(data),
53-
# basic_score_by_implementation = summarise_basic_score_by_imp(data),
54-
# adv_score_by_implementation = summarise_adv_score_by_imp(data),
55-
# basic_score_by_understanding = summarise_basic_score_by_understanding(data),
56-
# adv_score_by_understanding = summarise_adv_score_by_understanding(data),
57-
# language_status = summarise_language_status(data),
58-
# open_source_by_prof = summarise_open_source_by_prof(data),
59-
# heard_of_RAP_by_prof = summarise_heard_of_RAP_by_prof(data)
6056
))
6157
}
6258

‎quarto/templates/summary.qmd‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -66,7 +66,7 @@ Access to tools does not necessarily refer to official policy. Some analysts may
6666

6767
```{r}
6868
69-
tables$access <- tables$access |>
69+
tables$use <- tables$use |>
7070
dplyr::arrange(factor(name, levels = c("Python",
7171
"R",
7272
"SQL",
@@ -76,8 +76,8 @@ tables$access <- tables$access |>
7676
"Stata",
7777
"VBA")))
7878
79-
plot <- CARS::plot_stacked(tables$access, xlab = "Programming tool", colour_scale = "3scale", font_size = 14)
80-
table <- CARS::df_to_table(tables$access, column_headers = c("Programming tool", "Yes", "No", "Don't know"), crosstab = TRUE)
79+
plot <- CARS::plot_stacked(tables$use, xlab = "Programming tool", colour_scale = "3scale", font_size = 14)
80+
table <- CARS::df_to_table(tables$use, column_headers = c("Programming tool", "Yes", "No", "Don't know"), crosstab = TRUE)
8181
8282
CARS::wrap_outputs("access", plot, table)
8383

0 commit comments

Comments
 (0)