Description: Data on overall fate of all 80 studies for Figure 1 of paper. Figure 1 was made with Adobe Illustrator using the following data.
Coder name(s): Althea ArchMiller
Load libraries
library(ezknitr)
library(knitr)
library(devtools)
Clear environment and set seed
remove(list=ls())
set.seed(8675)
load(file = "data/processed_data/averages_of_reviewed_studies.Rdata")
load(file = "data/processed_data/reviewed_studies_data.Rdata")
load(file = "data/processed_data/all_studies_data.Rdata")
table(new_data$Why.not.reviewed)
##
## Author Declined: Data saved for future article
## 1
## Author Declined: No reason given
## 2
## Author Declined: Not enough time
## 3
## Author Declined: Proprietary/confidential data
## 5
## Author wanted to participate, but did not send data
## 2
## NA: Study was reviewed
## 38
## No correspondence
## 42
## Unsuitable for review
## 6
Status by Journal: JWM
table(new_data$Why.not.reviewed[new_data$journal=="JWM"])
##
## Author Declined: Data saved for future article
## 1
## Author Declined: No reason given
## 2
## Author Declined: Not enough time
## 2
## Author Declined: Proprietary/confidential data
## 1
## NA: Study was reviewed
## 14
## No correspondence
## 26
## Unsuitable for review
## 1
Status by Journal: WSB
table(new_data$Why.not.reviewed[new_data$journal=="WSB"])
##
## Author Declined: Not enough time
## 1
## Author Declined: Proprietary/confidential data
## 4
## Author wanted to participate, but did not send data
## 2
## NA: Study was reviewed
## 24
## No correspondence
## 16
## Unsuitable for review
## 5
sort(averages$conclusionsReproduced)
## [1] 1.0 1.0 1.0 1.5 2.0 2.5 3.0 4.0 4.0 4.5 4.5 5.0 5.0 5.0 5.0 5.0 5.0
## [18] 5.0 5.0
hist(averages$conclusionsReproduced)
By journal: JWM
sort(averages$conclusionsReproduced[averages$journal=="JWM"])
## [1] 1.0 2.0 3.0 4.0 4.5 5.0 5.0
hist(averages$conclusionsReproduced[averages$journal=="JWM"])
By jounral: WSB
sort(averages$conclusionsReproduced[averages$journal=="WSB"])
## [1] 1.0 1.0 1.5 2.5 4.0 4.5 5.0 5.0 5.0 5.0 5.0 5.0
hist(averages$conclusionsReproduced[averages$journal=="WSB"])
devtools::session_info()
## - Session info ----------------------------------------------------------
## setting value
## version R version 3.4.3 (2017-11-30)
## os Windows >= 8 x64
## system x86_64, mingw32
## ui RStudio
## language (EN)
## collate English_United States.1252
## ctype English_United States.1252
## tz America/Chicago
## date 2019-06-03
##
## - Packages --------------------------------------------------------------
## package * version date lib source
## assertthat 0.2.0 2017-04-11 [1] CRAN (R 3.4.4)
## backports 1.1.2 2017-12-13 [1] CRAN (R 3.4.4)
## bindr 0.1.1 2018-03-13 [1] CRAN (R 3.4.4)
## bindrcpp 0.2.2 2018-03-29 [1] CRAN (R 3.4.4)
## callr 3.1.0 2018-12-10 [1] CRAN (R 3.4.4)
## cli 1.0.1 2018-09-25 [1] CRAN (R 3.4.4)
## colorspace 1.3-2 2016-12-14 [1] CRAN (R 3.4.4)
## crayon 1.3.4 2017-09-16 [1] CRAN (R 3.4.4)
## desc 1.2.0 2018-05-01 [1] CRAN (R 3.4.4)
## devtools * 2.0.1 2018-10-26 [1] CRAN (R 3.4.4)
## digest 0.6.18 2018-10-10 [1] CRAN (R 3.4.4)
## dplyr 0.7.8 2018-11-10 [1] CRAN (R 3.4.4)
## evaluate 0.12 2018-10-09 [1] CRAN (R 3.4.4)
## ezknitr * 0.6 2016-09-16 [1] CRAN (R 3.4.4)
## fs 1.2.6 2018-08-23 [1] CRAN (R 3.4.4)
## ggplot2 * 3.1.0 2018-10-25 [1] CRAN (R 3.4.4)
## glue 1.3.0 2018-07-17 [1] CRAN (R 3.4.4)
## gtable 0.2.0 2016-02-26 [1] CRAN (R 3.4.4)
## highr 0.7 2018-06-09 [1] CRAN (R 3.4.4)
## knitr * 1.21 2018-12-10 [1] CRAN (R 3.4.4)
## labeling 0.3 2014-08-23 [1] CRAN (R 3.4.1)
## lazyeval 0.2.1 2017-10-29 [1] CRAN (R 3.4.4)
## magrittr 1.5 2014-11-22 [1] CRAN (R 3.4.3)
## markdown 0.9 2018-12-07 [1] CRAN (R 3.4.4)
## memoise 1.1.0 2017-04-21 [1] CRAN (R 3.4.4)
## mime 0.6 2018-10-05 [1] CRAN (R 3.4.4)
## munsell 0.5.0 2018-06-12 [1] CRAN (R 3.4.4)
## pillar 1.3.0 2018-07-14 [1] CRAN (R 3.4.4)
## pkgbuild 1.0.2 2018-10-16 [1] CRAN (R 3.4.4)
## pkgconfig 2.0.2 2018-08-16 [1] CRAN (R 3.4.4)
## pkgload 1.0.2 2018-10-29 [1] CRAN (R 3.4.4)
## plyr 1.8.4 2016-06-08 [1] CRAN (R 3.4.4)
## prettyunits 1.0.2 2015-07-13 [1] CRAN (R 3.4.4)
## processx 3.2.1 2018-12-05 [1] CRAN (R 3.4.4)
## ps 1.2.1 2018-11-06 [1] CRAN (R 3.4.4)
## purrr 0.2.5 2018-05-29 [1] CRAN (R 3.4.4)
## R.methodsS3 1.7.1 2016-02-16 [1] CRAN (R 3.4.1)
## R.oo 1.22.0 2018-04-22 [1] CRAN (R 3.4.4)
## R.utils 2.7.0 2018-08-27 [1] CRAN (R 3.4.4)
## R6 2.3.0 2018-10-04 [1] CRAN (R 3.4.4)
## Rcpp 1.0.0 2018-11-07 [1] CRAN (R 3.4.4)
## remotes 2.0.2 2018-10-30 [1] CRAN (R 3.4.4)
## rlang 0.3.0.1 2018-10-25 [1] CRAN (R 3.4.4)
## rprojroot 1.3-2 2018-01-03 [1] CRAN (R 3.4.4)
## scales 1.0.0 2018-08-09 [1] CRAN (R 3.4.4)
## sessioninfo 1.1.1 2018-11-05 [1] CRAN (R 3.4.4)
## stringi 1.2.4 2018-07-20 [1] CRAN (R 3.4.4)
## stringr 1.3.1 2018-05-10 [1] CRAN (R 3.4.4)
## testthat 2.0.1 2018-10-13 [1] CRAN (R 3.4.4)
## tibble 1.4.2 2018-01-22 [1] CRAN (R 3.4.4)
## tidyselect 0.2.5 2018-10-11 [1] CRAN (R 3.4.4)
## usethis * 1.4.0 2018-08-14 [1] CRAN (R 3.4.4)
## withr 2.1.2 2018-03-15 [1] CRAN (R 3.4.4)
## xfun 0.4 2018-10-23 [1] CRAN (R 3.4.4)
## yaml 2.2.0 2018-07-25 [1] CRAN (R 3.4.4)
##
## [1] C:/Users/aarchmil/Documents/R/win-library/3.4
## [2] C:/Program Files/R/R-3.4.3/library
spun with: ezknitr::ezspin(file = “programs/02_study_overview_figure.R”, keep_md = FALSE, out_dir = “html_reports”, fig_dir = “figures”)