Fig3

Load relevant packages

library(tidyverse)

## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --

## v ggplot2 3.3.3     v purrr   0.3.4
## v tibble  3.1.2     v dplyr   1.0.6
## v tidyr   1.1.3     v stringr 1.4.0
## v readr   1.4.0     v forcats 0.5.1

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

library(dplyr)
library(ggplot2)

data4 <- data.frame(
  condition = factor(c("cued", "cued", "cued", "cued", "uncued", "uncued", "uncued", "uncued")),
  time = factor(c("Baseline", "Prenap", "Postnap", "1-week", "Baseline", "Prenap", "Postnap", "1-week")),
  levels = c("Baseline", "Prenap", "Postnap", "1-week"),
  bias_av = c(0.52, 0.21, 0.31, 0.40, 0.60, 0.30, 0.25, 0.40)
)

head(data4)

##   condition     time   levels bias_av
## 1      cued Baseline Baseline    0.52
## 2      cued   Prenap   Prenap    0.21
## 3      cued  Postnap  Postnap    0.31
## 4      cued   1-week   1-week    0.40
## 5    uncued Baseline Baseline    0.60
## 6    uncued   Prenap   Prenap    0.30

ggplot(data = data4, aes(
  x = time,
  y = bias_av,
  colour = condition,
  group = condition)) +
  geom_line()