|
@@ -1,13 +1,13 @@
|
|
---
|
|
---
|
|
title: Supplementary Materials to Establishing the reliability and validity of measures extracted from long-form recordings
|
|
title: Supplementary Materials to Establishing the reliability and validity of measures extracted from long-form recordings
|
|
output:
|
|
output:
|
|
|
|
+ pdf_document:
|
|
|
|
+ toc: yes
|
|
|
|
+ toc_depth: 3
|
|
html_document:
|
|
html_document:
|
|
toc: yes
|
|
toc: yes
|
|
toc_depth: '3'
|
|
toc_depth: '3'
|
|
df_print: paged
|
|
df_print: paged
|
|
- pdf_document:
|
|
|
|
- toc: yes
|
|
|
|
- toc_depth: 3
|
|
|
|
---
|
|
---
|
|
|
|
|
|
```{r setup, include=FALSE, eval=TRUE}
|
|
```{r setup, include=FALSE, eval=TRUE}
|
|
@@ -608,11 +608,19 @@ f_labels$age_bin<-factor(f_labels$age_bin,levels=age_levels)
|
|
|
|
|
|
fig6 <- ggplot(df.icc.age, aes(y = icc_child_id, x = toupper(data_set))) +
|
|
fig6 <- ggplot(df.icc.age, aes(y = icc_child_id, x = toupper(data_set))) +
|
|
geom_violin(alpha = 0.5) +
|
|
geom_violin(alpha = 0.5) +
|
|
- stat_summary(fun = mean, geom = "point", aes(x = as.numeric(factor(toupper(data_set))) - 0.5), shape = 23, size = 3, fill = "white", color = "black", position = position_dodge(width = 0.75)) +
|
|
|
|
|
|
+# stat_summary(fun = mean, geom = "point", aes(x = as.numeric(factor(toupper(data_set))) - 0.5), shape = 23, size = 3, fill = "white", color = "black", position = position_dodge(width = 0.75)) +
|
|
geom_quasirandom(aes(colour = Type,shape = Type)) +
|
|
geom_quasirandom(aes(colour = Type,shape = Type)) +
|
|
theme(legend.position="none") +labs( y = "r",x="Pipeline") + facet_wrap(~age_bin, ncol = 3) +
|
|
theme(legend.position="none") +labs( y = "r",x="Pipeline") + facet_wrap(~age_bin, ncol = 3) +
|
|
geom_text(x=1.5,y=max(df.icc.age$icc_child_id,na.rm=T),aes(label=facet_labels_chi),data=f_labels,size=3) +
|
|
geom_text(x=1.5,y=max(df.icc.age$icc_child_id,na.rm=T),aes(label=facet_labels_chi),data=f_labels,size=3) +
|
|
geom_text(x=1.5,y=max(df.icc.age$icc_child_id,na.rm=T)*.95,aes(label=facet_labels_cor),data=f_labels,size=3) +
|
|
geom_text(x=1.5,y=max(df.icc.age$icc_child_id,na.rm=T)*.95,aes(label=facet_labels_cor),data=f_labels,size=3) +
|
|
|
|
+ stat_summary(fun = mean, geom = "point", aes(group = Type,x = as.numeric(factor(toupper(data_set))) + 0.5), shape = 1, size = 3, fill = "white", color = "black") +
|
|
|
|
+ stat_summary(
|
|
|
|
+ aes(group = Type, x = as.numeric(factor(toupper(data_set))) + 0.5, y = icc_child_id,color = Type, shape = Type),
|
|
|
|
+ fun = mean,
|
|
|
|
+ geom = "point",
|
|
|
|
+ show.legend = FALSE,
|
|
|
|
+ inherit.aes = FALSE
|
|
|
|
+ ) +
|
|
theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
|
|
theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
|
|
panel.background = element_blank(), legend.key=element_blank(), axis.line = element_line(colour = "black"))
|
|
panel.background = element_blank(), legend.key=element_blank(), axis.line = element_line(colour = "black"))
|
|
|
|
|