library(tidyverse)
library(reshape2)
dohle_siegrist_raw <- read_delim(
"data-raw/dohle.csv",
";", escape_double = FALSE, trim_ws = TRUE
)
# dataset coding (Dohl & Siegrist, 2014, Exp. 1)
# a: effectiveness simple
# b: side effect simple
# c: effectivness complex
# d: side effect complex
# m1: hazardous simple
# m2: hazardous complex
# y1: willingness simple
# y2: willingness complex
# long-format -------------------------------------------------------------
dohle_siegrist<-
dohle_siegrist_raw %>%
select(-age, -sex, -order) %>%
gather(measure, score,
-subject) %>%
mutate(
name =
case_when(
str_detect(measure, regex("1$")) ~ "simple",
str_detect(measure, regex("2$")) ~ "complex"
),
measure =
case_when(
str_detect(measure, regex("^m")) ~ "hazardousness",
str_detect(measure, regex("^y")) ~ "willingness"
)
) %>%
drop_na() %>%
dcast(subject + name ~ measure,
value.var = "score") %>%
rename(participant = subject)
usethis::use_data(dohle_siegrist, overwrite = TRUE)
# wide-format -------------------------------------------------------------
dohle_siegrist_wide <-
melt(dohle_siegrist, c("participant", "name")) %>%
mutate(name = str_extract(name, "^.")) %>%
dcast(participant ~ variable + name,
value.var = "value")
usethis::use_data(dohle_siegrist_wide, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.