cg

Stress Level

## # A tibble: 11 x 3
##    Response     n   freq
##       <dbl> <int>  <dbl>
##  1        0    48 14.0  
##  2        1    23  6.69 
##  3        2    43 12.5  
##  4        3    47 13.7  
##  5        4    44 12.8  
##  6        5    32  9.30 
##  7        6    52 15.1  
##  8        7    32  9.30 
##  9        8    15  4.36 
## 10        9     3  0.872
## 11       10     5  1.45

Stress Managment

## # A tibble: 3 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        0  4530 87.0 
## 2        1   615 11.8 
## 3       NA    64  1.23

GAD

## # A tibble: 5 x 3
##   Response     n   freq
##      <dbl> <int>  <dbl>
## 1        0    54 20.9  
## 2        1    88 34.1  
## 3        2    80 31.0  
## 4        3    34 13.2  
## 5       NA     2  0.775

PHQ

## # A tibble: 5 x 3
##   Response     n   freq
##      <dbl> <int>  <dbl>
## 1        0    62 23.1  
## 2        1    92 34.3  
## 3        2    90 33.6  
## 4        3    23  8.58 
## 5       NA     1  0.373

PANAS

## # A tibble: 3 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        0  2822 83.3 
## 2        1   478 14.1 
## 3       NA    87  2.57

Life Satisfaction

## # A tibble: 8 x 3
##   Response     n   freq
##      <dbl> <int>  <dbl>
## 1        1     3  1.13 
## 2        2    29 10.9  
## 3        3    36 13.5  
## 4        4    40 15.0  
## 5        5    36 13.5  
## 6        6    80 30.1  
## 7        7    41 15.4  
## 8       NA     1  0.376

Sleep

## # A tibble: 6 x 3
##   Response     n   freq
##      <dbl> <int>  <dbl>
## 1        1    33  9.68 
## 2        2    92 27.0  
## 3        3    58 17.0  
## 4        4   125 36.7  
## 5        5    32  9.38 
## 6       NA     1  0.293

Family

## # A tibble: 3 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        1    15  16.0
## 2        2    38  40.4
## 3        3    41  43.6

Social Functioning 1

## # A tibble: 5 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        1     8  6.50
## 2        2    37 30.1 
## 3        3    23 18.7 
## 4        4    35 28.5 
## 5        5    20 16.3

Social Functioning 2

## # A tibble: 11 x 3
##    Response     n   freq
##       <dbl> <int>  <dbl>
##  1        0     1  0.813
##  2        1     4  3.25 
##  3        2     5  4.07 
##  4        3    13 10.6  
##  5        4    13 10.6  
##  6        5    28 22.8  
##  7        6    28 22.8  
##  8        7    14 11.4  
##  9        8    11  8.94 
## 10        9     4  3.25 
## 11       10     2  1.63

Physical Activity

## # A tibble: 4 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        0    56  37.6
## 2        1    60  40.3
## 3        2    16  10.7
## 4        3    17  11.4

Dyadic

## # A tibble: 3 x 3
##   Response     n   freq
##      <dbl> <int>  <dbl>
## 1        0  1196 81.4  
## 2        1   260 17.7  
## 3       NA    14  0.952

Social Interaction1

## # A tibble: 2 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        0    54  56.2
## 2        1    42  43.8

Social Interaction2

## # A tibble: 7 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        0     1  2.38
## 2        2     6 14.3 
## 3        3     3  7.14
## 4        4     7 16.7 
## 5        5     6 14.3 
## 6        6     8 19.0 
## 7        7    11 26.2

Social Interaction3

## # A tibble: 4 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        0    17 40.5 
## 2        1     3  7.14
## 3        2     4  9.52
## 4        3    18 42.9

Social Interaction4

## # A tibble: 2 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        0   364  86.7
## 2        1    56  13.3

DUKE

## # A tibble: 5 x 3
##   Response     n   freq
##      <dbl> <int>  <dbl>
## 1        0     8  4.40 
## 2        1    43 23.6  
## 3        2    75 41.2  
## 4        3    55 30.2  
## 5       NA     1  0.549

Symptoms1

## # A tibble: 3 x 3
##   Response     n   freq
##      <dbl> <int>  <dbl>
## 1        0  1351 84.4  
## 2        1   239 14.9  
## 3       NA    10  0.625

Symptoms2

## # A tibble: 3 x 3
##   Response     n   freq
##      <dbl> <int>  <dbl>
## 1        0  1198 78.3  
## 2        1   323 21.1  
## 3       NA     9  0.588

General Health

## # A tibble: 5 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        0     4  1.45
## 2        1    48 17.5 
## 3        2   163 59.3 
## 4        3    38 13.8 
## 5        4    22  8

Pain Level

## # A tibble: 5 x 3
##   Response     n   freq
##      <dbl> <int>  <dbl>
## 1        0    63 26.9  
## 2        1    78 33.3  
## 3        2    70 29.9  
## 4        3    22  9.40 
## 5       NA     1  0.427

Pain Interference

## # A tibble: 5 x 3
##   Response     n   freq
##      <dbl> <int>  <dbl>
## 1        0    19  8.15 
## 2        1    38 16.3  
## 3        2    77 33.0  
## 4        3    98 42.1  
## 5       NA     1  0.429

QOLIBRI

## # A tibble: 5 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        0    37  6.75
## 2        1   186 33.9 
## 3        2   206 37.6 
## 4        3    69 12.6 
## 5        4    50  9.12

V

Stress Level

## # A tibble: 12 x 3
##    Response     n   freq
##       <dbl> <int>  <dbl>
##  1        0    28  8.72 
##  2        1    20  6.23 
##  3        2    37 11.5  
##  4        3    48 15.0  
##  5        4    17  5.30 
##  6        5    40 12.5  
##  7        6    28  8.72 
##  8        7    34 10.6  
##  9        8    26  8.10 
## 10        9    15  4.67 
## 11       10    27  8.41 
## 12       NA     1  0.312

Stress Managment

## # A tibble: 3 x 3
##   Response     n   freq
##      <dbl> <int>  <dbl>
## 1        0  4117 85.0  
## 2        1   683 14.1  
## 3       NA    42  0.867

GAD

## # A tibble: 5 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        0    29 12.3 
## 2        1    88 37.3 
## 3        2    81 34.3 
## 4        3    34 14.4 
## 5       NA     4  1.69

PHQ

## # A tibble: 4 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        0    57  25.1
## 2        1    85  37.4
## 3        2    57  25.1
## 4        3    28  12.3

PANAS

## # A tibble: 3 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        0  2453 81.6 
## 2        1   497 16.5 
## 3       NA    56  1.86

Life Satisfaction

## # A tibble: 7 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        1    29 11.0 
## 2        2    59 22.4 
## 3        3    23  8.75
## 4        4    62 23.6 
## 5        5    38 14.4 
## 6        6    21  7.98
## 7        7    31 11.8

Sleep

## # A tibble: 5 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        1    68  21.8
## 2        2    71  22.8
## 3        3    53  17.0
## 4        4    77  24.7
## 5        5    43  13.8

Family

## # A tibble: 4 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        0     7  8.24
## 2        1    12 14.1 
## 3        2    39 45.9 
## 4        3    27 31.8

Social Functioning 1

## # A tibble: 5 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        1    17 17.9 
## 2        2    23 24.2 
## 3        3    20 21.1 
## 4        4    31 32.6 
## 5        5     4  4.21

Social Functioning 2

## # A tibble: 11 x 3
##    Response     n  freq
##       <dbl> <int> <dbl>
##  1        0     4  4.21
##  2        1     8  8.42
##  3        2     6  6.32
##  4        3     6  6.32
##  5        4     9  9.47
##  6        5    37 38.9 
##  7        6    12 12.6 
##  8        7     4  4.21
##  9        8     5  5.26
## 10        9     1  1.05
## 11       10     3  3.16

Physical Activity

## # A tibble: 4 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        0    68  54.4
## 2        1    45  36  
## 3        2     8   6.4
## 4        3     4   3.2

Dyadic

## # A tibble: 2 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        0   981  77.9
## 2        1   279  22.1

Social Interaction1

## # A tibble: 2 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        0    58  63.7
## 2        1    33  36.3

Social Interaction2

## # A tibble: 6 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        2     2  6.06
## 2        3     1  3.03
## 3        4     6 18.2 
## 4        5     4 12.1 
## 5        6     6 18.2 
## 6        7    14 42.4

Social Interaction3

## # A tibble: 4 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        0    13  39.4
## 2        1     6  18.2
## 3        3    10  30.3
## 4        5     4  12.1

Social Interaction4

## # A tibble: 2 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        0   258  78.2
## 2        1    72  21.8

DUKE

## # A tibble: 4 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        0    42  25.9
## 2        1    37  22.8
## 3        2    50  30.9
## 4        3    33  20.4

Symptoms1

## # A tibble: 2 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        0  1112  74.1
## 2        1   388  25.9

Symptoms2

## # A tibble: 2 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        0  1051  71.2
## 2        1   425  28.8

General Health

## # A tibble: 5 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        0     9  3.57
## 2        1    20  7.94
## 3        2    63 25   
## 4        3   140 55.6 
## 5        4    20  7.94

Pain Level

## # A tibble: 5 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        0    26 11.8 
## 2        1    77 35   
## 3        2    65 29.5 
## 4        3    38 17.3 
## 5        4    14  6.36

Pain Interference

## # A tibble: 4 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        0    17  7.73
## 2        1    89 40.5 
## 3        2    75 34.1 
## 4        3    39 17.7

QOLIBRI

## # A tibble: 5 x 3
##   Response     n  freq
##      <dbl> <int> <dbl>
## 1        0   239 47.9 
## 2        1   147 29.5 
## 3        2    88 17.6 
## 4        3    18  3.61
## 5        4     7  1.40

Stress level

df_V_long$Notification.Time <- mdy_hm(df_V_long$Notification.Time)


xx<-df_V_long %>% 
  select(Participant.ID, Prompt, Response,Session.Name, Notification.Time) %>% 
  filter(Prompt=="How stressed do you feel right now?")

xx<-xx %>% 
  arrange(Notification.Time) %>%
  group_by(Participant.ID) %>%
  mutate(dummy = 1) %>%
  mutate(times = cumsum(dummy)) %>%
  select(-dummy)


xx$Participant.ID<-as.factor(xx$Participant.ID)

library(ggplot2)

ggplot(xx, aes(x = times, y = as.numeric(Response))) +
  geom_line(aes(color = Participant.ID), size = 1) +
  theme_minimal()