JCPP_alluvial_2.R

# plot individual lines
  ggplot() +
  # plot N-2 as a base layer 
    geom_line(data = datL[datL$highlight>2,],
              aes(time, depress, color=factor(highlight), group=ID), size=0.5) +
  # highlight two individuals and plot them second to appear on top
    geom_line(data = datL[datL$highlight<3,],
              aes(time, depress, color=factor(highlight), group=ID), size=1) +
    scale_color_manual(values=c("#ff0000", "#0000ff", "#D3D3D3")) +
    scale_size_manual(values=c(1, 1, 0.5)) +
    facet_wrap(~w1group) +
    theme_bw() + 
    theme(legend.position="none")