Challenges and successes

Having gotten the hang of the type of functions necessary to analyse the descriptive data the experiment 1, transferring these skills to experiment 2 was handy and served to better consolidate the skills learned in exp 1!
I also successfully pushed code through to Github - However I had some trouble with my passcode that was necessary to pushing after committing my edits but I created a personal access token and it worked!
Finally, with regards to aesthetics of the final plots created for both Exp 1 and 2, they looked quite crammed in the output. With the help of my group, a line of code to space the data solved this problem! yay!

Coding for experiment 2 and annotations are below:

Experiment 2:

#Loading relevant packages
library(tidyverse)

## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ──

## ✓ ggplot2 3.3.4     ✓ purrr   0.3.4
## ✓ tibble  3.1.2     ✓ dplyr   1.0.6
## ✓ tidyr   1.1.3     ✓ stringr 1.4.0
## ✓ readr   1.4.0     ✓ forcats 0.5.1

## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

library(dplyr)
library(qualtRics)
library(tidyr)
library(ggpubr)
library(ggplot2)
library(patchwork)
library(ggbeeswarm)

#Reading the data from my working directory using the qualtRics 'read_survey' function - Notably, this function removes the text in rows 2 and 3 (not part of the data)
#This function also sets all relevant columns to 'numeric' rather than 'character', which allows us to do descriptive calculations, mutate new variables, and plot data
mydata2=read_survey("Study_2_data.csv")

## Warning: Duplicated column names deduplicated: 'Timer_First Click' =>
## 'Timer_First Click_1' [26], 'Timer_Last Click' => 'Timer_Last Click_1' [27],
## 'Timer_Page Submit' => 'Timer_Page Submit_1' [28], 'Timer_Click Count' =>
## 'Timer_Click Count_1' [29], 'Timer_First Click' => 'Timer_First Click_2' [30],
## 'Timer_Last Click' => 'Timer_Last Click_2' [31], 'Timer_Page Submit' =>
## 'Timer_Page Submit_2' [32], 'Timer_Click Count' => 'Timer_Click Count_2' [33],
## 'Timer_First Click' => 'Timer_First Click_3' [34], 'Timer_Last Click' =>
## 'Timer_Last Click_3' [35], 'Timer_Page Submit' => 'Timer_Page Submit_3' [36],
## 'Timer_Click Count' => 'Timer_Click Count_3' [37], 'Timer_First Click' =>
## 'Timer_First Click_4' [38], 'Timer_Last Click' => 'Timer_Last Click_4' [39],
## 'Timer_Page Submit' => 'Timer_Page Submit_4' [40], 'Timer_Click Count' =>
## 'Timer_Click Count_4' [41], 'Timer_First Click' => 'Timer_First Click_5' [42],
## 'Timer_Last Click' => 'Timer_Last Click_5' [43], 'Timer_Page Submit' =>
## 'Timer_Page Submit_5' [44], 'Timer_Click Count' => 'Timer_Click Count_5' [45],
## 'Timer_First Click' => 'Timer_First Click_6' [46], 'Timer_Last Click' =>
## 'Timer_Last Click_6' [47], 'Timer_Page Submit' => 'Timer_Page Submit_6' [48],
## 'Timer_Click Count' => 'Timer_Click Count_6' [49], 'Timer_First Click' =>
## 'Timer_First Click_7' [50], 'Timer_Last Click' => 'Timer_Last Click_7' [51],
## 'Timer_Page Submit' => 'Timer_Page Submit_7' [52], 'Timer_Click Count' =>
## 'Timer_Click Count_7' [53], 'Timer_First Click' => 'Timer_First Click_8' [54],
## 'Timer_Last Click' => 'Timer_Last Click_8' [55], 'Timer_Page Submit' =>
## 'Timer_Page Submit_8' [56], 'Timer_Click Count' => 'Timer_Click Count_8' [57],
## 'Timer_First Click' => 'Timer_First Click_9' [58], 'Timer_Last Click' =>
## 'Timer_Last Click_9' [59], 'Timer_Page Submit' => 'Timer_Page Submit_9' [60],
## 'Timer_Click Count' => 'Timer_Click Count_9' [61], 'Timer_First Click' =>
## 'Timer_First Click_10' [62], 'Timer_Last Click' => 'Timer_Last Click_10' [63],
## 'Timer_Page Submit' => 'Timer_Page Submit_10' [64], 'Timer_Click Count' =>
## 'Timer_Click Count_10' [65], 'Timer_First Click' => 'Timer_First Click_11' [66],
## 'Timer_Last Click' => 'Timer_Last Click_11' [67], 'Timer_Page Submit' =>
## 'Timer_Page Submit_11' [68], 'Timer_Click Count' => 'Timer_Click Count_11' [69],
## 'Timer_First Click' => 'Timer_First Click_12' [70], 'Timer_Last Click' =>
## 'Timer_Last Click_12' [71], 'Timer_Page Submit' => 'Timer_Page Submit_12' [72],
## 'Timer_Click Count' => 'Timer_Click Count_12' [73], 'Timer_First Click' =>
## 'Timer_First Click_13' [74], 'Timer_Last Click' => 'Timer_Last Click_13' [75],
## 'Timer_Page Submit' => 'Timer_Page Submit_13' [76], 'Timer_Click Count' =>
## 'Timer_Click Count_13' [77], 'Timer_First Click' => 'Timer_First Click_14' [78],
## 'Timer_Last Click' => 'Timer_Last Click_14' [79], 'Timer_Page Submit' =>
## 'Timer_Page Submit_14' [80], 'Timer_Click Count' => 'Timer_Click Count_14' [81],
## 'Timer_First Click' => 'Timer_First Click_15' [82], 'Timer_Last Click' =>
## 'Timer_Last Click_15' [83], 'Timer_Page Submit' => 'Timer_Page Submit_15' [84],
## 'Timer_Click Count' => 'Timer_Click Count_15' [85], 'Timer_First Click' =>
## 'Timer_First Click_16' [86], 'Timer_Last Click' => 'Timer_Last Click_16' [87],
## 'Timer_Page Submit' => 'Timer_Page Submit_16' [88], 'Timer_Click Count' =>
## 'Timer_Click Count_16' [89], 'Timer_First Click' => 'Timer_First Click_17' [90],
## 'Timer_Last Click' => 'Timer_Last Click_17' [91], 'Timer_Page Submit' =>
## 'Timer_Page Submit_17' [92], 'Timer_Click Count' => 'Timer_Click Count_17' [93],
## 'Timer_First Click' => 'Timer_First Click_18' [94], 'Timer_Last Click' =>
## 'Timer_Last Click_18' [95], 'Timer_Page Submit' => 'Timer_Page Submit_18' [96],
## 'Timer_Click Count' => 'Timer_Click Count_18' [97], 'Timer_First Click' =>
## 'Timer_First Click_19' [98], 'Timer_Last Click' => 'Timer_Last Click_19' [99],
## 'Timer_Page Submit' => 'Timer_Page Submit_19' [100], 'Timer_Click Count'
## => 'Timer_Click Count_19' [101], 'Timer_First Click' => 'Timer_First
## Click_20' [102], 'Timer_Last Click' => 'Timer_Last Click_20' [103], 'Timer_Page
## Submit' => 'Timer_Page Submit_20' [104], 'Timer_Click Count' => 'Timer_Click
## Count_20' [105], 'Timer_First Click' => 'Timer_First Click_21' [106],
## 'Timer_Last Click' => 'Timer_Last Click_21' [107], 'Timer_Page Submit'
## => 'Timer_Page Submit_21' [108], 'Timer_Click Count' => 'Timer_Click
## Count_21' [109], 'Timer_First Click' => 'Timer_First Click_22' [110],
## 'Timer_Last Click' => 'Timer_Last Click_22' [111], 'Timer_Page Submit'
## => 'Timer_Page Submit_22' [112], 'Timer_Click Count' => 'Timer_Click
## Count_22' [113], 'Timer_First Click' => 'Timer_First Click_23' [114],
## 'Timer_Last Click' => 'Timer_Last Click_23' [115], 'Timer_Page Submit'
## => 'Timer_Page Submit_23' [116], 'Timer_Click Count' => 'Timer_Click
## Count_23' [117], 'Timer_First Click' => 'Timer_First Click_24' [118],
## 'Timer_Last Click' => 'Timer_Last Click_24' [119], 'Timer_Page Submit'
## => 'Timer_Page Submit_24' [120], 'Timer_Click Count' => 'Timer_Click
## Count_24' [121], 'Timer_First Click' => 'Timer_First Click_25' [122],
## 'Timer_Last Click' => 'Timer_Last Click_25' [123], 'Timer_Page Submit'
## => 'Timer_Page Submit_25' [124], 'Timer_Click Count' => 'Timer_Click
## Count_25' [125], 'Timer_First Click' => 'Timer_First Click_26' [126],
## 'Timer_Last Click' => 'Timer_Last Click_26' [127], 'Timer_Page Submit'
## => 'Timer_Page Submit_26' [128], 'Timer_Click Count' => 'Timer_Click
## Count_26' [129], 'Timer_First Click' => 'Timer_First Click_27' [130],
## 'Timer_Last Click' => 'Timer_Last Click_27' [131], 'Timer_Page Submit'
## => 'Timer_Page Submit_27' [132], 'Timer_Click Count' => 'Timer_Click
## Count_27' [133], 'Timer_First Click' => 'Timer_First Click_28' [134],
## 'Timer_Last Click' => 'Timer_Last Click_28' [135], 'Timer_Page Submit'
## => 'Timer_Page Submit_28' [136], 'Timer_Click Count' => 'Timer_Click
## Count_28' [137], 'Timer_First Click' => 'Timer_First Click_29' [138],
## 'Timer_Last Click' => 'Timer_Last Click_29' [139], 'Timer_Page Submit'
## => 'Timer_Page Submit_29' [140], 'Timer_Click Count' => 'Timer_Click
## Count_29' [141], 'Timer_First Click' => 'Timer_First Click_30' [142],
## 'Timer_Last Click' => 'Timer_Last Click_30' [143], 'Timer_Page Submit'
## => 'Timer_Page Submit_30' [144], 'Timer_Click Count' => 'Timer_Click
## Count_30' [145], 'Timer_First Click' => 'Timer_First Click_31' [146],
## 'Timer_Last Click' => 'Timer_Last Click_31' [147], 'Timer_Page Submit'
## => 'Timer_Page Submit_31' [148], 'Timer_Click Count' => 'Timer_Click
## Count_31' [149], 'Timer_First Click' => 'Timer_First Click_32' [150],
## 'Timer_Last Click' => 'Timer_Last Click_32' [151], 'Timer_Page Submit'
## => 'Timer_Page Submit_32' [152], 'Timer_Click Count' => 'Timer_Click
## Count_32' [153], 'Timer_First Click' => 'Timer_First Click_33' [154],
## 'Timer_Last Click' => 'Timer_Last Click_33' [155], 'Timer_Page Submit'
## => 'Timer_Page Submit_33' [156], 'Timer_Click Count' => 'Timer_Click
## Count_33' [157], 'Timer_First Click' => 'Timer_First Click_34' [158],
## 'Timer_Last Click' => 'Timer_Last Click_34' [159], 'Timer_Page Submit'
## => 'Timer_Page Submit_34' [160], 'Timer_Click Count' => 'Timer_Click
## Count_34' [161], 'Timer_First Click' => 'Timer_First Click_35' [162],
## 'Timer_Last Click' => 'Timer_Last Click_35' [163], 'Timer_Page Submit'
## => 'Timer_Page Submit_35' [164], 'Timer_Click Count' => 'Timer_Click
## Count_35' [165], 'Timer_First Click' => 'Timer_First Click_36' [166],
## 'Timer_Last Click' => 'Timer_Last Click_36' [167], 'Timer_Page Submit'
## => 'Timer_Page Submit_36' [168], 'Timer_Click Count' => 'Timer_Click
## Count_36' [169], 'Timer_First Click' => 'Timer_First Click_37' [170],
## 'Timer_Last Click' => 'Timer_Last Click_37' [171], 'Timer_Page Submit'
## => 'Timer_Page Submit_37' [172], 'Timer_Click Count' => 'Timer_Click
## Count_37' [173], 'Timer_First Click' => 'Timer_First Click_38' [174],
## 'Timer_Last Click' => 'Timer_Last Click_38' [175], 'Timer_Page Submit'
## => 'Timer_Page Submit_38' [176], 'Timer_Click Count' => 'Timer_Click
## Count_38' [177], 'Timer_First Click' => 'Timer_First Click_39' [178],
## 'Timer_Last Click' => 'Timer_Last Click_39' [179], 'Timer_Page Submit'
## => 'Timer_Page Submit_39' [180], 'Timer_Click Count' => 'Timer_Click
## Count_39' [181], 'Timer_First Click' => 'Timer_First Click_40' [182],
## 'Timer_Last Click'

## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   .default = col_double(),
##   StartDate = col_datetime(format = ""),
##   EndDate = col_datetime(format = ""),
##   IPAddress = col_character(),
##   RecordedDate = col_datetime(format = ""),
##   ResponseId = col_character(),
##   RecipientLastName = col_character(),
##   RecipientFirstName = col_character(),
##   RecipientEmail = col_character(),
##   ExternalReference = col_character(),
##   LocationLatitude = col_character(),
##   LocationLongitude = col_character(),
##   DistributionChannel = col_character(),
##   UserLanguage = col_character(),
##   PID = col_character(),
##   Memory_task = col_character(),
##   Memory_task_DO = col_character(),
##   Prolific_PID = col_character(),
##   FL_12_DO = col_character()
## )
## ℹ Use `spec()` for the full column specifications.

# Checking the types of variable we have (e.g., numeric, string, character etc.) **Note that relevant columns for calculations are 'numeric'
sapply(mydata2, class)

## $StartDate
## [1] "POSIXct" "POSIXt" 
## 
## $EndDate
## [1] "POSIXct" "POSIXt" 
## 
## $Status
## [1] "numeric"
## 
## $IPAddress
## [1] "character"
## 
## $Progress
## [1] "numeric"
## 
## $`Duration (in seconds)`
## [1] "numeric"
## 
## $Finished
## [1] "numeric"
## 
## $RecordedDate
## [1] "POSIXct" "POSIXt" 
## 
## $ResponseId
## [1] "character"
## 
## $RecipientLastName
## [1] "character"
## 
## $RecipientFirstName
## [1] "character"
## 
## $RecipientEmail
## [1] "character"
## 
## $ExternalReference
## [1] "character"
## 
## $LocationLatitude
## [1] "character"
## 
## $LocationLongitude
## [1] "character"
## 
## $DistributionChannel
## [1] "character"
## 
## $UserLanguage
## [1] "character"
## 
## $Consent
## [1] "numeric"
## 
## $PID
## [1] "character"
## 
## $Gender
## [1] "numeric"
## 
## $Age
## [1] "numeric"
## 
## $`Timer_First Click`
## [1] "numeric"
## 
## $`Timer_Last Click`
## [1] "numeric"
## 
## $`Timer_Page Submit`
## [1] "numeric"
## 
## $`Timer_Click Count`
## [1] "numeric"
## 
## $`Timer_First Click_1`
## [1] "numeric"
## 
## $`Timer_Last Click_1`
## [1] "numeric"
## 
## $`Timer_Page Submit_1`
## [1] "numeric"
## 
## $`Timer_Click Count_1`
## [1] "numeric"
## 
## $`Timer_First Click_2`
## [1] "numeric"
## 
## $`Timer_Last Click_2`
## [1] "numeric"
## 
## $`Timer_Page Submit_2`
## [1] "numeric"
## 
## $`Timer_Click Count_2`
## [1] "numeric"
## 
## $`Timer_First Click_3`
## [1] "numeric"
## 
## $`Timer_Last Click_3`
## [1] "numeric"
## 
## $`Timer_Page Submit_3`
## [1] "numeric"
## 
## $`Timer_Click Count_3`
## [1] "numeric"
## 
## $`Timer_First Click_4`
## [1] "numeric"
## 
## $`Timer_Last Click_4`
## [1] "numeric"
## 
## $`Timer_Page Submit_4`
## [1] "numeric"
## 
## $`Timer_Click Count_4`
## [1] "numeric"
## 
## $`Timer_First Click_5`
## [1] "numeric"
## 
## $`Timer_Last Click_5`
## [1] "numeric"
## 
## $`Timer_Page Submit_5`
## [1] "numeric"
## 
## $`Timer_Click Count_5`
## [1] "numeric"
## 
## $`Timer_First Click_6`
## [1] "numeric"
## 
## $`Timer_Last Click_6`
## [1] "numeric"
## 
## $`Timer_Page Submit_6`
## [1] "numeric"
## 
## $`Timer_Click Count_6`
## [1] "numeric"
## 
## $`Timer_First Click_7`
## [1] "numeric"
## 
## $`Timer_Last Click_7`
## [1] "numeric"
## 
## $`Timer_Page Submit_7`
## [1] "numeric"
## 
## $`Timer_Click Count_7`
## [1] "numeric"
## 
## $`Timer_First Click_8`
## [1] "numeric"
## 
## $`Timer_Last Click_8`
## [1] "numeric"
## 
## $`Timer_Page Submit_8`
## [1] "numeric"
## 
## $`Timer_Click Count_8`
## [1] "numeric"
## 
## $`Timer_First Click_9`
## [1] "numeric"
## 
## $`Timer_Last Click_9`
## [1] "numeric"
## 
## $`Timer_Page Submit_9`
## [1] "numeric"
## 
## $`Timer_Click Count_9`
## [1] "numeric"
## 
## $`Timer_First Click_10`
## [1] "numeric"
## 
## $`Timer_Last Click_10`
## [1] "numeric"
## 
## $`Timer_Page Submit_10`
## [1] "numeric"
## 
## $`Timer_Click Count_10`
## [1] "numeric"
## 
## $`Timer_First Click_11`
## [1] "numeric"
## 
## $`Timer_Last Click_11`
## [1] "numeric"
## 
## $`Timer_Page Submit_11`
## [1] "numeric"
## 
## $`Timer_Click Count_11`
## [1] "numeric"
## 
## $`Timer_First Click_12`
## [1] "numeric"
## 
## $`Timer_Last Click_12`
## [1] "numeric"
## 
## $`Timer_Page Submit_12`
## [1] "numeric"
## 
## $`Timer_Click Count_12`
## [1] "numeric"
## 
## $`Timer_First Click_13`
## [1] "numeric"
## 
## $`Timer_Last Click_13`
## [1] "numeric"
## 
## $`Timer_Page Submit_13`
## [1] "numeric"
## 
## $`Timer_Click Count_13`
## [1] "numeric"
## 
## $`Timer_First Click_14`
## [1] "numeric"
## 
## $`Timer_Last Click_14`
## [1] "numeric"
## 
## $`Timer_Page Submit_14`
## [1] "numeric"
## 
## $`Timer_Click Count_14`
## [1] "numeric"
## 
## $`Timer_First Click_15`
## [1] "numeric"
## 
## $`Timer_Last Click_15`
## [1] "numeric"
## 
## $`Timer_Page Submit_15`
## [1] "numeric"
## 
## $`Timer_Click Count_15`
## [1] "numeric"
## 
## $`Timer_First Click_16`
## [1] "numeric"
## 
## $`Timer_Last Click_16`
## [1] "numeric"
## 
## $`Timer_Page Submit_16`
## [1] "numeric"
## 
## $`Timer_Click Count_16`
## [1] "numeric"
## 
## $`Timer_First Click_17`
## [1] "numeric"
## 
## $`Timer_Last Click_17`
## [1] "numeric"
## 
## $`Timer_Page Submit_17`
## [1] "numeric"
## 
## $`Timer_Click Count_17`
## [1] "numeric"
## 
## $`Timer_First Click_18`
## [1] "numeric"
## 
## $`Timer_Last Click_18`
## [1] "numeric"
## 
## $`Timer_Page Submit_18`
## [1] "numeric"
## 
## $`Timer_Click Count_18`
## [1] "numeric"
## 
## $`Timer_First Click_19`
## [1] "numeric"
## 
## $`Timer_Last Click_19`
## [1] "numeric"
## 
## $`Timer_Page Submit_19`
## [1] "numeric"
## 
## $`Timer_Click Count_19`
## [1] "numeric"
## 
## $`Timer_First Click_20`
## [1] "numeric"
## 
## $`Timer_Last Click_20`
## [1] "numeric"
## 
## $`Timer_Page Submit_20`
## [1] "numeric"
## 
## $`Timer_Click Count_20`
## [1] "numeric"
## 
## $`Timer_First Click_21`
## [1] "numeric"
## 
## $`Timer_Last Click_21`
## [1] "numeric"
## 
## $`Timer_Page Submit_21`
## [1] "numeric"
## 
## $`Timer_Click Count_21`
## [1] "numeric"
## 
## $`Timer_First Click_22`
## [1] "numeric"
## 
## $`Timer_Last Click_22`
## [1] "numeric"
## 
## $`Timer_Page Submit_22`
## [1] "numeric"
## 
## $`Timer_Click Count_22`
## [1] "numeric"
## 
## $`Timer_First Click_23`
## [1] "numeric"
## 
## $`Timer_Last Click_23`
## [1] "numeric"
## 
## $`Timer_Page Submit_23`
## [1] "numeric"
## 
## $`Timer_Click Count_23`
## [1] "numeric"
## 
## $`Timer_First Click_24`
## [1] "numeric"
## 
## $`Timer_Last Click_24`
## [1] "numeric"
## 
## $`Timer_Page Submit_24`
## [1] "numeric"
## 
## $`Timer_Click Count_24`
## [1] "numeric"
## 
## $`Timer_First Click_25`
## [1] "numeric"
## 
## $`Timer_Last Click_25`
## [1] "numeric"
## 
## $`Timer_Page Submit_25`
## [1] "numeric"
## 
## $`Timer_Click Count_25`
## [1] "numeric"
## 
## $`Timer_First Click_26`
## [1] "numeric"
## 
## $`Timer_Last Click_26`
## [1] "numeric"
## 
## $`Timer_Page Submit_26`
## [1] "numeric"
## 
## $`Timer_Click Count_26`
## [1] "numeric"
## 
## $`Timer_First Click_27`
## [1] "numeric"
## 
## $`Timer_Last Click_27`
## [1] "numeric"
## 
## $`Timer_Page Submit_27`
## [1] "numeric"
## 
## $`Timer_Click Count_27`
## [1] "numeric"
## 
## $`Timer_First Click_28`
## [1] "numeric"
## 
## $`Timer_Last Click_28`
## [1] "numeric"
## 
## $`Timer_Page Submit_28`
## [1] "numeric"
## 
## $`Timer_Click Count_28`
## [1] "numeric"
## 
## $`Timer_First Click_29`
## [1] "numeric"
## 
## $`Timer_Last Click_29`
## [1] "numeric"
## 
## $`Timer_Page Submit_29`
## [1] "numeric"
## 
## $`Timer_Click Count_29`
## [1] "numeric"
## 
## $`Timer_First Click_30`
## [1] "numeric"
## 
## $`Timer_Last Click_30`
## [1] "numeric"
## 
## $`Timer_Page Submit_30`
## [1] "numeric"
## 
## $`Timer_Click Count_30`
## [1] "numeric"
## 
## $`Timer_First Click_31`
## [1] "numeric"
## 
## $`Timer_Last Click_31`
## [1] "numeric"
## 
## $`Timer_Page Submit_31`
## [1] "numeric"
## 
## $`Timer_Click Count_31`
## [1] "numeric"
## 
## $`Timer_First Click_32`
## [1] "numeric"
## 
## $`Timer_Last Click_32`
## [1] "numeric"
## 
## $`Timer_Page Submit_32`
## [1] "numeric"
## 
## $`Timer_Click Count_32`
## [1] "numeric"
## 
## $`Timer_First Click_33`
## [1] "numeric"
## 
## $`Timer_Last Click_33`
## [1] "numeric"
## 
## $`Timer_Page Submit_33`
## [1] "numeric"
## 
## $`Timer_Click Count_33`
## [1] "numeric"
## 
## $`Timer_First Click_34`
## [1] "numeric"
## 
## $`Timer_Last Click_34`
## [1] "numeric"
## 
## $`Timer_Page Submit_34`
## [1] "numeric"
## 
## $`Timer_Click Count_34`
## [1] "numeric"
## 
## $`Timer_First Click_35`
## [1] "numeric"
## 
## $`Timer_Last Click_35`
## [1] "numeric"
## 
## $`Timer_Page Submit_35`
## [1] "numeric"
## 
## $`Timer_Click Count_35`
## [1] "numeric"
## 
## $`Timer_First Click_36`
## [1] "numeric"
## 
## $`Timer_Last Click_36`
## [1] "numeric"
## 
## $`Timer_Page Submit_36`
## [1] "numeric"
## 
## $`Timer_Click Count_36`
## [1] "numeric"
## 
## $`Timer_First Click_37`
## [1] "numeric"
## 
## $`Timer_Last Click_37`
## [1] "numeric"
## 
## $`Timer_Page Submit_37`
## [1] "numeric"
## 
## $`Timer_Click Count_37`
## [1] "numeric"
## 
## $`Timer_First Click_38`
## [1] "numeric"
## 
## $`Timer_Last Click_38`
## [1] "numeric"
## 
## $`Timer_Page Submit_38`
## [1] "numeric"
## 
## $`Timer_Click Count_38`
## [1] "numeric"
## 
## $`Timer_First Click_39`
## [1] "numeric"
## 
## $`Timer_Last Click_39`
## [1] "numeric"
## 
## $`Timer_Page Submit_39`
## [1] "numeric"
## 
## $`Timer_Click Count_39`
## [1] "numeric"
## 
## $`Timer_First Click_40`
## [1] "numeric"
## 
## $`Timer_Last Click_40`
## [1] "numeric"
## 
## $`Timer_Page Submit_40`
## [1] "numeric"
## 
## $`Timer_Click Count_40`
## [1] "numeric"
## 
## $`Timer_First Click_41`
## [1] "numeric"
## 
## $`Timer_Last Click_41`
## [1] "numeric"
## 
## $`Timer_Page Submit_41`
## [1] "numeric"
## 
## $`Timer_Click Count_41`
## [1] "numeric"
## 
## $`Timer_First Click_42`
## [1] "numeric"
## 
## $`Timer_Last Click_42`
## [1] "numeric"
## 
## $`Timer_Page Submit_42`
## [1] "numeric"
## 
## $`Timer_Click Count_42`
## [1] "numeric"
## 
## $`Timer_First Click_43`
## [1] "numeric"
## 
## $`Timer_Last Click_43`
## [1] "numeric"
## 
## $`Timer_Page Submit_43`
## [1] "numeric"
## 
## $`Timer_Click Count_43`
## [1] "numeric"
## 
## $`Timer_First Click_44`
## [1] "numeric"
## 
## $`Timer_Last Click_44`
## [1] "numeric"
## 
## $`Timer_Page Submit_44`
## [1] "numeric"
## 
## $`Timer_Click Count_44`
## [1] "numeric"
## 
## $`Timer_First Click_45`
## [1] "numeric"
## 
## $`Timer_Last Click_45`
## [1] "numeric"
## 
## $`Timer_Page Submit_45`
## [1] "numeric"
## 
## $`Timer_Click Count_45`
## [1] "numeric"
## 
## $`Timer_First Click_46`
## [1] "numeric"
## 
## $`Timer_Last Click_46`
## [1] "numeric"
## 
## $`Timer_Page Submit_46`
## [1] "numeric"
## 
## $`Timer_Click Count_46`
## [1] "numeric"
## 
## $`Timer_First Click_47`
## [1] "numeric"
## 
## $`Timer_Last Click_47`
## [1] "numeric"
## 
## $`Timer_Page Submit_47`
## [1] "numeric"
## 
## $`Timer_Click Count_47`
## [1] "numeric"
## 
## $`Timer_First Click_48`
## [1] "numeric"
## 
## $`Timer_Last Click_48`
## [1] "numeric"
## 
## $`Timer_Page Submit_48`
## [1] "numeric"
## 
## $`Timer_Click Count_48`
## [1] "numeric"
## 
## $`Timer_First Click_49`
## [1] "numeric"
## 
## $`Timer_Last Click_49`
## [1] "numeric"
## 
## $`Timer_Page Submit_49`
## [1] "numeric"
## 
## $`Timer_Click Count_49`
## [1] "numeric"
## 
## $`Timer_First Click_50`
## [1] "numeric"
## 
## $`Timer_Last Click_50`
## [1] "numeric"
## 
## $`Timer_Page Submit_50`
## [1] "numeric"
## 
## $`Timer_Click Count_50`
## [1] "numeric"
## 
## $`Timer_First Click_51`
## [1] "numeric"
## 
## $`Timer_Last Click_51`
## [1] "numeric"
## 
## $`Timer_Page Submit_51`
## [1] "numeric"
## 
## $`Timer_Click Count_51`
## [1] "numeric"
## 
## $`Timer_First Click_52`
## [1] "numeric"
## 
## $`Timer_Last Click_52`
## [1] "numeric"
## 
## $`Timer_Page Submit_52`
## [1] "numeric"
## 
## $`Timer_Click Count_52`
## [1] "numeric"
## 
## $`Timer_First Click_53`
## [1] "numeric"
## 
## $`Timer_Last Click_53`
## [1] "numeric"
## 
## $`Timer_Page Submit_53`
## [1] "numeric"
## 
## $`Timer_Click Count_53`
## [1] "numeric"
## 
## $`Timer_First Click_54`
## [1] "numeric"
## 
## $`Timer_Last Click_54`
## [1] "numeric"
## 
## $`Timer_Page Submit_54`
## [1] "numeric"
## 
## $`Timer_Click Count_54`
## [1] "numeric"
## 
## $`Timer_First Click_55`
## [1] "numeric"
## 
## $`Timer_Last Click_55`
## [1] "numeric"
## 
## $`Timer_Page Submit_55`
## [1] "numeric"
## 
## $`Timer_Click Count_55`
## [1] "numeric"
## 
## $`Timer_First Click_56`
## [1] "numeric"
## 
## $`Timer_Last Click_56`
## [1] "numeric"
## 
## $`Timer_Page Submit_56`
## [1] "numeric"
## 
## $`Timer_Click Count_56`
## [1] "numeric"
## 
## $`Timer_First Click_57`
## [1] "numeric"
## 
## $`Timer_Last Click_57`
## [1] "numeric"
## 
## $`Timer_Page Submit_57`
## [1] "numeric"
## 
## $`Timer_Click Count_57`
## [1] "numeric"
## 
## $`Timer_First Click_58`
## [1] "numeric"
## 
## $`Timer_Last Click_58`
## [1] "numeric"
## 
## $`Timer_Page Submit_58`
## [1] "numeric"
## 
## $`Timer_Click Count_58`
## [1] "numeric"
## 
## $`Timer_First Click_59`
## [1] "numeric"
## 
## $`Timer_Last Click_59`
## [1] "numeric"
## 
## $`Timer_Page Submit_59`
## [1] "numeric"
## 
## $`Timer_Click Count_59`
## [1] "numeric"
## 
## $`Timer_First Click_60`
## [1] "numeric"
## 
## $`Timer_Last Click_60`
## [1] "numeric"
## 
## $`Timer_Page Submit_60`
## [1] "numeric"
## 
## $`Timer_Click Count_60`
## [1] "numeric"
## 
## $`Timer_First Click_61`
## [1] "numeric"
## 
## $`Timer_Last Click_61`
## [1] "numeric"
## 
## $`Timer_Page Submit_61`
## [1] "numeric"
## 
## $`Timer_Click Count_61`
## [1] "numeric"
## 
## $`Timer_First Click_62`
## [1] "numeric"
## 
## $`Timer_Last Click_62`
## [1] "numeric"
## 
## $`Timer_Page Submit_62`
## [1] "numeric"
## 
## $`Timer_Click Count_62`
## [1] "numeric"
## 
## $`Timer_First Click_63`
## [1] "numeric"
## 
## $`Timer_Last Click_63`
## [1] "numeric"
## 
## $`Timer_Page Submit_63`
## [1] "numeric"
## 
## $`Timer_Click Count_63`
## [1] "numeric"
## 
## $`Timer_First Click_64`
## [1] "numeric"
## 
## $`Timer_Last Click_64`
## [1] "numeric"
## 
## $`Timer_Page Submit_64`
## [1] "numeric"
## 
## $`Timer_Click Count_64`
## [1] "numeric"
## 
## $`Timer_First Click_65`
## [1] "numeric"
## 
## $`Timer_Last Click_65`
## [1] "numeric"
## 
## $`Timer_Page Submit_65`
## [1] "numeric"
## 
## $`Timer_Click Count_65`
## [1] "numeric"
## 
## $`Timer_First Click_66`
## [1] "numeric"
## 
## $`Timer_Last Click_66`
## [1] "numeric"
## 
## $`Timer_Page Submit_66`
## [1] "numeric"
## 
## $`Timer_Click Count_66`
## [1] "numeric"
## 
## $`Timer_First Click_67`
## [1] "numeric"
## 
## $`Timer_Last Click_67`
## [1] "numeric"
## 
## $`Timer_Page Submit_67`
## [1] "numeric"
## 
## $`Timer_Click Count_67`
## [1] "numeric"
## 
## $`Timer_First Click_68`
## [1] "numeric"
## 
## $`Timer_Last Click_68`
## [1] "numeric"
## 
## $`Timer_Page Submit_68`
## [1] "numeric"
## 
## $`Timer_Click Count_68`
## [1] "numeric"
## 
## $`Timer_First Click_69`
## [1] "numeric"
## 
## $`Timer_Last Click_69`
## [1] "numeric"
## 
## $`Timer_Page Submit_69`
## [1] "numeric"
## 
## $`Timer_Click Count_69`
## [1] "numeric"
## 
## $`Timer_First Click_70`
## [1] "numeric"
## 
## $`Timer_Last Click_70`
## [1] "numeric"
## 
## $`Timer_Page Submit_70`
## [1] "numeric"
## 
## $`Timer_Click Count_70`
## [1] "numeric"
## 
## $`Timer_First Click_71`
## [1] "numeric"
## 
## $`Timer_Last Click_71`
## [1] "numeric"
## 
## $`Timer_Page Submit_71`
## [1] "numeric"
## 
## $`Timer_Click Count_71`
## [1] "numeric"
## 
## $`Timer_First Click_72`
## [1] "numeric"
## 
## $`Timer_Last Click_72`
## [1] "numeric"
## 
## $`Timer_Page Submit_72`
## [1] "numeric"
## 
## $`Timer_Click Count_72`
## [1] "numeric"
## 
## $`Timer_First Click_73`
## [1] "numeric"
## 
## $`Timer_Last Click_73`
## [1] "numeric"
## 
## $`Timer_Page Submit_73`
## [1] "numeric"
## 
## $`Timer_Click Count_73`
## [1] "numeric"
## 
## $`Timer_First Click_74`
## [1] "numeric"
## 
## $`Timer_Last Click_74`
## [1] "numeric"
## 
## $`Timer_Page Submit_74`
## [1] "numeric"
## 
## $`Timer_Click Count_74`
## [1] "numeric"
## 
## $`Timer_First Click_75`
## [1] "numeric"
## 
## $`Timer_Last Click_75`
## [1] "numeric"
## 
## $`Timer_Page Submit_75`
## [1] "numeric"
## 
## $`Timer_Click Count_75`
## [1] "numeric"
## 
## $NC_1
## [1] "numeric"
## 
## $NC_2
## [1] "numeric"
## 
## $NC_3
## [1] "numeric"
## 
## $NC_4
## [1] "numeric"
## 
## $NC_5
## [1] "numeric"
## 
## $NC_6
## [1] "numeric"
## 
## $NBS_1
## [1] "numeric"
## 
## $NBS_2
## [1] "numeric"
## 
## $NBS_3
## [1] "numeric"
## 
## $NBS_4
## [1] "numeric"
## 
## $NBS_5
## [1] "numeric"
## 
## $NBS_6
## [1] "numeric"
## 
## $Mistrust_expertise_1
## [1] "numeric"
## 
## $Mistrust_expertise_2
## [1] "numeric"
## 
## $Mistrust_expertise_3
## [1] "numeric"
## 
## $GSS
## [1] "numeric"
## 
## $Certainty_sci_know_1
## [1] "numeric"
## 
## $Certainty_sci_know_2
## [1] "numeric"
## 
## $Certainty_sci_know_3
## [1] "numeric"
## 
## $Certainty_sci_know_4
## [1] "numeric"
## 
## $Certainty_sci_know_5
## [1] "numeric"
## 
## $Certainty_sci_know_6
## [1] "numeric"
## 
## $Development_sci_know_1
## [1] "numeric"
## 
## $Development_sci_know_2
## [1] "numeric"
## 
## $Development_sci_know_3
## [1] "numeric"
## 
## $Development_sci_know_4
## [1] "numeric"
## 
## $Development_sci_know_5
## [1] "numeric"
## 
## $Development_sci_know_6
## [1] "numeric"
## 
## $Memory_task
## [1] "character"
## 
## $Memory_task_DO
## [1] "character"
## 
## $Serious_check
## [1] "numeric"
## 
## $SC0
## [1] "numeric"
## 
## $Prolific_PID
## [1] "character"
## 
## $Random_ID
## [1] "numeric"
## 
## $FL_12_DO
## [1] "character"

# CONVERT mydata to a data.frame - the qualtRics package Formats the data to a tibble rather than a data frame - converting mydata into a data.frame fixes the rounding issue in my numeric calculations 
mydata2<- as.data.frame(mydata2)

1. Filtering Data (Exp 2)

#Count how many times the survey was opened i.e. the number of observations (anyone with progress >= 1%) [412] 
mydata2 %>% count(Progress>=1) #412

##   Progress >= 1   n
## 1          TRUE 412

#Count how many particpants CONSENTED to take part (this is BEFORE any exclusions for non-completion / non-serious responding) [412]
mydata2 %>% count(Consent==1) #412 (ALL were consenting)

##   Consent == 1   n
## 1         TRUE 412

#Renaming variables "SC0" to "Recall_score" and "FL_10_DO" to "Condition"
mydata2 <- mydata2 %>% rename(Recall_score = SC0, Condition = FL_12_DO)

#PLANNED EXCLUSIONS:
# Applying exclusion criteria: creating a subset of participants who finished the study (Finished==1), declared that they answered seriously (seriousness_check==1) AND scored 4 or above on recall
# THEN creating a subset of relevant variables 

mydata2 <- mydata2 %>% 
  filter(
    Finished == 1,
    Serious_check == 1,
    Recall_score >= 4) %>% 
  select(
    Finished,
    `Duration (in seconds)`,
    Gender,
    Age,
    Serious_check, 
    Recall_score,
    Condition,
    NC_1:Development_sci_know_6)

#Count how many participants remain after exclusions (final sample size = 400)
mydata2 %>% summarise(n())

##   n()
## 1 400

Total_n2 <- mydata2 %>% summarise(n())

#Export the subset of data to a .csv
write_csv(mydata2, "MyDataSubset2.csv")

2. Descriptive stats > Calculating demographics (Exp 2)

#AGE: Calculating the mean, SD, and range
mydata2 %>% summarise(mean(Age), sd(Age), range(Age)) # M = 33.5, SD = 12, Range = 18-73

##   mean(Age)  sd(Age) range(Age)
## 1    33.465 12.03415         18
## 2    33.465 12.03415         73

#GENDER: Counting the no. of males(Value: '1') and females('2'), Other('3') and Prefer not to say('4'):
mydata2 %>% count(Gender) #male = 150, female = 248, other = 2, prefer not = 0

##   Gender   n
## 1      1 150
## 2      2 248
## 3      3   2

3. Descriptive stats > Descriptive ggplots (Exp 2)

##For all plots
#Separate the data in Condition into 4 columns to separate levels of each IV  ("Block_1_Generic_Conflict"...)
mydata2 <- separate(mydata2, Condition, c("block", "number", "Format", "Conflict"))

#set these new IV columns as factors 
mydata2 <- mydata2 %>%
  mutate(Format=as.factor(Format)) %>%
  mutate(Conflict=as.factor(Conflict)) 

sapply(mydata2, class) #to check

##               Finished  Duration (in seconds)                 Gender 
##              "numeric"              "numeric"              "numeric" 
##                    Age          Serious_check           Recall_score 
##              "numeric"              "numeric"              "numeric" 
##                  block                 number                 Format 
##            "character"            "character"               "factor" 
##               Conflict                   NC_1                   NC_2 
##               "factor"              "numeric"              "numeric" 
##                   NC_3                   NC_4                   NC_5 
##              "numeric"              "numeric"              "numeric" 
##                   NC_6                  NBS_1                  NBS_2 
##              "numeric"              "numeric"              "numeric" 
##                  NBS_3                  NBS_4                  NBS_5 
##              "numeric"              "numeric"              "numeric" 
##                  NBS_6   Mistrust_expertise_1   Mistrust_expertise_2 
##              "numeric"              "numeric"              "numeric" 
##   Mistrust_expertise_3                    GSS   Certainty_sci_know_1 
##              "numeric"              "numeric"              "numeric" 
##   Certainty_sci_know_2   Certainty_sci_know_3   Certainty_sci_know_4 
##              "numeric"              "numeric"              "numeric" 
##   Certainty_sci_know_5   Certainty_sci_know_6 Development_sci_know_1 
##              "numeric"              "numeric"              "numeric" 
## Development_sci_know_2 Development_sci_know_3 Development_sci_know_4 
##              "numeric"              "numeric"              "numeric" 
## Development_sci_know_5 Development_sci_know_6 
##              "numeric"              "numeric"

#calculate the average for each scale -- library("dplyr")
#nutritional confusion mean
mydata2 <- mydata2 %>%
  rowwise() %>%
  mutate(confusion = (NC_1 + NC_2 + NC_3 + NC_4 + NC_5 + NC_6)/6)

#nutritional backlash mean
mydata2 <- mydata2 %>%
  rowwise() %>%
  mutate(backlash = (NBS_1 + NBS_2 + NBS_3 + NBS_4 + NBS_5 + NBS_6)/6)

#Mistrust of expertise mean
mydata2 <- mydata2 %>%
  rowwise() %>%
  mutate(mistrust = (Mistrust_expertise_1 + Mistrust_expertise_2 + Mistrust_expertise_3)/3)

#Confidence in scientific community = single column ('GSS')

#Certainty of knowledge mean
mydata2 <- mydata2 %>%
  rowwise() %>%
  mutate(certainty = (Certainty_sci_know_1 + Certainty_sci_know_2 + Certainty_sci_know_3 + Certainty_sci_know_4 + Certainty_sci_know_5 + Certainty_sci_know_6)/6)

#Development of knowledge mean
mydata2 <- mydata2 %>%
  rowwise() %>%
  mutate(development = (Development_sci_know_1 + Development_sci_know_2 + Development_sci_know_3 + Development_sci_know_4 + Development_sci_know_5 + Development_sci_know_6)/6)

#Export the FINAL data to a .csv
write_csv(mydata2, "MyDataFinalSubset2.csv")

##Violin ggplots

#Nutritional Confusion plot
nutritionalconfusion_violinplot <- ggplot(mydata2, aes(x = Conflict, y = confusion, fill = Conflict)) +      #fill = colour grouping based on Conflict type
  geom_violin() + #creating violin plot
  facet_wrap(vars(Format), strip.position = "bottom")+  #dividing plots by format, and changing facet titles to be at the bottom rather than top
  stat_summary(   #adding crossbars to indicate mean of contradiction scores as well as 95% confidence intervals
    mapping = NULL,
    data = NULL,
    geom = "crossbar",
    fun.data = "mean_ci",   #adding 95% confidence intervals
    fill = "white",         #changing colour
    alpha = .7)+            #changing transparency of fill
  geom_beeswarm(cex = 0.2)+     #adding dotpoints to violin plot. cex = scaling for adjusting point spacing
  ggtitle(label = "Nutritional Confusion")+    #adding title
  scale_y_continuous(                          #adding y-axis title
    name = "Nutritional Confusion")+        
  scale_x_discrete(name = NULL)+               #removing x-axis title
  theme(plot.title = element_text(hjust = 0.5)) +    #centering the title
  theme(legend.position = 'none') +                  #removing legend
  scale_fill_manual(values=c("slategray2", "lightpink1"))    #manually changing the fill colours from default colour grouping based on conflict to our desired colours
print(nutritionalconfusion_violinplot)

#Nutritional Backlash plot
nutritionalbacklash_violinplot <- ggplot(mydata2, aes(x = Conflict, y = backlash, fill = Conflict)) +
  geom_violin() + 
  facet_wrap(vars(Format), strip.position = "bottom")+
  stat_summary(
    mapping = NULL,
    data = NULL,
    geom = "crossbar",
    fun.data = "mean_ci",
    fill = "white",
    alpha = .7)+
  geom_beeswarm(cex = 0.2)+
  ggtitle(label = "Nutritional Backlash")+
  scale_y_continuous(
    name = "Nutritional Backlash")+
  scale_x_discrete(name = NULL)+
  theme(plot.title = element_text(hjust = 0.5)) + 
  theme(legend.position = 'none') + 
  scale_fill_manual(values=c("slategray2", "lightpink1"))
print(nutritionalbacklash_violinplot)

#Mistrust of Expertise plot
mistrust_violinplot <- ggplot(mydata2, aes(x = Conflict, y = mistrust, fill = Conflict)) +
  geom_violin() + 
  facet_wrap(vars(Format), strip.position = "bottom")+
  stat_summary(
    mapping = NULL,
    data = NULL,
    geom = "crossbar",
    fun.data = "mean_ci",
    fill = "white",
    alpha = .7)+
  geom_beeswarm(cex = 0.2)+ 
  ggtitle(label = "Mistrust of Expertise")+
  scale_y_continuous(
    name = "Mistrust of Expertise")+
  scale_x_discrete(name = NULL)+
  theme(plot.title = element_text(hjust = 0.5)) + 
  theme(legend.position = 'none') + 
  scale_fill_manual(values=c("slategray2", "lightpink1"))
print(mistrust_violinplot)

#Confidence in Scientific Community plot
confidence_violinplot <- ggplot(mydata2, aes(x = Conflict, y = GSS, fill = Conflict)) +
  geom_violin() + 
  facet_wrap(vars(Format), strip.position = "bottom")+
  stat_summary(
    mapping = NULL,
    data = NULL,
    geom = "crossbar",
    fun.data = "mean_ci",
    fill = "white",
    alpha = .7)+
  geom_beeswarm(cex = 0.2)+ 
  ggtitle(label = "Confidence in Scientific Community")+
  scale_y_continuous(
    name = "Confidence in Scientific Community")+
  scale_x_discrete(name = NULL)+
  theme(plot.title = element_text(hjust = 0.5)) + 
  theme(legend.position = 'none') + 
  scale_fill_manual(values=c("slategray2", "lightpink1"))
print(confidence_violinplot)

#Certainty of Knowledge plot
certainty_violinplot <- ggplot(mydata2, aes(x = Conflict, y = certainty, fill = Conflict)) +
  geom_violin() + 
  facet_wrap(vars(Format), strip.position = "bottom")+
  stat_summary(
    mapping = NULL,
    data = NULL,
    geom = "crossbar",
    fun.data = "mean_ci",
    fill = "white",
    alpha = .7)+
  geom_beeswarm(cex = 0.2)+ 
  ggtitle(label = "Certainty of Knowledge")+
  scale_y_continuous(
    name = "Certainty of Knowledge")+
  scale_x_discrete(name = NULL)+
  theme(plot.title = element_text(hjust = 0.5)) + 
  theme(legend.position = 'none') + 
  scale_fill_manual(values=c("slategray2", "lightpink1"))
print(certainty_violinplot)

#Development of Knowledge plot
development_violinplot <- ggplot(mydata2, aes(x = Conflict, y = development, fill = Conflict)) +
  geom_violin() + 
  facet_wrap(vars(Format), strip.position = "bottom")+
  stat_summary(
    mapping = NULL,
    data = NULL,
    geom = "crossbar",
    fun.data = "mean_ci",
    fill = "white",
    alpha = .7)+
  geom_beeswarm(cex = 0.2)+ 
  ggtitle(label = "Development of Knowledge")+
  scale_y_continuous(
    name = "Development of Knowledge", limits = c(1,5))+
  scale_x_discrete(name = NULL)+
  theme(plot.title = element_text(hjust = 0.5)) + 
  theme(legend.position = 'none') + 
  scale_fill_manual(values=c("slategray2", "lightpink1"))
print(development_violinplot)

# Combine plots using the package patchwork()
combinedplots2 <- nutritionalconfusion_violinplot + nutritionalbacklash_violinplot + mistrust_violinplot + confidence_violinplot + certainty_violinplot + development_violinplot + plot_layout(ncol = 2)
print(combinedplots2)

Lauren’s Learning Log (6)

Lauren Abdallah

10/07/2021

Coding goals for week 6

Challenges and successes

Experiment 2:

1. Filtering Data (Exp 2)

2. Descriptive stats > Calculating demographics (Exp 2)

3. Descriptive stats > Descriptive ggplots (Exp 2)

The next steps