diff --git a/01_descriptives_parts_a_b.Rmd b/01_descriptives_parts_a_b.Rmd index 8eb9db9..06320e2 100644 --- a/01_descriptives_parts_a_b.Rmd +++ b/01_descriptives_parts_a_b.Rmd @@ -228,12 +228,11 @@ a1_df_rec <- a1_df %>% recode_successful(a1_df, a1_df_rec) - visdat::vis_miss(a1_df_rec) a1_df_rec %>% - plot_likert(question_codes, "Practices regarding OS") + plot_likert() ``` @@ -259,7 +258,7 @@ a2_df %>% summarise(across(.fns = ~sum(is.na(.x)))) a2_df_rec %>% - plot_likert(question_codes, "Own pratices regarding Open Access publishing") + plot_likert() ``` @@ -280,7 +279,7 @@ a3_df %>% summarise(across(.fns = ~sum(is.na(.x)))) a3_df_rec %>% - plot_likert(question_codes, "Own practices regarding Research Data Management") + plot_likert() ``` @@ -301,7 +300,7 @@ a4_df %>% summarise(across(.fns = ~sum(is.na(.x)))) a4_df_rec %>% - plot_likert(question_codes, "Practices regarding Reproducible Research") + plot_likert() ``` @@ -329,7 +328,7 @@ a5_df %>% summarise(across(.fns = ~sum(is.na(.x)))) a5_df_rec %>% - plot_likert(question_codes, "Pratices regarding Open Peer Review") + plot_likert() ``` @@ -351,7 +350,7 @@ a6_df %>% summarise(across(.fns = ~sum(is.na(.x)))) a6_df_rec %>% - plot_likert(question_codes, "Practices regarding Open Source Software") + plot_likert() ``` @@ -373,7 +372,7 @@ a7_df %>% summarise(across(.fns = ~sum(is.na(.x)))) a7_df_rec %>% - plot_likert(question_codes, "Practices regarding Licensing") + plot_likert() ``` @@ -394,7 +393,7 @@ a8_df %>% summarise(across(.fns = ~sum(is.na(.x)))) a8_df_rec %>% - plot_likert(question_codes, "Practices regarding Research Integrity") + plot_likert() ``` @@ -415,7 +414,7 @@ a9_df %>% summarise(across(.fns = ~sum(is.na(.x)))) a9_df_rec %>% - plot_likert(question_codes, "Practices regarding Citizen Science") + plot_likert() ``` @@ -436,7 +435,7 @@ a10_df %>% summarise(across(.fns = ~sum(is.na(.x)))) a10_df_rec %>% - plot_likert(question_codes, "Practices regarding Gender Issues") + plot_likert() ``` @@ -462,7 +461,7 @@ b1_df %>% summarise(across(.fns = ~sum(is.na(.x)))) b1_df_rec %>% - plot_likert(question_codes, "Attended Training Events") + plot_likert() ``` @@ -487,7 +486,7 @@ b3_df_rec %>% summarise(across(.fns = ~sum(is.na(.x)))) b3_df_rec %>% - plot_likert(question_codes, "Attended Different Types of Training Sessions") + plot_likert() ``` @@ -534,7 +533,7 @@ b6_df_rec %>% summarise(across(.fns = ~sum(is.na(.x)))) b6_df_rec %>% - plot_likert(question_codes, "Attended Different Types of Training Sessions") + plot_likert() ``` @@ -579,7 +578,7 @@ b9_df_rec <- b9_df %>% b9_df_rec %>% - plot_likert(question_codes, "Who provided the training sessions you attended?") + plot_likert() ``` @@ -598,7 +597,7 @@ b10_df_rec <- b10_df %>% b10_df_rec %>% - plot_likert(question_codes, "Preferred way to learn OS topics") + plot_likert() ``` @@ -624,7 +623,7 @@ recode_successful(b11_df, b11_df_rec) b11_df_rec %>% - plot_likert(question_codes, "Has your awareness of open science practices\nincreased after the training you attended?") + plot_likert() ``` @@ -646,7 +645,7 @@ b12_df_rec %>% summarise(across(.fns = ~sum(is.na(.x)))) b12_df_rec %>% - plot_likert(question_codes, "Would you share your experience with open science practices\nand tools with colleagues?") + plot_likert() ``` diff --git a/01_descriptives_parts_a_b.html b/01_descriptives_parts_a_b.html index 0a19fbb..03e8487 100644 --- a/01_descriptives_parts_a_b.html +++ b/01_descriptives_parts_a_b.html @@ -559,23 +559,13 @@

A1 Practices in OS

mutate(across(.fns = factor, levels = answer_levels)) -a1_df %>% - summarise(across(.fns = ~sum(is.na(.x)))) -
## # A tibble: 1 x 5
-##   `A1[SQ001]` `A1[SQ002]` `A1[SQ003]` `A1[SQ004]` `A1[SQ005]`
-##         <int>       <int>       <int>       <int>       <int>
-## 1           3           3           4           8           4
-
a1_df_rec %>% 
-  summarise(across(.fns = ~sum(is.na(.x))))
-
## # A tibble: 1 x 5
-##   `A1[SQ001]` `A1[SQ002]` `A1[SQ003]` `A1[SQ004]` `A1[SQ005]`
-##         <int>       <int>       <int>       <int>       <int>
-## 1           3           3           4           8           4
+recode_successful(a1_df, a1_df_rec) +
## [1] TRUE
visdat::vis_miss(a1_df_rec)

a1_df_rec %>% 
-  plot_likert(question_codes, "Practices regarding OS")
-

+ plot_likert() +

A2 Own pratices regarding Open Access publishing

@@ -599,8 +589,8 @@

A2 Own pratices regarding Open Access publishing

## <int> <int> <int> <int> <int> ## 1 3 2 5 7 7 
a2_df_rec %>% 
-  plot_likert(question_codes, "Own pratices regarding Open Access publishing")
-

+ plot_likert() +

A3 Own practices regarding Research Data Management

@@ -619,8 +609,8 @@

A3 Own practices regarding Research Data Management

## <int> <int> <int> <int> <int> ## 1 4 5 7 7 8 
a3_df_rec %>% 
-  plot_likert(question_codes, "Own practices regarding Research Data Management")
-

+ plot_likert() +

A4 Practices regarding Reproducible Research

@@ -639,8 +629,8 @@

A4 Practices regarding Reproducible Research

## <int> <int> <int> <int> <int> ## 1 5 5 6 12 7 
a4_df_rec %>% 
-  plot_likert(question_codes, "Practices regarding Reproducible Research")
-

+ plot_likert() +

A5 Pratices regarding Open Peer Review

@@ -665,8 +655,8 @@

A5 Pratices regarding Open Peer Review

## <int> <int> <int> <int> <int> ## 1 6 10 10 10 12 
a5_df_rec %>% 
-  plot_likert(question_codes, "Pratices regarding Open Peer Review")
-

+ plot_likert() +

A6 Practices regarding Open Source Software

@@ -685,8 +675,8 @@

A6 Practices regarding Open Source Software

## <int> <int> <int> <int> <int> ## 1 9 8 9 9 9 
a6_df_rec %>% 
-  plot_likert(question_codes, "Practices regarding Open Source Software")
-

+ plot_likert() +

A7 Practices regarding Licensing

@@ -705,8 +695,8 @@

A7 Practices regarding Licensing

## <int> <int> <int> <int> <int> ## 1 11 13 14 11 9 
a7_df_rec %>% 
-  plot_likert(question_codes, "Practices regarding Licensing")
-

+ plot_likert() +

A8 Practices regarding Research Integrity

@@ -725,8 +715,8 @@

A8 Practices regarding Research Integrity

## <int> <int> <int> <int> <int> ## 1 5 5 5 5 7 
a8_df_rec %>% 
-  plot_likert(question_codes, "Practices regarding Research Integrity")
-

+ plot_likert() +

A9 Practices regarding Citizen Science (information, consultation, public participation)

@@ -745,8 +735,8 @@

A9 Practices regarding Citizen Science (information, consultation, public pa ## <int> <int> <int> <int> <int> ## 1 5 5 4 5 6 
a9_df_rec %>% 
-  plot_likert(question_codes, "Practices regarding Citizen Science")
-

+ plot_likert() +

A10 Practices regarding Gender Issue

@@ -765,8 +755,8 @@

A10 Practices regarding Gender Issue

## <int> <int> <int> <int> <int> ## 1 4 4 5 6 7 
a10_df_rec %>% 
-  plot_likert(question_codes, "Practices regarding Gender Issues")
-

+ plot_likert() +

Part B Training on OS topics

@@ -793,8 +783,8 @@

B1 Attended Training Events

## # ... with 5 more variables: B1[SQ007] <int>, B1[SQ008] <int>, B1[SQ009] <int>, ## # B1[SQ010] <int>, B1[SQ013] <int> 
b1_df_rec %>% 
-  plot_likert(question_codes, "Attended Training Events")
-

+ plot_likert() +

B3 Attended Different Types of Training Sessions

@@ -818,8 +808,8 @@

B3 Attended Different Types of Training Sessions

## # ... with 4 more variables: B3[SQ007] <int>, B3[SQ008] <int>, B3[SQ009] <int>, ## # B3[SQ013] <int> 
b3_df_rec %>% 
-  plot_likert(question_codes, "Attended Different Types of Training Sessions")
-

+ plot_likert() +

B5 Hours of training

@@ -861,8 +851,8 @@

B6 Attended Different Types of Training Sessions

## # ... with 5 more variables: B6[SQ007] <int>, B6[SQ008] <int>, B6[SQ009] <int>, ## # B6[SQ010] <int>, B6[SQ013] <int> 
b6_df_rec %>% 
-  plot_likert(question_codes, "Attended Different Types of Training Sessions")
-

+ plot_likert() +

B8 Attendance of first formal training in any Open Science topic

@@ -894,8 +884,8 @@

B9 Provider of attended training sessions

b9_df_rec %>% - plot_likert(question_codes, "Who provided the training sessions you attended?") -

+ plot_likert() +

B10 Preferred way to learn OS topics

@@ -908,8 +898,8 @@

B10 Preferred way to learn OS topics

b10_df_rec %>% - plot_likert(question_codes, "Preferred way to learn OS topics") -

+ plot_likert() +

B11 Has your awareness of open science practices increased after the training you attended?

@@ -928,8 +918,8 @@

B11 Has your awareness of open science practices increased after the trainin recode_successful(b11_df, b11_df_rec) 
## [1] TRUE
b11_df_rec %>% 
-  plot_likert(question_codes, "Has your awareness of open science practices\nincreased after the training you attended?")
-

+ plot_likert() +

B12 Share experience OS practices/tool with colleagues

@@ -948,8 +938,8 @@

B12 Share experience OS practices/tool with colleagues

## <int> <int> <int> <int> ## 1 0 0 0 0 
b12_df_rec %>% 
-  plot_likert(question_codes, "Would you share your experience with open science practices\nand tools with colleagues?")
-

+ plot_likert() +

Further todos

diff --git a/01_descriptives_parts_a_b.md b/01_descriptives_parts_a_b.md index be5af1a..9eaff92 100644 --- a/01_descriptives_parts_a_b.md +++ b/01_descriptives_parts_a_b.md @@ -259,33 +259,13 @@ a1_df_rec <- a1_df %>% mutate(across(.fns = factor, levels = answer_levels)) -a1_df %>% - summarise(across(.fns = ~sum(is.na(.x)))) -``` - -``` -## # A tibble: 1 x 5 -## `A1[SQ001]` `A1[SQ002]` `A1[SQ003]` `A1[SQ004]` `A1[SQ005]` -## -## 1 3 3 4 8 4 -``` - - - -```r -a1_df_rec %>% - summarise(across(.fns = ~sum(is.na(.x)))) +recode_successful(a1_df, a1_df_rec) ``` ``` -## # A tibble: 1 x 5 -## `A1[SQ001]` `A1[SQ002]` `A1[SQ003]` `A1[SQ004]` `A1[SQ005]` -## -## 1 3 3 4 8 4 +## [1] TRUE ``` - - ```r visdat::vis_miss(a1_df_rec) ``` @@ -294,7 +274,7 @@ visdat::vis_miss(a1_df_rec) ```r a1_df_rec %>% - plot_likert(question_codes, "Practices regarding OS") + plot_likert() ``` ![](01_descriptives_parts_a_b_files/figure-html/a1-2.png) @@ -331,7 +311,7 @@ a2_df %>% ```r a2_df_rec %>% - plot_likert(question_codes, "Own pratices regarding Open Access publishing") + plot_likert() ``` ![](01_descriptives_parts_a_b_files/figure-html/a2-1.png) @@ -363,7 +343,7 @@ a3_df %>% ```r a3_df_rec %>% - plot_likert(question_codes, "Own practices regarding Research Data Management") + plot_likert() ``` ![](01_descriptives_parts_a_b_files/figure-html/a3-1.png) @@ -395,7 +375,7 @@ a4_df %>% ```r a4_df_rec %>% - plot_likert(question_codes, "Practices regarding Reproducible Research") + plot_likert() ``` ![](01_descriptives_parts_a_b_files/figure-html/a4-1.png) @@ -433,7 +413,7 @@ a5_df %>% ```r a5_df_rec %>% - plot_likert(question_codes, "Pratices regarding Open Peer Review") + plot_likert() ``` ![](01_descriptives_parts_a_b_files/figure-html/a5-1.png) @@ -465,7 +445,7 @@ a6_df %>% ```r a6_df_rec %>% - plot_likert(question_codes, "Practices regarding Open Source Software") + plot_likert() ``` ![](01_descriptives_parts_a_b_files/figure-html/a6-1.png) @@ -497,7 +477,7 @@ a7_df %>% ```r a7_df_rec %>% - plot_likert(question_codes, "Practices regarding Licensing") + plot_likert() ``` ![](01_descriptives_parts_a_b_files/figure-html/a7-1.png) @@ -529,7 +509,7 @@ a8_df %>% ```r a8_df_rec %>% - plot_likert(question_codes, "Practices regarding Research Integrity") + plot_likert() ``` ![](01_descriptives_parts_a_b_files/figure-html/a8-1.png) @@ -561,7 +541,7 @@ a9_df %>% ```r a9_df_rec %>% - plot_likert(question_codes, "Practices regarding Citizen Science") + plot_likert() ``` ![](01_descriptives_parts_a_b_files/figure-html/a9-1.png) @@ -593,7 +573,7 @@ a10_df %>% ```r a10_df_rec %>% - plot_likert(question_codes, "Practices regarding Gender Issues") + plot_likert() ``` ![](01_descriptives_parts_a_b_files/figure-html/a10-1.png) @@ -631,7 +611,7 @@ b1_df %>% ```r b1_df_rec %>% - plot_likert(question_codes, "Attended Training Events") + plot_likert() ``` ![](01_descriptives_parts_a_b_files/figure-html/b1-1.png) @@ -668,7 +648,7 @@ b3_df_rec %>% ```r b3_df_rec %>% - plot_likert(question_codes, "Attended Different Types of Training Sessions") + plot_likert() ``` ![](01_descriptives_parts_a_b_files/figure-html/b3-1.png) @@ -735,7 +715,7 @@ b6_df_rec %>% ```r b6_df_rec %>% - plot_likert(question_codes, "Attended Different Types of Training Sessions") + plot_likert() ``` ![](01_descriptives_parts_a_b_files/figure-html/b6-1.png) @@ -782,7 +762,7 @@ b9_df_rec <- b9_df %>% b9_df_rec %>% - plot_likert(question_codes, "Who provided the training sessions you attended?") + plot_likert() ``` ![](01_descriptives_parts_a_b_files/figure-html/b9-1.png) @@ -802,7 +782,7 @@ b10_df_rec <- b10_df %>% b10_df_rec %>% - plot_likert(question_codes, "Preferred way to learn OS topics") + plot_likert() ``` ![](01_descriptives_parts_a_b_files/figure-html/b10-1.png) @@ -834,7 +814,7 @@ recode_successful(b11_df, b11_df_rec) ```r b11_df_rec %>% - plot_likert(question_codes, "Has your awareness of open science practices\nincreased after the training you attended?") + plot_likert() ``` ![](01_descriptives_parts_a_b_files/figure-html/b11-1.png) @@ -866,7 +846,7 @@ b12_df_rec %>% ```r b12_df_rec %>% - plot_likert(question_codes, "Would you share your experience with open science practices\nand tools with colleagues?") + plot_likert() ``` ![](01_descriptives_parts_a_b_files/figure-html/b12-1.png) diff --git a/01_descriptives_parts_a_b_files/figure-html/a1-2.png b/01_descriptives_parts_a_b_files/figure-html/a1-2.png index 7253050..1d51bb6 100644 Binary files a/01_descriptives_parts_a_b_files/figure-html/a1-2.png and b/01_descriptives_parts_a_b_files/figure-html/a1-2.png differ diff --git a/01_descriptives_parts_a_b_files/figure-html/a1-3.png b/01_descriptives_parts_a_b_files/figure-html/a1-3.png new file mode 100644 index 0000000..6a8d515 Binary files /dev/null and b/01_descriptives_parts_a_b_files/figure-html/a1-3.png differ diff --git a/01_descriptives_parts_a_b_files/figure-html/a10-1.png b/01_descriptives_parts_a_b_files/figure-html/a10-1.png index 87f9c90..411d5b7 100644 Binary files a/01_descriptives_parts_a_b_files/figure-html/a10-1.png and b/01_descriptives_parts_a_b_files/figure-html/a10-1.png differ diff --git a/01_descriptives_parts_a_b_files/figure-html/a2-1.png b/01_descriptives_parts_a_b_files/figure-html/a2-1.png index d9fad49..1855422 100644 Binary files a/01_descriptives_parts_a_b_files/figure-html/a2-1.png and b/01_descriptives_parts_a_b_files/figure-html/a2-1.png differ diff --git a/01_descriptives_parts_a_b_files/figure-html/a3-1.png b/01_descriptives_parts_a_b_files/figure-html/a3-1.png index 5ebe1b1..2b695cd 100644 Binary files a/01_descriptives_parts_a_b_files/figure-html/a3-1.png and b/01_descriptives_parts_a_b_files/figure-html/a3-1.png differ diff --git a/01_descriptives_parts_a_b_files/figure-html/a4-1.png b/01_descriptives_parts_a_b_files/figure-html/a4-1.png index 39481c6..ce3f2c2 100644 Binary files a/01_descriptives_parts_a_b_files/figure-html/a4-1.png and b/01_descriptives_parts_a_b_files/figure-html/a4-1.png differ diff --git a/01_descriptives_parts_a_b_files/figure-html/a5-1.png b/01_descriptives_parts_a_b_files/figure-html/a5-1.png index c4051b0..117d8ee 100644 Binary files a/01_descriptives_parts_a_b_files/figure-html/a5-1.png and b/01_descriptives_parts_a_b_files/figure-html/a5-1.png differ diff --git a/01_descriptives_parts_a_b_files/figure-html/a6-1.png b/01_descriptives_parts_a_b_files/figure-html/a6-1.png index 7e9b5ae..c739876 100644 Binary files a/01_descriptives_parts_a_b_files/figure-html/a6-1.png and b/01_descriptives_parts_a_b_files/figure-html/a6-1.png differ diff --git a/01_descriptives_parts_a_b_files/figure-html/a7-1.png b/01_descriptives_parts_a_b_files/figure-html/a7-1.png index d709908..3c355be 100644 Binary files a/01_descriptives_parts_a_b_files/figure-html/a7-1.png and b/01_descriptives_parts_a_b_files/figure-html/a7-1.png differ diff --git a/01_descriptives_parts_a_b_files/figure-html/a8-1.png b/01_descriptives_parts_a_b_files/figure-html/a8-1.png index 03e0b66..a479427 100644 Binary files a/01_descriptives_parts_a_b_files/figure-html/a8-1.png and b/01_descriptives_parts_a_b_files/figure-html/a8-1.png differ diff --git a/01_descriptives_parts_a_b_files/figure-html/a9-1.png b/01_descriptives_parts_a_b_files/figure-html/a9-1.png index b549648..89edf55 100644 Binary files a/01_descriptives_parts_a_b_files/figure-html/a9-1.png and b/01_descriptives_parts_a_b_files/figure-html/a9-1.png differ diff --git a/01_descriptives_parts_a_b_files/figure-html/b1-1.png b/01_descriptives_parts_a_b_files/figure-html/b1-1.png index e7ee67b..6f466f5 100644 Binary files a/01_descriptives_parts_a_b_files/figure-html/b1-1.png and b/01_descriptives_parts_a_b_files/figure-html/b1-1.png differ diff --git a/01_descriptives_parts_a_b_files/figure-html/b10-1.png b/01_descriptives_parts_a_b_files/figure-html/b10-1.png index ed1bafd..caddee2 100644 Binary files a/01_descriptives_parts_a_b_files/figure-html/b10-1.png and b/01_descriptives_parts_a_b_files/figure-html/b10-1.png differ diff --git a/01_descriptives_parts_a_b_files/figure-html/b11-1.png b/01_descriptives_parts_a_b_files/figure-html/b11-1.png index 32d44de..383cba8 100644 Binary files a/01_descriptives_parts_a_b_files/figure-html/b11-1.png and b/01_descriptives_parts_a_b_files/figure-html/b11-1.png differ diff --git a/01_descriptives_parts_a_b_files/figure-html/b12-1.png b/01_descriptives_parts_a_b_files/figure-html/b12-1.png index 5d5aaf7..aee3167 100644 Binary files a/01_descriptives_parts_a_b_files/figure-html/b12-1.png and b/01_descriptives_parts_a_b_files/figure-html/b12-1.png differ diff --git a/01_descriptives_parts_a_b_files/figure-html/b3-1.png b/01_descriptives_parts_a_b_files/figure-html/b3-1.png index 8c0b4eb..482bc0a 100644 Binary files a/01_descriptives_parts_a_b_files/figure-html/b3-1.png and b/01_descriptives_parts_a_b_files/figure-html/b3-1.png differ diff --git a/01_descriptives_parts_a_b_files/figure-html/b6-1.png b/01_descriptives_parts_a_b_files/figure-html/b6-1.png index 7937fa7..4761b9f 100644 Binary files a/01_descriptives_parts_a_b_files/figure-html/b6-1.png and b/01_descriptives_parts_a_b_files/figure-html/b6-1.png differ diff --git a/01_descriptives_parts_a_b_files/figure-html/b9-1.png b/01_descriptives_parts_a_b_files/figure-html/b9-1.png index 3137c3a..7481678 100644 Binary files a/01_descriptives_parts_a_b_files/figure-html/b9-1.png and b/01_descriptives_parts_a_b_files/figure-html/b9-1.png differ diff --git a/02_descriptives_parts_c_d.Rmd b/02_descriptives_parts_c_d.Rmd index 24afa6f..c84a6a8 100644 --- a/02_descriptives_parts_c_d.Rmd +++ b/02_descriptives_parts_c_d.Rmd @@ -141,7 +141,7 @@ c8_df %>% c8_df_rec %>% - plot_likert(question_codes, "Degree of support in practicing OS at institution") + plot_likert() @@ -188,7 +188,7 @@ d2_df %>% d2_df_rec %>% - plot_likert(question_codes, "Summarised views: What would you say OS is?") + plot_likert() ``` @@ -208,7 +208,7 @@ d3_df_rec <- d3_df %>% mutate(across(.fns = factor, levels = answer_levels_8)) d3_df_rec %>% - plot_likert(question_codes, "Which are the most significant barriers you will be facing while\nembracing an Open Science perspective?") + plot_likert() ``` @@ -232,7 +232,7 @@ d5_df %>% summarise(across(.fns = ~sum(is.na(.x)))) d5_df_rec %>% - plot_likert(question_codes, "Main drivers to participate OS") + plot_likert() ``` @@ -257,6 +257,6 @@ d7_df %>% summarise(across(.fns = ~sum(is.na(.x)))) d7_df_rec %>% - plot_likert(question_codes, "Drivers or barriers to practice Open Science") + plot_likert() ``` \ No newline at end of file diff --git a/02_descriptives_parts_c_d.html b/02_descriptives_parts_c_d.html index db57531..ee58f3e 100644 --- a/02_descriptives_parts_c_d.html +++ b/02_descriptives_parts_c_d.html @@ -406,6 +406,13 @@

C1 Institution: OA policy

c1_df_rec %>% plot_bar(C1, title = "Institution: OA policy", reorder = TRUE, nudge_y = .08) +
## Registered S3 methods overwritten by 'ggalt':
+##   method                  from   
+##   grid.draw.absoluteGrob  ggplot2
+##   grobHeight.absoluteGrob ggplot2
+##   grobWidth.absoluteGrob  ggplot2
+##   grobX.absoluteGrob      ggplot2
+##   grobY.absoluteGrob      ggplot2

@@ -497,8 +504,8 @@

C8 Degree of support in practicing OS at institution

## 1 0 0 0 0 0 0 ## # ... with 1 more variable: C8[SQ007] <int> 
c8_df_rec %>% 
-  plot_likert(question_codes, "Degree of support in practicing OS at institution")
-

+ plot_likert() +

C10: Other initiatives incentivising Open Science practices at institution

@@ -539,8 +546,8 @@

D2 Summarised views: What would you say OS is?

## 1 0 0 0 0 0 0 ## # ... with 1 more variable: D2[SQ007] <int> 
d2_df_rec %>% 
-  plot_likert(question_codes, "Summarised views: What would you say OS is?")
-

+ plot_likert() +

D3 Most significant barriers facing

@@ -555,8 +562,8 @@

D3 Most significant barriers facing

mutate(across(.fns = factor, levels = answer_levels_8)) d3_df_rec %>% - plot_likert(question_codes, "Which are the most significant barriers you will be facing while\nembracing an Open Science perspective?") -

+ plot_likert() +

D5 Main drivers to participate OS

@@ -579,8 +586,8 @@

D5 Main drivers to participate OS

## 1 0 0 0 0 0 0 ## # ... with 2 more variables: D5[SQ007] <int>, D5[SQ008] <int> 
d5_df_rec %>% 
-  plot_likert(question_codes, "Main drivers to participate OS")
-

+ plot_likert() +

D7 Drivers or barriers to practice Open Science

@@ -603,8 +610,8 @@

D7 Drivers or barriers to practice Open Science

## 1 0 0 0 0 0 0 ## # ... with 2 more variables: D7[SQ007] <int>, D7[SQ008] <int> 
d7_df_rec %>% 
-  plot_likert(question_codes, "Drivers or barriers to practice Open Science")
-

+ plot_likert() +

diff --git a/02_descriptives_parts_c_d.md b/02_descriptives_parts_c_d.md index 4fab49d..7a2c1aa 100644 --- a/02_descriptives_parts_c_d.md +++ b/02_descriptives_parts_c_d.md @@ -30,6 +30,16 @@ c1_df_rec %>% plot_bar(C1, title = "Institution: OA policy", reorder = TRUE, nudge_y = .08) ``` +``` +## Registered S3 methods overwritten by 'ggalt': +## method from +## grid.draw.absoluteGrob ggplot2 +## grobHeight.absoluteGrob ggplot2 +## grobWidth.absoluteGrob ggplot2 +## grobX.absoluteGrob ggplot2 +## grobY.absoluteGrob ggplot2 +``` + ![](02_descriptives_parts_c_d_files/figure-html/c1-1.png) # C3 Institution: OS/OA practices recommandation @@ -164,7 +174,7 @@ c8_df %>% ```r c8_df_rec %>% - plot_likert(question_codes, "Degree of support in practicing OS at institution") + plot_likert() ``` ![](02_descriptives_parts_c_d_files/figure-html/c8-1.png) @@ -228,7 +238,7 @@ d2_df %>% ```r d2_df_rec %>% - plot_likert(question_codes, "Summarised views: What would you say OS is?") + plot_likert() ``` ![](02_descriptives_parts_c_d_files/figure-html/d2-1.png) @@ -249,7 +259,7 @@ d3_df_rec <- d3_df %>% mutate(across(.fns = factor, levels = answer_levels_8)) d3_df_rec %>% - plot_likert(question_codes, "Which are the most significant barriers you will be facing while\nembracing an Open Science perspective?") + plot_likert() ``` ![](02_descriptives_parts_c_d_files/figure-html/d3-1.png) @@ -284,7 +294,7 @@ d5_df %>% ```r d5_df_rec %>% - plot_likert(question_codes, "Main drivers to participate OS") + plot_likert() ``` ![](02_descriptives_parts_c_d_files/figure-html/d5-1.png) @@ -319,7 +329,7 @@ d7_df %>% ```r d7_df_rec %>% - plot_likert(question_codes, "Drivers or barriers to practice Open Science") + plot_likert() ``` ![](02_descriptives_parts_c_d_files/figure-html/d7-1.png) diff --git a/02_descriptives_parts_c_d_files/figure-html/c8-1.png b/02_descriptives_parts_c_d_files/figure-html/c8-1.png index c934c85..8721923 100644 Binary files a/02_descriptives_parts_c_d_files/figure-html/c8-1.png and b/02_descriptives_parts_c_d_files/figure-html/c8-1.png differ diff --git a/02_descriptives_parts_c_d_files/figure-html/d2-1.png b/02_descriptives_parts_c_d_files/figure-html/d2-1.png index 5fd84ea..c808d9d 100644 Binary files a/02_descriptives_parts_c_d_files/figure-html/d2-1.png and b/02_descriptives_parts_c_d_files/figure-html/d2-1.png differ diff --git a/02_descriptives_parts_c_d_files/figure-html/d3-1.png b/02_descriptives_parts_c_d_files/figure-html/d3-1.png index 3c09a43..cdc2108 100644 Binary files a/02_descriptives_parts_c_d_files/figure-html/d3-1.png and b/02_descriptives_parts_c_d_files/figure-html/d3-1.png differ diff --git a/02_descriptives_parts_c_d_files/figure-html/d5-1.png b/02_descriptives_parts_c_d_files/figure-html/d5-1.png index 558829d..e77a30f 100644 Binary files a/02_descriptives_parts_c_d_files/figure-html/d5-1.png and b/02_descriptives_parts_c_d_files/figure-html/d5-1.png differ diff --git a/02_descriptives_parts_c_d_files/figure-html/d7-1.png b/02_descriptives_parts_c_d_files/figure-html/d7-1.png index a4c6f08..ef674e8 100644 Binary files a/02_descriptives_parts_c_d_files/figure-html/d7-1.png and b/02_descriptives_parts_c_d_files/figure-html/d7-1.png differ