Depression

PHQ-9 total scores across four time points

T1= 7/13/2018
T2= 7/23/2018
T3= 8/1/2018
T4= 8/13/2018
ggplot(data = s17, aes(x = s17$scan, y = s17$DEP_total)) + geom_line() +
  facet_wrap(~C.no)

PHQ-9 symptom: Little interest or pelasure in doing things

T1= 7/13/2018
T2= 7/23/2018
T3= 8/1/2018
T4= 8/13/2018
ggplot(data = s17, aes(x = s17$scan, y = s17$DEP1)) + geom_line() +
  facet_wrap(~C.no)

PHQ-9 symptom: Feeling down depressed or hopeless

T1= 7/13/2018
T2= 7/23/2018
T3= 8/1/2018
T4= 8/13/2018
ggplot(data = s17, aes(x = s17$scan, y = s17$DEP2)) + geom_line() +
  facet_wrap(~C.no)

PHQ-9 symptom: Sleep Disturbance

T1= 7/13/2018
T2= 7/23/2018
T3= 8/1/2018
T4= 8/13/2018
ggplot(data = s17, aes(x = s17$scan, y = s17$DEP3)) + geom_line() +
  facet_wrap(~C.no)

PHQ-9 symptom: FTired or Low Energy

T1= 7/13/2018
T2= 7/23/2018
T3= 8/1/2018
T4= 8/13/2018
ggplot(data = s17, aes(x = s17$scan, y = s17$DEP4)) + geom_line() +
  facet_wrap(~C.no)

PHQ-9 symptom: Changes in Appetite

T1= 7/13/2018
T2= 7/23/2018
T3= 8/1/2018
T4= 8/13/2018
ggplot(data = s17, aes(x = s17$scan, y = s17$DEP5)) + geom_line() +
  facet_wrap(~C.no)

PHQ-9 symptom: Guilt/Worthlessness

T1= 7/13/2018
T2= 7/23/2018
T3= 8/1/2018
T4= 8/13/2018
ggplot(data = s17, aes(x = s17$scan, y = s17$DEP6)) + geom_line() +
  facet_wrap(~C.no)

PHQ-9 symptom: Trouble Concentrating

T1= 7/13/2018
T2= 7/23/2018
T3= 8/1/2018
T4= 8/13/2018
ggplot(data = s17, aes(x = s17$scan, y = s17$DEP7)) + geom_line() +
  facet_wrap(~C.no)

PHQ-9 symptom: Psychomotor Disturbances

T1= 7/13/2018
T2= 7/23/2018
T3= 8/1/2018
T4= 8/13/2018
ggplot(data = s17, aes(x = s17$scan, y = s17$DEP8)) + geom_line() +
  facet_wrap(~C.no)

PHQ-9 symptom: Suicidal Ideation

T1= 7/13/2018
T2= 7/23/2018
T3= 8/1/2018
T4= 8/13/2018
ggplot(data = s17, aes(x = s17$scan, y = s17$DEP9)) + geom_line() +
  facet_wrap(~C.no)

Anxiety

GAD-7 Total Score across four timepoints

T1= 7/13/2018
T2= 7/23/2018
T3= 8/1/2018
T4= 8/13/2018
ggplot(data = s17, aes(x = s17$scan, y = s17$GAD7_total)) + geom_line() +
  facet_wrap(~C.no)

GAD-7 symptom: Feeling nervous, anxious or on edge

T1= 7/13/2018
T2= 7/23/2018
T3= 8/1/2018
T4= 8/13/2018
ggplot(data = s17, aes(x = s17$scan, y = s17$GAD1)) + geom_line() +
  facet_wrap(~C.no)

GAD-7 symptom: Unable to stop or control worry

T1= 7/13/2018
T2= 7/23/2018
T3= 8/1/2018
T4= 8/13/2018
ggplot(data = s17, aes(x = s17$scan, y = s17$GAD2)) + geom_line() +
  facet_wrap(~C.no)

GAD-7 symptom: Worrying too much about different things

T1= 7/13/2018
T2= 7/23/2018
T3= 8/1/2018
T4= 8/13/2018
ggplot(data = s17, aes(x = s17$scan, y = s17$GAD3)) + geom_line() +
  facet_wrap(~C.no)

GAD-7 symptom: trouble relaxing

T1= 7/13/2018
T2= 7/23/2018
T3= 8/1/2018
T4= 8/13/2018
ggplot(data = s17, aes(x = s17$scan, y = s17$GAD4)) + geom_line() +
  facet_wrap(~C.no)

GAD-7 symptom: Being so restless that it’s hard to sit still

T1= 7/13/2018
T2= 7/23/2018
T3= 8/1/2018
T4= 8/13/2018
ggplot(data = s17, aes(x = s17$scan, y = s17$GAD5)) + geom_line() +
  facet_wrap(~C.no)

GAD-7 symptom: Becoming easily annoyed or irritable

T1= 7/13/2018
T2= 7/23/2018
T3= 8/1/2018
T4= 8/13/2018
ggplot(data = s17, aes(x = s17$scan, y = s17$GAD6)) + geom_line() +
  facet_wrap(~C.no)

GAD-7 symptom: Feeling afraid as if something awful might happen

T1= 7/13/2018
T2= 7/23/2018
T3= 8/1/2018
T4= 8/13/2018
ggplot(data = s17, aes(x = s17$scan, y = s17$GAD7)) + geom_line() +
  facet_wrap(~C.no)