df <- data.frame(
open_comp = sample(-4.5:+4.5, 3, replace = TRUE),
selfenh_comp = sample(-4.5:+4.5, 3, replace = TRUE),
cons_comp = sample(-4.5:+4.5, 3, replace = TRUE),
selftrans_comp = sample(-4.5:+4.5, 3, replace = TRUE))
valueMap <- c(OPEN = "open_comp", SELFENH = "selfenh_comp",
CONS = "cons_comp", SELFTRANS = "selftrans_comp")
persval::fourvalplot(df = df, valueMap = valueMap, instrument = "pvq40")
Run the code above in your browser using DataLab