O1B Report - ZPG

ZPG Analyses

1 Load data

# Read
file_names <- dir(path = wd, pattern = "\\.txt")
file_names <- file.path(wd, file_names)
names(file_names) <- file_names
Data <- plyr::ldply(.data = file_names, .fun = read.table, colClasses = "character", sep = ";", fill = TRUE, header = FALSE, .id = "FileName")

## Same with data.table for test
# list_of_files <- list.files(path = wd, recursive = FALSE,
#                             pattern = "\\.txt$",
#                             full.names = TRUE)
# Data_test <- data.table::rbindlist(sapply(list_of_files, data.table::fread, simplify = FALSE),  
#                                      use.names = TRUE, idcol = "FileName")

1.1 Clean data

ggpubr::compare_means(HelpingScore ~ Cond, data = Data_zpg, method = "t.test", paired = FALSE)

# simple
ggplot(Data_zpg, aes(x = Cond, y = HelpingScore)) +
  geom_boxplot() +
  stat_summary(fun.data = mean_se,  colour = "darkred") +
  xlab("") +
  theme(axis.text.x = element_text(angle = 90, hjust = 1)) +
  ggpubr::stat_compare_means(method = "t.test",
                             label = "p.format",                                         # formated p-values
                             # paired = TRUE, 
                             comparisons = list(c("CTRL", "ES"),
                                                c("ES", "JRAD"),
                                                c("CTRL", "JRAD"))) 

NA
NA

# by trial type
ggplot(Data_zpg, aes(x = Cond, y = HelpingScore)) +
  facet_wrap(~V4) +
  geom_boxplot() +
  stat_summary(fun.data = mean_se,  colour = "darkred") +
  xlab("") +
  theme(axis.text.x = element_text(angle = 90, hjust = 1)) +
  ggpubr::stat_compare_means(method = "t.test",
                             label = "p.format",                                         # formated p-values
                             # paired = TRUE, 
                             comparisons = list(c("CTRL", "ES"),
                                                c("ES", "JRAD"),
                                                c("CTRL", "JRAD")))

2 Session Info

R version 3.6.1 (2019-07-05)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 8.1 x64 (build 9600)

Matrix products: default

locale:
[1] LC_COLLATE=Romanian_Romania.1250  LC_CTYPE=Romanian_Romania.1250    LC_MONETARY=Romanian_Romania.1250 LC_NUMERIC=C                     
[5] LC_TIME=Romanian_Romania.1250    

attached base packages:
[1] grid      stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
 [1] plyr_1.8.4         gridExtra_2.3      plotly_4.9.0       summarytools_0.8.8 DT_0.5             ggpubr_0.2.5       magrittr_1.5       broom_0.5.2       
 [9] papaja_0.1.0.9842  psych_1.8.12       forcats_0.4.0      stringr_1.4.0      dplyr_0.8.3        purrr_0.3.2        readr_1.3.1        tidyr_1.0.0       
[17] tibble_2.1.3       ggplot2_3.2.1      tidyverse_1.2.1    pacman_0.5.1      

loaded via a namespace (and not attached):
 [1] Rcpp_1.0.2         lubridate_1.7.4    lattice_0.20-38    assertthat_0.2.1   zeallot_0.1.0      digest_0.6.21      R6_2.4.0           cellranger_1.1.0  
 [9] backports_1.1.4    httr_1.4.0         pillar_1.4.2       rlang_0.4.0        lazyeval_0.2.2     readxl_1.1.0       data.table_1.11.8  rstudioapi_0.8    
[17] labeling_0.3       foreign_0.8-71     pander_0.6.3       htmlwidgets_1.3    RCurl_1.95-4.11    munsell_0.5.0      compiler_3.6.1     modelr_0.1.5      
[25] xfun_0.9           pkgconfig_2.0.3    mnormt_1.5-5       htmltools_0.3.6    tidyselect_0.2.5   codetools_0.2-16   matrixStats_0.54.0 viridisLite_0.3.0 
[33] crayon_1.3.4       withr_2.1.2        bitops_1.0-6       nlme_3.1-140       jsonlite_1.6       gtable_0.3.0       lifecycle_0.1.0    scales_1.0.0      
[41] cli_1.1.0          stringi_1.4.3      ggsignif_0.4.0     pryr_0.1.4         xml2_1.2.0         ellipsis_0.3.0     rapportools_1.0    generics_0.0.2    
[49] vctrs_0.2.0        tools_3.6.1        glue_1.3.1         hms_0.5.1          parallel_3.6.1     colorspace_1.4-1   rvest_0.3.2        knitr_1.25        
[57] haven_2.1.1       

 

---

A work by Claudiu Papasteri

claudiu.papasteri@gmail.com