Plot for Stressors

The variables have been divided in two groups : Increased and Decreased.

## Loading required package: viridisLite

Univariate Analysis for Fear of Seizure

COVID stressors +covariets that are found to be significant (p < 0.05) in the univariate analysis are selected for subsequent logistic regression analysis.

0 means : No change/Not applicable/ decreased for fear of seizure/ health conditon 1 means : increased for fear of seizure/ health condition

Among covid stressors, all became significant rather than alcohol composition in both outcomes, and among covariates, just GASE and seizure freedom were significant.

## 
## --------Summary descriptives table by 'Fear_seizure_covid_fac'---------
## 
## ____________________________________________________________ 
##                                 0           1      p.overall 
##                               N=166       N=94               
## ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ 
## Stress:                                             <0.001   
##     Increased              78 (47.0%)  74 (78.7%)            
##     No change              88 (53.0%)  20 (21.3%)            
## Anxiety:                                            <0.001   
##     Increased              76 (45.8%)  72 (76.6%)            
##     No change              90 (54.2%)  22 (23.4%)            
## Social_isolation:                                   <0.001   
##     Increased              67 (40.4%)  61 (64.9%)            
##     No change              99 (59.6%)  33 (35.1%)            
## Anger:                                               0.018   
##     Increased              47 (28.3%)  41 (43.6%)            
##     No change              119 (71.7%) 53 (56.4%)            
## Fear_healthcare:                                    <0.001   
##     Increased              29 (17.5%)  47 (50.0%)            
##     No change              137 (82.5%) 47 (50.0%)            
## Alcohol_consumption:                                 0.099   
##     Increased              30 (18.1%)  26 (27.7%)            
##     No change              136 (81.9%) 68 (72.3%)            
## Use_mental_health_care:                              0.020   
##     Decreased              38 (22.9%)  35 (37.2%)            
##     No change              128 (77.1%) 59 (62.8%)            
## Use_health_care:                                     0.001   
##     Decreased              36 (21.7%)  39 (41.5%)            
##     No change              130 (78.3%) 55 (58.5%)            
## Access_physicalhealthcare:                          <0.001   
##     Decreased              33 (19.9%)  48 (51.1%)            
##     No change              133 (80.1%) 46 (48.9%)            
## Access_mentalhealthcare:                             0.002   
##     Decreased              47 (28.3%)  45 (47.9%)            
##     No change              119 (71.7%) 49 (52.1%)            
## Control_over_life:                                   0.002   
##     Decreased              56 (33.7%)  51 (54.3%)            
##     No change              110 (66.3%) 43 (45.7%)            
## Age_num                    39.3 (16.1) 37.6 (12.1)   0.333   
## Gender:                                              0.967   
##     Female                 106 (63.9%) 59 (62.8%)            
##     Male                   60 (36.1%)  35 (37.2%)            
## Race:                                                0.071   
##     White                  124 (74.7%) 61 (64.9%)            
##     Black                   8 (4.82%)  13 (13.8%)            
##     Hispanic               22 (13.3%)  14 (14.9%)            
##     Mixed                  12 (7.23%)   6 (6.38%)            
## Education:                                           0.288   
##     High School            49 (29.5%)  19 (20.2%)            
##     Less than High School  11 (6.63%)   5 (5.32%)            
##     More than College      62 (37.3%)  45 (47.9%)            
##     Some College           44 (26.5%)  25 (26.6%)            
## diag_covid:                                          0.855   
##                            153 (92.2%) 88 (93.6%)            
##     You                    13 (7.83%)   6 (6.38%)            
## severe                     2.78 (1.49) 3.83 (1.44)  <0.001   
## Seizure_Freedom:                                    <0.001   
##     No                     90 (54.2%)  79 (84.0%)            
##     Yes                    76 (45.8%)  15 (16.0%)            
## ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

Univariate Analysis for Health Condition

## 
## --------Summary descriptives table by 'Health_outcome_fac'---------
## 
## ____________________________________________________________ 
##                                 0           1      p.overall 
##                               N=181       N=79               
## ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ 
## Stress:                                             <0.001   
##     Increased              85 (47.0%)  67 (84.8%)            
##     No change              96 (53.0%)  12 (15.2%)            
## Anxiety:                                            <0.001   
##     Increased              82 (45.3%)  66 (83.5%)            
##     No change              99 (54.7%)  13 (16.5%)            
## Social_isolation:                                   <0.001   
##     Increased              70 (38.7%)  58 (73.4%)            
##     No change              111 (61.3%) 21 (26.6%)            
## Anger:                                              <0.001   
##     Increased              46 (25.4%)  42 (53.2%)            
##     No change              135 (74.6%) 37 (46.8%)            
## Fear_healthcare:                                    <0.001   
##     Increased              35 (19.3%)  41 (51.9%)            
##     No change              146 (80.7%) 38 (48.1%)            
## Alcohol_consumption:                                 0.072   
##     Increased              33 (18.2%)  23 (29.1%)            
##     No change              148 (81.8%) 56 (70.9%)            
## Use_mental_health_care:                              0.001   
##     Decreased              39 (21.5%)  34 (43.0%)            
##     No change              142 (78.5%) 45 (57.0%)            
## Use_health_care:                                    <0.001   
##     Decreased              40 (22.1%)  35 (44.3%)            
##     No change              141 (77.9%) 44 (55.7%)            
## Access_physicalhealthcare:                          <0.001   
##     Decreased              39 (21.5%)  42 (53.2%)            
##     No change              142 (78.5%) 37 (46.8%)            
## Access_mentalhealthcare:                            <0.001   
##     Decreased              49 (27.1%)  43 (54.4%)            
##     No change              132 (72.9%) 36 (45.6%)            
## Control_over_life:                                  <0.001   
##     Decreased              59 (32.6%)  48 (60.8%)            
##     No change              122 (67.4%) 31 (39.2%)            
## Age_num                    39.4 (15.7) 37.1 (12.4)   0.192   
## Gender:                                              0.133   
##     Female                 109 (60.2%) 56 (70.9%)            
##     Male                   72 (39.8%)  23 (29.1%)            
## Race:                                                0.352   
##     White                  127 (70.2%) 58 (73.4%)            
##     Black                  18 (9.94%)   3 (3.80%)            
##     Hispanic               23 (12.7%)  13 (16.5%)            
##     Mixed                  13 (7.18%)   5 (6.33%)            
## Education:                                           0.756   
##     High School            44 (24.3%)  24 (30.4%)            
##     Less than High School  12 (6.63%)   4 (5.06%)            
##     More than College      75 (41.4%)  32 (40.5%)            
##     Some College           50 (27.6%)  19 (24.1%)            
## diag_covid:                                          0.706   
##                            169 (93.4%) 72 (91.1%)            
##     You                    12 (6.63%)   7 (8.86%)            
## severe                     3.02 (1.51) 3.48 (1.61)   0.033   
## Seizure_Freedom:                                    <0.001   
##     No                     104 (57.5%) 65 (82.3%)            
##     Yes                    77 (42.5%)  14 (17.7%)            
## ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

`

Model for Incraesed Health Condition

Significant variables in both univariate analyses were used in these two models, and the results were in Odds Ratio (95% CI).

## Saving 7 x 5 in image

Model for Increased Fear of Seizure

## Saving 7 x 5 in image
resu1 <- compareGroups(~Age_num+Gender+Race+Education+diag_covid+severe+Seizure_Freedom, data = LEEP_covid, 
    method = c(waist = 2))
## Warning in compareGroups.fit(X = X, y = y, include.label = include.label, :
## variables waist specified in 'method' not found
createTable(resu1)
## 
## --------Summary descriptives table ---------
## 
## _________________________________________ 
##                              [ALL]     N  
##                              N=260        
## ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ 
## Age_num                   38.7 (14.8) 260 
## Gender:                               260 
##     Female                165 (63.5%)     
##     Male                  95 (36.5%)      
## Race:                                 260 
##     White                 185 (71.2%)     
##     Black                 21 (8.08%)      
##     Hispanic              36 (13.8%)      
##     Mixed                 18 (6.92%)      
## Education:                            260 
##     High School           68 (26.2%)      
##     Less than High School 16 (6.15%)      
##     More than College     107 (41.2%)     
##     Some College          69 (26.5%)      
## diag_covid:                           260 
##                           241 (92.7%)     
##     You                   19 (7.31%)      
## severe                    3.16 (1.55) 260 
## Seizure_Freedom:                      260 
##     No                    169 (65.0%)     
##     Yes                   91 (35.0%)      
## ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
restab <- createTable(resu1, type = 1, show.ratio = TRUE)
export2csv(restab, file='demo_leep.csv')