## [1] 372
## [1] 511
##  [1] "StartDate"           "EndDate"             "IPAddress"          
##  [4] "RecordedDate"        "ResponseId"          "DistributionChannel"
##  [7] "UserLanguage"        "Q2.3"                "Q6.9"               
## [10] "Q6.10.4_1_1"         "Q6.10.4_2_1"         "Q6.10.4_3_1"        
## [13] "Q6.10.4_4_1"         "Q6.10.4_5_1"         "Q6.10.4_7_1"        
## [16] "Q8.2"                "Q9.7"                "Q9.8"               
## [19] "Q9.8_6_TEXT"         "Q9.15"               "Q9.15_4_TEXT"       
## [22] "opp"                 "Q_URL"               "Q_CHL"              
## [25] "ResponseID"          "psid"                "med"                
## [28] "ppsid"               "cintid"              "isNew"              
## [31] "cmpid"               "ProjectToken"        "LS"                 
## [34] "Set.a.Value.Now"

Make (QOLIE10)

# Patients with lowest scores have the least problems (QOLIE10)
#make Q2.9_2
table(LEEP_num$Q2.9_2)
## 
##   1   2   3   4   5 
## 100 164 152  68  27
LEEP_num$Q2.9_2[LEEP_num$Q2.9_2==1] <- "none"
LEEP_num$Q2.9_2[LEEP_num$Q2.9_2==2] <- "lit"
LEEP_num$Q2.9_2[LEEP_num$Q2.9_2==3] <- "some"
LEEP_num$Q2.9_2[LEEP_num$Q2.9_2==4] <- "most"
LEEP_num$Q2.9_2[LEEP_num$Q2.9_2==5] <- "all"

LEEP_num$Q2.9_2[LEEP_num$Q2.9_2=="none"] <- 5
LEEP_num$Q2.9_2[LEEP_num$Q2.9_2=="lit"] <- 4
LEEP_num$Q2.9_2[LEEP_num$Q2.9_2=="some"] <-3 
LEEP_num$Q2.9_2[LEEP_num$Q2.9_2=="most"] <- 2
LEEP_num$Q2.9_2[LEEP_num$Q2.9_2=="all"] <- 1
table(LEEP_num$Q2.9_2)
## 
##   1   2   3   4   5 
##  27  68 152 164 100
#make Q5.7

table(LEEP_num$Q5.7)
## 
##   0   1   2   3   4   5   6 
## 250  27  20  42  34  94  44
LEEP_num$Q5.7[LEEP_num$Q5.7==1] <- "great"
LEEP_num$Q5.7[LEEP_num$Q5.7==2] <- "lot"
LEEP_num$Q5.7[LEEP_num$Q5.7==3] <- "some"
LEEP_num$Q5.7[LEEP_num$Q5.7==4] <- "lit"
LEEP_num$Q5.7[LEEP_num$Q5.7==5] <- "not"
LEEP_num$Q5.7[LEEP_num$Q5.7==6] <- "app"
 
LEEP_num$Q5.7[LEEP_num$Q5.7=="great"] <- 5
LEEP_num$Q5.7[LEEP_num$Q5.7=="lot"] <- 4
LEEP_num$Q5.7[LEEP_num$Q5.7=="some"] <-3 
LEEP_num$Q5.7[LEEP_num$Q5.7=="lit"] <- 2
LEEP_num$Q5.7[LEEP_num$Q5.7=="not"] <- 1
LEEP_num$Q5.7[LEEP_num$Q5.7=="app"] <- 0
table(LEEP_num$Q5.7)
## 
##   0   1   2   3   4   5 
## 294  94  34  42  20  27
# Make Q5.8 series

LEEP_num$Q5.8_1[LEEP_num$Q5.8_1==6] <- 1
LEEP_num$Q5.8_2[LEEP_num$Q5.8_2==6] <- 1
LEEP_num$Q5.8_3[LEEP_num$Q5.8_3==6] <-1
LEEP_num$Q5.8_4[LEEP_num$Q5.8_4==6] <- 1
LEEP_num$Q5.8_5[LEEP_num$Q5.8_5==6] <- 1

Make (VR-12)

#Lower PA and MH, lower Score (VR-12)

# Make Q2.4
table(LEEP_num$Q2.4)
## 
##   1   2   3   4   5 
##  26 115 212 139  19
LEEP_num$Q2.4[LEEP_num$Q2.4==1] <- "great"
LEEP_num$Q2.4[LEEP_num$Q2.4==2] <- "lot"
LEEP_num$Q2.4[LEEP_num$Q2.4==3] <- "some"
LEEP_num$Q2.4[LEEP_num$Q2.4==4] <- "lit"
LEEP_num$Q2.4[LEEP_num$Q2.4==5] <- "not"

 
LEEP_num$Q2.4[LEEP_num$Q2.4=="great"] <- 5
LEEP_num$Q2.4[LEEP_num$Q2.4=="lot"] <- 4
LEEP_num$Q2.4[LEEP_num$Q2.4=="some"] <-3 
LEEP_num$Q2.4[LEEP_num$Q2.4=="lit"] <- 2
LEEP_num$Q2.4[LEEP_num$Q2.4=="not"] <- 1
table(LEEP_num$Q2.4)
## 
##   1   2   3   4   5 
##  19 139 212 115  26
# Make Q2.6 Series
table(LEEP_num$Q2.6_1)
## 
##   1   2   3   4   5 
## 105 156 139  78  33
LEEP_num$Q2.6_1[LEEP_num$Q2.6_1==1] <- "great"
LEEP_num$Q2.6_1[LEEP_num$Q2.6_1==2] <- "lot"
LEEP_num$Q2.6_1[LEEP_num$Q2.6_1==3] <- "some"
LEEP_num$Q2.6_1[LEEP_num$Q2.6_1==4] <- "lit"
LEEP_num$Q2.6_1[LEEP_num$Q2.6_1==5] <- "not"

 
LEEP_num$Q2.6_1[LEEP_num$Q2.6_1=="great"] <- 5
LEEP_num$Q2.6_1[LEEP_num$Q2.6_1=="lot"] <- 4
LEEP_num$Q2.6_1[LEEP_num$Q2.6_1=="some"] <-3 
LEEP_num$Q2.6_1[LEEP_num$Q2.6_1=="lit"] <- 2
LEEP_num$Q2.6_1[LEEP_num$Q2.6_1=="not"] <- 1
table(LEEP_num$Q2.6_1)
## 
##   1   2   3   4   5 
##  33  78 139 156 105
table(LEEP_num$Q2.6_2)
## 
##   1   2   3   4   5 
## 136 152 124  62  37
LEEP_num$Q2.6_2[LEEP_num$Q2.6_2==1] <- "great"
LEEP_num$Q2.6_2[LEEP_num$Q2.6_2==2] <- "lot"
LEEP_num$Q2.6_2[LEEP_num$Q2.6_2==3] <- "some"
LEEP_num$Q2.6_2[LEEP_num$Q2.6_2==4] <- "lit"
LEEP_num$Q2.6_2[LEEP_num$Q2.6_2==5] <- "not"

 
LEEP_num$Q2.6_2[LEEP_num$Q2.6_2=="great"] <- 5
LEEP_num$Q2.6_2[LEEP_num$Q2.6_2=="lot"] <- 4
LEEP_num$Q2.6_2[LEEP_num$Q2.6_2=="some"] <-3 
LEEP_num$Q2.6_2[LEEP_num$Q2.6_2=="lit"] <- 2
LEEP_num$Q2.6_2[LEEP_num$Q2.6_2=="not"] <- 1
table(LEEP_num$Q2.6_2)
## 
##   1   2   3   4   5 
##  37  62 124 152 136
# Make Q2.7 series
table(LEEP_num$Q2.7_1)
## 
##   1   2   3   4   5 
## 103 132 141  86  49
LEEP_num$Q2.7_1[LEEP_num$Q2.7_1==1] <- "great"
LEEP_num$Q2.7_1[LEEP_num$Q2.7_1==2] <- "lot"
LEEP_num$Q2.7_1[LEEP_num$Q2.7_1==3] <- "some"
LEEP_num$Q2.7_1[LEEP_num$Q2.7_1==4] <- "lit"
LEEP_num$Q2.7_1[LEEP_num$Q2.7_1==5] <- "not"

 
LEEP_num$Q2.7_1[LEEP_num$Q2.7_1=="great"] <- 5
LEEP_num$Q2.7_1[LEEP_num$Q2.7_1=="lot"] <- 4
LEEP_num$Q2.7_1[LEEP_num$Q2.7_1=="some"] <-3 
LEEP_num$Q2.7_1[LEEP_num$Q2.7_1=="lit"] <- 2
LEEP_num$Q2.7_1[LEEP_num$Q2.7_1=="not"] <- 1
table(LEEP_num$Q2.7_1)
## 
##   1   2   3   4   5 
##  49  86 141 132 103
table(LEEP_num$Q2.7_2)
## 
##   1   2   3   4   5 
## 130 123 140  80  38
LEEP_num$Q2.7_2[LEEP_num$Q2.7_2==1] <- "great"
LEEP_num$Q2.7_2[LEEP_num$Q2.7_2==2] <- "lot"
LEEP_num$Q2.7_2[LEEP_num$Q2.7_2==3] <- "some"
LEEP_num$Q2.7_2[LEEP_num$Q2.7_2==4] <- "lit"
LEEP_num$Q2.7_2[LEEP_num$Q2.7_2==5] <- "not"

 
LEEP_num$Q2.7_2[LEEP_num$Q2.7_2=="great"] <- 5
LEEP_num$Q2.7_2[LEEP_num$Q2.7_2=="lot"] <- 4
LEEP_num$Q2.7_2[LEEP_num$Q2.7_2=="some"] <-3 
LEEP_num$Q2.7_2[LEEP_num$Q2.7_2=="lit"] <- 2
LEEP_num$Q2.7_2[LEEP_num$Q2.7_2=="not"] <- 1
table(LEEP_num$Q2.7_2)
## 
##   1   2   3   4   5 
##  38  80 140 123 130
# Make Q 2.8
table(LEEP_num$Q2.8)
## 
##   1   2   3   4   5 
##  80 159 147  88  37
LEEP_num$Q2.8[LEEP_num$Q2.8==1] <- "great"
LEEP_num$Q2.8[LEEP_num$Q2.8==2] <- "lot"
LEEP_num$Q2.8[LEEP_num$Q2.8==3] <- "some"
LEEP_num$Q2.8[LEEP_num$Q2.8==4] <- "lit"
LEEP_num$Q2.8[LEEP_num$Q2.8==5] <- "not"

 
LEEP_num$Q2.8[LEEP_num$Q2.8=="great"] <- 5
LEEP_num$Q2.8[LEEP_num$Q2.8=="lot"] <- 4
LEEP_num$Q2.8[LEEP_num$Q2.8=="some"] <-3 
LEEP_num$Q2.8[LEEP_num$Q2.8=="lit"] <- 2
LEEP_num$Q2.8[LEEP_num$Q2.8=="not"] <- 1
table(LEEP_num$Q2.8)
## 
##   1   2   3   4   5 
##  37  88 147 159  80
# Make Q2.11
table(LEEP_num$Q2.11)
## 
##   1   2   3   4   5 
##  35 121 175 146  34
LEEP_num$Q2.11[LEEP_num$Q2.11==1] <- "great"
LEEP_num$Q2.11[LEEP_num$Q2.11==2] <- "lot"
LEEP_num$Q2.11[LEEP_num$Q2.11==3] <- "some"
LEEP_num$Q2.11[LEEP_num$Q2.11==4] <- "lit"
LEEP_num$Q2.11[LEEP_num$Q2.11==5] <- "not"

 
LEEP_num$Q2.11[LEEP_num$Q2.11=="great"] <- 5
LEEP_num$Q2.11[LEEP_num$Q2.11=="lot"] <- 4
LEEP_num$Q2.11[LEEP_num$Q2.11=="some"] <-3 
LEEP_num$Q2.11[LEEP_num$Q2.11=="lit"] <- 2
LEEP_num$Q2.11[LEEP_num$Q2.11=="not"] <- 1
table(LEEP_num$Q2.11)
## 
##   1   2   3   4   5 
##  34 146 175 121  35
# Make q2.12
table(LEEP_num$Q2.12)
## 
##   1   2   3   4   5 
##  49 101 145 152  64
LEEP_num$Q2.12[LEEP_num$Q2.12==1] <- "great"
LEEP_num$Q2.12[LEEP_num$Q2.12==2] <- "lot"
LEEP_num$Q2.12[LEEP_num$Q2.12==3] <- "some"
LEEP_num$Q2.12[LEEP_num$Q2.12==4] <- "lit"
LEEP_num$Q2.12[LEEP_num$Q2.12==5] <- "not"

 
LEEP_num$Q2.12[LEEP_num$Q2.12=="great"] <- 5
LEEP_num$Q2.12[LEEP_num$Q2.12=="lot"] <- 4
LEEP_num$Q2.12[LEEP_num$Q2.12=="some"] <-3 
LEEP_num$Q2.12[LEEP_num$Q2.12=="lit"] <- 2
LEEP_num$Q2.12[LEEP_num$Q2.12=="not"] <- 1
table(LEEP_num$Q2.12)
## 
##   1   2   3   4   5 
##  64 152 145 101  49
#Coding Q8.6 (Higher score means higher financial problems )
table(LEEP_num$Q8.6)
## 
##   1   2   3   4   5   6 
##  94 183 107 115   5   7
LEEP_num$Q8.6[LEEP_num$Q8.6==5] <- 0
LEEP_num$Q8.6[LEEP_num$Q8.6==6] <- 0
table(LEEP_num$Q8.6)
## 
##   0   1   2   3   4 
##  12  94 183 107 115
LEEP_num<-LEEP_num %>%  mutate(across(starts_with("Q8.5"), ~replace(., . ==  4 , 0))) 

Making scales

LEEP_num[] <- lapply(LEEP_num, function(x) as.numeric(as.character(x)))
# Making Scales
LEEP_num$SUM_QOLIE10 = rowSums(LEEP_num[ , c("Q5.7", "Q5.4" ,"Q2.9_2","Q2.9_3","Q5.8_1","Q5.8_2","Q5.8_3","Q5.8_4","Q5.8_5","Q5.5","Q5.6")], na.rm = T)

LEEP_num$sum_q_7 = rowSums(LEEP_num[ , c("Q7.4_1",  "Q7.4_2",   "Q7.4_3",   "Q7.4_4",   "Q7.4_5",   "Q7.4_6")], na.rm = T)

LEEP_num$sum_VR12 = rowSums(LEEP_num[ , c("Q2.4",   "Q2.5_1",   "Q2.5_2",   "Q2.6_1",   "Q2.6_2",   "Q2.7_1",   "Q2.7_2",   "Q2.8", "Q2.9_1","Q2.9_2",  "Q2.9_3",   "Q2.10",    "Q2.11",    "Q2.12")], na.rm = T)

LEEP_num$sum_Suicidality = rowSums(LEEP_num[ , c("Q3.3",    "Q3.4", "Q3.5", "Q3.6")], na.rm = T)

LEEP_num$GAD2 = rowSums(LEEP_num[ , c("Q3.2_3","Q3.2_4")], na.rm = T)

LEEP_num$PHQ = rowSums(LEEP_num[ , c("Q3.2_1","Q3.2_2")], na.rm = T)

QOLIE-10-P

LEEP_num_MJ<-LEEP_num %>% 
  filter(Q1.2==1)

LEEP_num_MJ<-LEEP_num_MJ %>% 
  select( SUM_QOLIE10,Q3.7_1, Q3.7_2, Q3.7_3, Q3.7_4, Anxiety, GAD2, PHQ, Q8.5.1_13, Q8.5.1_3, Q8.5.1_5) 

mtcars_new <- LEEP_num_MJ
corrmat_pearson <- cor(mtcars_new)
corrmat_pearson
##              SUM_QOLIE10      Q3.7_1      Q3.7_2      Q3.7_3      Q3.7_4
## SUM_QOLIE10  1.000000000 -0.03777036 -0.24801887 -0.17435525 -0.09137688
## Q3.7_1      -0.037770357  1.00000000  0.45624045  0.34948447  0.29847238
## Q3.7_2      -0.248018870  0.45624045  1.00000000  0.54699849  0.48858801
## Q3.7_3      -0.174355246  0.34948447  0.54699849  1.00000000  0.59025983
## Q3.7_4      -0.091376877  0.29847238  0.48858801  0.59025983  1.00000000
## Anxiety      0.239739176 -0.02576314 -0.09185685 -0.07040723 -0.06363018
## GAD2         0.499308936 -0.07588104 -0.24727450 -0.19560046 -0.18007422
## PHQ          0.565763174 -0.09310166 -0.31411562 -0.22623916 -0.21387677
## Q8.5.1_13   -0.009808814  0.08798042  0.07380498  0.05745986 -0.03699700
## Q8.5.1_3     0.108060286 -0.07641695 -0.19390819 -0.10880885 -0.11977481
## Q8.5.1_5     0.125836203  0.03962111 -0.20046125 -0.20944079 -0.26014210
##                 Anxiety        GAD2         PHQ    Q8.5.1_13    Q8.5.1_3
## SUM_QOLIE10  0.23973918  0.49930894  0.56576317 -0.009808814  0.10806029
## Q3.7_1      -0.02576314 -0.07588104 -0.09310166  0.087980416 -0.07641695
## Q3.7_2      -0.09185685 -0.24727450 -0.31411562  0.073804977 -0.19390819
## Q3.7_3      -0.07040723 -0.19560046 -0.22623916  0.057459862 -0.10880885
## Q3.7_4      -0.06363018 -0.18007422 -0.21387677 -0.036997004 -0.11977481
## Anxiety      1.00000000  0.36239870  0.25536474 -0.002107290  0.20026516
## GAD2         0.36239870  1.00000000  0.72447088  0.017598645  0.16188086
## PHQ          0.25536474  0.72447088  1.00000000 -0.081170436  0.10374352
## Q8.5.1_13   -0.00210729  0.01759865 -0.08117044  1.000000000  0.03660788
## Q8.5.1_3     0.20026516  0.16188086  0.10374352  0.036607883  1.00000000
## Q8.5.1_5     0.20452257  0.23506583  0.15592635  0.204288467  0.21523063
##                Q8.5.1_5
## SUM_QOLIE10  0.12583620
## Q3.7_1       0.03962111
## Q3.7_2      -0.20046125
## Q3.7_3      -0.20944079
## Q3.7_4      -0.26014210
## Anxiety      0.20452257
## GAD2         0.23506583
## PHQ          0.15592635
## Q8.5.1_13    0.20428847
## Q8.5.1_3     0.21523063
## Q8.5.1_5     1.00000000
library(reshape)
## 
## Attaching package: 'reshape'
## The following objects are masked from 'package:tidyr':
## 
##     expand, smiths
## The following object is masked from 'package:lubridate':
## 
##     stamp
## The following object is masked from 'package:dplyr':
## 
##     rename
## The following object is masked from 'package:data.table':
## 
##     melt
melted_corrmat_pearson <- melt(corrmat_pearson)
head(melted_corrmat_pearson)
##            X1          X2       value
## 1 SUM_QOLIE10 SUM_QOLIE10  1.00000000
## 2      Q3.7_1 SUM_QOLIE10 -0.03777036
## 3      Q3.7_2 SUM_QOLIE10 -0.24801887
## 4      Q3.7_3 SUM_QOLIE10 -0.17435525
## 5      Q3.7_4 SUM_QOLIE10 -0.09137688
## 6     Anxiety SUM_QOLIE10  0.23973918
ggplot(melted_corrmat_pearson, aes(x = X1, y = X2, fill = value)) + 
  geom_tile() + 
  labs(x = 'Variables', y = 'Variables') + 
  coord_fixed()

corrmat_pearson_rounded <- round(corrmat_pearson, 2)
melted_corrmat_pearson_rounded <- melt(corrmat_pearson_rounded)

ggplot(melted_corrmat_pearson_rounded, aes(x = X1, y = X2, fill = value)) + 
  labs(title = "QOLIE-10-P") + 
  geom_tile(color = "white") + 
  scale_fill_gradient2(low = "blue", mid = "white", high = "red", midpoint = 0, limit = c(-1,1), 
                      space = "Lab", name = "Correlation coefficient") +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 45, size = 12, hjust = 1, vjust = 1), 
        axis.text.y = element_text(size = 12, hjust = 1, vjust = 0.5),
        axis.title.x = element_blank(), axis.title.y = element_blank(),
        panel.grid.major = element_blank(),
        panel.border = element_blank(),
        panel.background = element_blank(),
        axis.ticks = element_blank()) + 
  geom_text(aes(x = X1, y = X2, label = value), color = "black", size = 4) + 
  coord_fixed()

corrplot(corrmat_pearson, method = "pie")

QOLIBRI: Q.7.4,VR12

##               sum_q_7    sum_VR12      Q3.7_1      Q3.7_2      Q3.7_3
## sum_q_7    1.00000000  0.55014948  0.17182988  0.41899339  0.33017974
## sum_VR12   0.55014948  1.00000000  0.13938980  0.31049824  0.18328731
## Q3.7_1     0.17182988  0.13938980  1.00000000  0.45500188  0.33310011
## Q3.7_2     0.41899339  0.31049824  0.45500188  1.00000000  0.52058398
## Q3.7_3     0.33017974  0.18328731  0.33310011  0.52058398  1.00000000
## Q3.7_4     0.36908410  0.17825260  0.32697436  0.52554985  0.59894840
## Anxiety   -0.25832868 -0.11733665 -0.04786262 -0.13145749 -0.11022345
## GAD2      -0.49556273 -0.52563304 -0.15945161 -0.28221114 -0.19611708
## PHQ       -0.51938678 -0.61741673 -0.19968509 -0.34762890 -0.25819503
## Q8.5.1_13  0.11548290 -0.01038772  0.07162308  0.08107741  0.05078441
## Q8.5.1_3  -0.08013488 -0.07160365 -0.06398517 -0.14143843 -0.12892350
## Q8.5.1_5  -0.26715822 -0.15635920 -0.01111405 -0.21451047 -0.21557255
##                Q3.7_4     Anxiety        GAD2         PHQ   Q8.5.1_13
## sum_q_7    0.36908410 -0.25832868 -0.49556273 -0.51938678  0.11548290
## sum_VR12   0.17825260 -0.11733665 -0.52563304 -0.61741673 -0.01038772
## Q3.7_1     0.32697436 -0.04786262 -0.15945161 -0.19968509  0.07162308
## Q3.7_2     0.52554985 -0.13145749 -0.28221114 -0.34762890  0.08107741
## Q3.7_3     0.59894840 -0.11022345 -0.19611708 -0.25819503  0.05078441
## Q3.7_4     1.00000000 -0.13117832 -0.23192731 -0.26676950  0.06787271
## Anxiety   -0.13117832  1.00000000  0.28739543  0.20710476 -0.01043532
## GAD2      -0.23192731  0.28739543  1.00000000  0.71914012 -0.04093382
## PHQ       -0.26676950  0.20710476  0.71914012  1.00000000 -0.05939215
## Q8.5.1_13  0.06787271 -0.01043532 -0.04093382 -0.05939215  1.00000000
## Q8.5.1_3  -0.13008103  0.09720258  0.13774682  0.12712629  0.08842027
## Q8.5.1_5  -0.25472228  0.18410621  0.21472343  0.17943953  0.19957038
##              Q8.5.1_3    Q8.5.1_5
## sum_q_7   -0.08013488 -0.26715822
## sum_VR12  -0.07160365 -0.15635920
## Q3.7_1    -0.06398517 -0.01111405
## Q3.7_2    -0.14143843 -0.21451047
## Q3.7_3    -0.12892350 -0.21557255
## Q3.7_4    -0.13008103 -0.25472228
## Anxiety    0.09720258  0.18410621
## GAD2       0.13774682  0.21472343
## PHQ        0.12712629  0.17943953
## Q8.5.1_13  0.08842027  0.19957038
## Q8.5.1_3   1.00000000  0.29022507
## Q8.5.1_5   0.29022507  1.00000000
##         X1      X2     value
## 1  sum_q_7 sum_q_7 1.0000000
## 2 sum_VR12 sum_q_7 0.5501495
## 3   Q3.7_1 sum_q_7 0.1718299
## 4   Q3.7_2 sum_q_7 0.4189934
## 5   Q3.7_3 sum_q_7 0.3301797
## 6   Q3.7_4 sum_q_7 0.3690841

PTSD, suicidality, COVID item - sense of control (Epilepsy)

##               Q8.5.1_1     Q8.5.1_2    Q8.5.1_3    Q8.5.1_4     Q8.5.1_5
## Q8.5.1_1   1.000000000  0.523250769  0.21527730  0.16362118  0.113750678
## Q8.5.1_2   0.523250769  1.000000000  0.14008584  0.17801509  0.250703222
## Q8.5.1_3   0.215277297  0.140085839  1.00000000  0.34923365  0.222670692
## Q8.5.1_4   0.163621177  0.178015089  0.34923365  1.00000000  0.498607338
## Q8.5.1_5   0.113750678  0.250703222  0.22267069  0.49860734  1.000000000
## Q8.5.1_6   0.180692346  0.291621216  0.07537155  0.14035209  0.298180098
## Q8.5.1_7   0.181334421  0.202283810  0.01379031  0.13517076  0.160008536
## Q8.5.1_8   0.214252608  0.106842049  0.22848725  0.35410500  0.440032614
## Q8.5.1_9   0.332625751  0.224730579  0.13392146  0.01340932  0.007417689
## Q8.5.1_10  0.122053424  0.066054636  0.12574851  0.24799971  0.394117019
## Q8.5.1_11  0.206621644  0.245254844  0.06623558  0.12649065  0.170596994
## Q8.5.1_12  0.278586408  0.236060252  0.07936943  0.15809724  0.154945549
## Q8.5.1_13  0.250329844  0.311195586  0.04626153  0.18300017  0.197250111
## Q8.5.1_14  0.214973235  0.317497544  0.11469347  0.11948668  0.046862188
## Q8.5.1_15  0.189560511  0.217716630  0.11274370  0.38169713  0.462391915
## Q8.5.1_16  0.288568545  0.134973173  0.41432195  0.23723294  0.177913487
## Q8.5.1_17  0.096203368  0.201058609  0.18829653  0.44944481  0.690497489
## Q8.5.1_18  0.168076510  0.164654833  0.15652701  0.42368476  0.374369236
## Q8.5.1_19  0.172351603  0.169670650  0.08469471  0.01360959  0.050248774
## Q8.5.1_20  0.299681943  0.362592573  0.03280798  0.14992358  0.109815390
## Q8.5.1_21  0.503887428  0.246933443  0.15696455  0.15253526  0.142394469
## Q3.3      -0.023472402  0.063086098 -0.04570131 -0.04729844 -0.058091742
## Q3.4       0.005726016 -0.045742400  0.05261358  0.05131785  0.056664881
## Q3.5      -0.010473943  0.010682810 -0.12346194 -0.08304671 -0.052563702
## Q3.6      -0.029497360 -0.039019365  0.14724601  0.12246892  0.099356322
## Q153_1     0.093958423 -0.018050568  0.12633273  0.18555607  0.161463672
## Q153_2     0.094291273  0.001991626  0.04720026  0.23562974  0.234843920
## Q153_3     0.184525179  0.080020751  0.09135124  0.16023510  0.172175435
## Q153_4     0.130570247  0.022535119  0.10477683  0.13394689  0.214380118
##               Q8.5.1_6    Q8.5.1_7    Q8.5.1_8     Q8.5.1_9   Q8.5.1_10
## Q8.5.1_1   0.180692346  0.18133442  0.21425261  0.332625751  0.12205342
## Q8.5.1_2   0.291621216  0.20228381  0.10684205  0.224730579  0.06605464
## Q8.5.1_3   0.075371547  0.01379031  0.22848725  0.133921462  0.12574851
## Q8.5.1_4   0.140352085  0.13517076  0.35410500  0.013409317  0.24799971
## Q8.5.1_5   0.298180098  0.16000854  0.44003261  0.007417689  0.39411702
## Q8.5.1_6   1.000000000  0.35221962  0.23405741  0.138114846  0.19978779
## Q8.5.1_7   0.352219616  1.00000000  0.18727043  0.223402136  0.17641852
## Q8.5.1_8   0.234057414  0.18727043  1.00000000  0.095216683  0.48274484
## Q8.5.1_9   0.138114846  0.22340214  0.09521668  1.000000000  0.12257055
## Q8.5.1_10  0.199787792  0.17641852  0.48274484  0.122570546  1.00000000
## Q8.5.1_11  0.346813482  0.28474884  0.20902015  0.197460288  0.21569122
## Q8.5.1_12  0.294165839  0.32493103  0.14965530  0.289665926  0.24162492
## Q8.5.1_13  0.251073290  0.35525682  0.23697224  0.125565815  0.13926949
## Q8.5.1_14  0.300603341  0.27835897  0.18661414  0.307397904  0.23789564
## Q8.5.1_15  0.207793385  0.23341080  0.37919276 -0.013080573  0.32657349
## Q8.5.1_16  0.047256726  0.04421898  0.15166981  0.200695946  0.11987181
## Q8.5.1_17  0.161923018  0.13042890  0.39442929 -0.078772184  0.37474543
## Q8.5.1_18  0.180851750  0.12668900  0.28730992 -0.009674367  0.42070427
## Q8.5.1_19  0.305795472  0.26891618  0.04182053  0.036198760  0.11254138
## Q8.5.1_20  0.201361137  0.32072294  0.09216616  0.208013345  0.18831697
## Q8.5.1_21  0.166487170  0.26356983  0.21385004  0.263695153  0.12187165
## Q3.3       0.002397319  0.09889684 -0.11934824  0.054552383 -0.17257923
## Q3.4      -0.010994688 -0.08070880  0.07946883 -0.129139914  0.13347196
## Q3.5      -0.040200518  0.05561297 -0.09101718 -0.016861101 -0.04697539
## Q3.6       0.019383919 -0.02729133  0.10604606  0.011611304  0.02041993
## Q153_1     0.037812549  0.01590507  0.18928987  0.010696473  0.17910407
## Q153_2     0.002028117  0.14191108  0.20009516  0.062569944  0.16970859
## Q153_3     0.031417282  0.12950822  0.13271659  0.122756679  0.12703656
## Q153_4     0.024996480  0.06254530  0.22085544  0.099009952  0.13563988
##              Q8.5.1_11    Q8.5.1_12   Q8.5.1_13    Q8.5.1_14   Q8.5.1_15
## Q8.5.1_1   0.206621644  0.278586408  0.25032984  0.214973235  0.18956051
## Q8.5.1_2   0.245254844  0.236060252  0.31119559  0.317497544  0.21771663
## Q8.5.1_3   0.066235584  0.079369433  0.04626153  0.114693471  0.11274370
## Q8.5.1_4   0.126490647  0.158097236  0.18300017  0.119486680  0.38169713
## Q8.5.1_5   0.170596994  0.154945549  0.19725011  0.046862188  0.46239191
## Q8.5.1_6   0.346813482  0.294165839  0.25107329  0.300603341  0.20779338
## Q8.5.1_7   0.284748838  0.324931028  0.35525682  0.278358974  0.23341080
## Q8.5.1_8   0.209020155  0.149655302  0.23697224  0.186614137  0.37919276
## Q8.5.1_9   0.197460288  0.289665926  0.12556582  0.307397904 -0.01308057
## Q8.5.1_10  0.215691224  0.241624915  0.13926949  0.237895644  0.32657349
## Q8.5.1_11  1.000000000  0.493037224  0.28862863  0.305527300  0.28586922
## Q8.5.1_12  0.493037224  1.000000000  0.27591862  0.301623667  0.25823537
## Q8.5.1_13  0.288628629  0.275918620  1.00000000  0.285271183  0.30961081
## Q8.5.1_14  0.305527300  0.301623667  0.28527118  1.000000000  0.21219281
## Q8.5.1_15  0.285869220  0.258235368  0.30961081  0.212192812  1.00000000
## Q8.5.1_16 -0.020812051  0.054519169  0.04340008  0.061194785  0.11063650
## Q8.5.1_17  0.179934649  0.118509476  0.23006892  0.081731650  0.53275672
## Q8.5.1_18  0.147995174  0.176307718  0.25696614  0.178550130  0.43016189
## Q8.5.1_19  0.318639027  0.227915585  0.24076317  0.232156731  0.21954956
## Q8.5.1_20  0.294891371  0.230965181  0.36188657  0.400870775  0.27603529
## Q8.5.1_21  0.219773202  0.240193607  0.26782196  0.253220525  0.28986506
## Q3.3      -0.067678853 -0.083951807 -0.00846070 -0.014166749 -0.13558780
## Q3.4       0.009244803  0.052801654  0.01555972 -0.009617189  0.12735228
## Q3.5      -0.009155049 -0.017015319 -0.01162590 -0.052321592 -0.03942040
## Q3.6      -0.052777628  0.003611273  0.02586092  0.026493365  0.07038540
## Q153_1    -0.002426531  0.074306254 -0.04663739 -0.004522094  0.10516228
## Q153_2     0.063288674  0.094301115  0.02203836 -0.013125643  0.14497341
## Q153_3     0.112003039  0.189828935 -0.02046163  0.074073730  0.14012649
## Q153_4     0.089342155  0.059167589 -0.01885181  0.005143512  0.06678737
##             Q8.5.1_16   Q8.5.1_17    Q8.5.1_18    Q8.5.1_19   Q8.5.1_20
## Q8.5.1_1   0.28856855  0.09620337  0.168076510  0.172351603  0.29968194
## Q8.5.1_2   0.13497317  0.20105861  0.164654833  0.169670650  0.36259257
## Q8.5.1_3   0.41432195  0.18829653  0.156527011  0.084694708  0.03280798
## Q8.5.1_4   0.23723294  0.44944481  0.423684757  0.013609594  0.14992358
## Q8.5.1_5   0.17791349  0.69049749  0.374369236  0.050248774  0.10981539
## Q8.5.1_6   0.04725673  0.16192302  0.180851750  0.305795472  0.20136114
## Q8.5.1_7   0.04421898  0.13042890  0.126689003  0.268916175  0.32072294
## Q8.5.1_8   0.15166981  0.39442929  0.287309919  0.041820529  0.09216616
## Q8.5.1_9   0.20069595 -0.07877218 -0.009674367  0.036198760  0.20801334
## Q8.5.1_10  0.11987181  0.37474543  0.420704266  0.112541376  0.18831697
## Q8.5.1_11 -0.02081205  0.17993465  0.147995174  0.318639027  0.29489137
## Q8.5.1_12  0.05451917  0.11850948  0.176307718  0.227915585  0.23096518
## Q8.5.1_13  0.04340008  0.23006892  0.256966139  0.240763167  0.36188657
## Q8.5.1_14  0.06119479  0.08173165  0.178550130  0.232156731  0.40087078
## Q8.5.1_15  0.11063650  0.53275672  0.430161886  0.219549559  0.27603529
## Q8.5.1_16  1.00000000  0.22915412  0.186314640  0.025495751  0.08232234
## Q8.5.1_17  0.22915412  1.00000000  0.516878431  0.149974322  0.16965813
## Q8.5.1_18  0.18631464  0.51687843  1.000000000  0.209826350  0.24602742
## Q8.5.1_19  0.02549575  0.14997432  0.209826350  1.000000000  0.23180522
## Q8.5.1_20  0.08232234  0.16965813  0.246027423  0.231805220  1.00000000
## Q8.5.1_21  0.23272204  0.17549782  0.215812265  0.147384543  0.46169966
## Q3.3      -0.06402880 -0.09031030 -0.212024945 -0.046295483 -0.03273828
## Q3.4       0.05857729  0.10958441  0.204928309  0.064739363  0.02991704
## Q3.5      -0.17547253 -0.06590821 -0.234463938 -0.019309624  0.08988186
## Q3.6       0.20634667  0.12983437  0.246839157 -0.003345144 -0.09102585
## Q153_1     0.21547786  0.13435144  0.187152995 -0.023222856 -0.05609896
## Q153_2     0.14678663  0.22165511  0.176142443 -0.028313445 -0.02036590
## Q153_3     0.24167382  0.17525567  0.135833111  0.038632861 -0.04183044
## Q153_4     0.29995922  0.17522925  0.146321962 -0.055401387 -0.03513301
##             Q8.5.1_21         Q3.3         Q3.4         Q3.5         Q3.6
## Q8.5.1_1   0.50388743 -0.023472402  0.005726016 -0.010473943 -0.029497360
## Q8.5.1_2   0.24693344  0.063086098 -0.045742400  0.010682810 -0.039019365
## Q8.5.1_3   0.15696455 -0.045701309  0.052613583 -0.123461936  0.147246014
## Q8.5.1_4   0.15253526 -0.047298439  0.051317852 -0.083046709  0.122468919
## Q8.5.1_5   0.14239447 -0.058091742  0.056664881 -0.052563702  0.099356322
## Q8.5.1_6   0.16648717  0.002397319 -0.010994688 -0.040200518  0.019383919
## Q8.5.1_7   0.26356983  0.098896837 -0.080708803  0.055612969 -0.027291329
## Q8.5.1_8   0.21385004 -0.119348242  0.079468834 -0.091017180  0.106046058
## Q8.5.1_9   0.26369515  0.054552383 -0.129139914 -0.016861101  0.011611304
## Q8.5.1_10  0.12187165 -0.172579225  0.133471956 -0.046975392  0.020419929
## Q8.5.1_11  0.21977320 -0.067678853  0.009244803 -0.009155049 -0.052777628
## Q8.5.1_12  0.24019361 -0.083951807  0.052801654 -0.017015319  0.003611273
## Q8.5.1_13  0.26782196 -0.008460700  0.015559719 -0.011625901  0.025860920
## Q8.5.1_14  0.25322052 -0.014166749 -0.009617189 -0.052321592  0.026493365
## Q8.5.1_15  0.28986506 -0.135587804  0.127352277 -0.039420401  0.070385404
## Q8.5.1_16  0.23272204 -0.064028802  0.058577286 -0.175472531  0.206346671
## Q8.5.1_17  0.17549782 -0.090310301  0.109584410 -0.065908206  0.129834365
## Q8.5.1_18  0.21581226 -0.212024945  0.204928309 -0.234463938  0.246839157
## Q8.5.1_19  0.14738454 -0.046295483  0.064739363 -0.019309624 -0.003345144
## Q8.5.1_20  0.46169966 -0.032738281  0.029917040  0.089881861 -0.091025854
## Q8.5.1_21  1.00000000 -0.131519651  0.101058296 -0.077560153  0.059208939
## Q3.3      -0.13151965  1.000000000 -0.826691201  0.404275960 -0.362176676
## Q3.4       0.10105830 -0.826691201  1.000000000 -0.351304308  0.388972176
## Q3.5      -0.07756015  0.404275960 -0.351304308  1.000000000 -0.887575089
## Q3.6       0.05920894 -0.362176676  0.388972176 -0.887575089  1.000000000
## Q153_1     0.09867453 -0.249299793  0.249802830 -0.220361050  0.247327932
## Q153_2     0.13191917 -0.165431824  0.177614088 -0.138729625  0.208341304
## Q153_3     0.13405102 -0.150048572  0.132364807 -0.162000666  0.237001697
## Q153_4     0.17252225 -0.217040239  0.183485797 -0.131102029  0.168431712
##                 Q153_1       Q153_2      Q153_3       Q153_4
## Q8.5.1_1   0.093958423  0.094291273  0.18452518  0.130570247
## Q8.5.1_2  -0.018050568  0.001991626  0.08002075  0.022535119
## Q8.5.1_3   0.126332727  0.047200262  0.09135124  0.104776832
## Q8.5.1_4   0.185556071  0.235629735  0.16023510  0.133946892
## Q8.5.1_5   0.161463672  0.234843920  0.17217543  0.214380118
## Q8.5.1_6   0.037812549  0.002028117  0.03141728  0.024996480
## Q8.5.1_7   0.015905073  0.141911084  0.12950822  0.062545296
## Q8.5.1_8   0.189289875  0.200095159  0.13271659  0.220855443
## Q8.5.1_9   0.010696473  0.062569944  0.12275668  0.099009952
## Q8.5.1_10  0.179104066  0.169708591  0.12703656  0.135639882
## Q8.5.1_11 -0.002426531  0.063288674  0.11200304  0.089342155
## Q8.5.1_12  0.074306254  0.094301115  0.18982893  0.059167589
## Q8.5.1_13 -0.046637386  0.022038363 -0.02046163 -0.018851810
## Q8.5.1_14 -0.004522094 -0.013125643  0.07407373  0.005143512
## Q8.5.1_15  0.105162279  0.144973410  0.14012649  0.066787365
## Q8.5.1_16  0.215477862  0.146786630  0.24167382  0.299959220
## Q8.5.1_17  0.134351444  0.221655113  0.17525567  0.175229254
## Q8.5.1_18  0.187152995  0.176142443  0.13583311  0.146321962
## Q8.5.1_19 -0.023222856 -0.028313445  0.03863286 -0.055401387
## Q8.5.1_20 -0.056098960 -0.020365901 -0.04183044 -0.035133013
## Q8.5.1_21  0.098674530  0.131919170  0.13405102  0.172522251
## Q3.3      -0.249299793 -0.165431824 -0.15004857 -0.217040239
## Q3.4       0.249802830  0.177614088  0.13236481  0.183485797
## Q3.5      -0.220361050 -0.138729625 -0.16200067 -0.131102029
## Q3.6       0.247327932  0.208341304  0.23700170  0.168431712
## Q153_1     1.000000000  0.675623145  0.57125241  0.627458798
## Q153_2     0.675623145  1.000000000  0.62038410  0.611810317
## Q153_3     0.571252409  0.620384101  1.00000000  0.610132707
## Q153_4     0.627458798  0.611810317  0.61013271  1.000000000
##         X1       X2     value
## 1 Q8.5.1_1 Q8.5.1_1 1.0000000
## 2 Q8.5.1_2 Q8.5.1_1 0.5232508
## 3 Q8.5.1_3 Q8.5.1_1 0.2152773
## 4 Q8.5.1_4 Q8.5.1_1 0.1636212
## 5 Q8.5.1_5 Q8.5.1_1 0.1137507
## 6 Q8.5.1_6 Q8.5.1_1 0.1806923

PTSD, suicidality, COVID item - sense of control (Caregivers)

##              Q8.5.1_1    Q8.5.1_2    Q8.5.1_3    Q8.5.1_4    Q8.5.1_5
## Q8.5.1_1   1.00000000  0.48309291  0.16328221  0.18474798  0.22877684
## Q8.5.1_2   0.48309291  1.00000000  0.15790952  0.14282666  0.17972693
## Q8.5.1_3   0.16328221  0.15790952  1.00000000  0.35461117  0.35375413
## Q8.5.1_4   0.18474798  0.14282666  0.35461117  1.00000000  0.60226296
## Q8.5.1_5   0.22877684  0.17972693  0.35375413  0.60226296  1.00000000
## Q8.5.1_6   0.29476593  0.19503546  0.10909093  0.10159640  0.09962872
## Q8.5.1_7   0.19056710  0.24485991  0.18044928  0.13643311  0.14642226
## Q8.5.1_8   0.27850754  0.20171999  0.19376611  0.14144097  0.11956255
## Q8.5.1_9   0.21300769  0.09986245  0.21052675  0.30427113  0.33006745
## Q8.5.1_10  0.24387409  0.18955213  0.21574045  0.37431033  0.40306116
## Q8.5.1_11  0.22679984  0.16476943  0.12018718  0.03834627  0.11649474
## Q8.5.1_12  0.08657517  0.12234531  0.20481156  0.03276753  0.11584871
## Q8.5.1_13  0.35724508  0.29921679  0.11783319  0.14476429  0.19669556
## Q8.5.1_14  0.32070393  0.27233258  0.09908441  0.07635447  0.09504355
## Q8.5.1_15  0.15904244  0.18525939  0.26130209  0.44000048  0.48453413
## Q8.5.1_16  0.20819959  0.08558059  0.32359124  0.33134704  0.28840802
## Q8.5.1_17  0.18020210  0.11704370  0.19306071  0.39833628  0.44626431
## Q8.5.1_18  0.12572149  0.23952819  0.23493192  0.39653897  0.35242366
## Q8.5.1_19  0.28628782  0.22290243  0.13217963  0.09190830  0.11127130
## Q8.5.1_20  0.33250058  0.26961212  0.12638768  0.12125792  0.16960437
## Q8.5.1_21  0.48833850  0.37218518  0.16835238  0.13762845  0.19328102
## Q3.3      -0.03997953  0.10255449 -0.09885233 -0.09261128 -0.05191173
## Q3.4       0.07540732 -0.06830659  0.10157410  0.10484807  0.12983531
## Q3.5       0.02732426  0.05638382 -0.05559532 -0.07421160 -0.07760598
## Q3.6       0.02071055 -0.05947327  0.07337232  0.10176320  0.16397375
## Q153_1     0.07047872  0.07984203  0.02458213  0.25767628  0.19650517
## Q153_2     0.07002717  0.06148956  0.09222120  0.22213967  0.20788062
## Q153_3     0.07825934 -0.04842568  0.05691201  0.15132310  0.19207342
## Q153_4     0.03356812 -0.06177265  0.13352755  0.22665537  0.22215285
##                Q8.5.1_6    Q8.5.1_7     Q8.5.1_8    Q8.5.1_9    Q8.5.1_10
## Q8.5.1_1   0.2947659304  0.19056710  0.278507537  0.21300769  0.243874089
## Q8.5.1_2   0.1950354560  0.24485991  0.201719990  0.09986245  0.189552129
## Q8.5.1_3   0.1090909270  0.18044928  0.193766115  0.21052675  0.215740448
## Q8.5.1_4   0.1015963998  0.13643311  0.141440967  0.30427113  0.374310327
## Q8.5.1_5   0.0996287240  0.14642226  0.119562548  0.33006745  0.403061163
## Q8.5.1_6   1.0000000000  0.26319023  0.182247368  0.14473907  0.125077606
## Q8.5.1_7   0.2631902349  1.00000000  0.167435658  0.13221334  0.124764337
## Q8.5.1_8   0.1822473682  0.16743566  1.000000000  0.37978190  0.238483929
## Q8.5.1_9   0.1447390663  0.13221334  0.379781902  1.00000000  0.489323668
## Q8.5.1_10  0.1250776055  0.12476434  0.238483929  0.48932367  1.000000000
## Q8.5.1_11  0.3741442082  0.19546297  0.076574425  0.09846938  0.104069385
## Q8.5.1_12  0.1880060998  0.28940343  0.144624457  0.09985314  0.089104409
## Q8.5.1_13  0.2815854268  0.32668286  0.211462908  0.18828126  0.221384218
## Q8.5.1_14  0.3123400317  0.28373258  0.197441542  0.03586610  0.001540932
## Q8.5.1_15  0.1352348303  0.11456154  0.060586805  0.24057392  0.388797114
## Q8.5.1_16  0.0187789105  0.04929298  0.078062261  0.10926490  0.225125651
## Q8.5.1_17  0.1492761709  0.11900348 -0.006964725  0.30287338  0.408440029
## Q8.5.1_18  0.1205388443  0.13721559  0.188350503  0.33394375  0.378435996
## Q8.5.1_19  0.3752677464  0.22627513  0.189480046  0.16449272  0.192867354
## Q8.5.1_20  0.3401073706  0.35746279  0.159750222  0.11768465  0.140238775
## Q8.5.1_21  0.2630013848  0.32620152  0.181825951  0.26635874  0.266232261
## Q3.3      -0.0935226220  0.04391875  0.047701362 -0.04022045 -0.047829579
## Q3.4       0.0252317345 -0.09142699 -0.035109037  0.07272107  0.076600415
## Q3.5      -0.0537887250  0.01249033  0.092819253 -0.08744676 -0.061498398
## Q3.6       0.0354857717 -0.09675988 -0.049627507  0.06970566  0.102866330
## Q153_1    -0.0008458003 -0.12661700  0.102427325  0.09008231  0.198182147
## Q153_2     0.0055316707 -0.10630897  0.042696407  0.15473432  0.186953944
## Q153_3    -0.0247990430 -0.19418834  0.045437793  0.08872215  0.152450862
## Q153_4    -0.0343909173 -0.08347477  0.020321058  0.08112354  0.103362650
##              Q8.5.1_11    Q8.5.1_12    Q8.5.1_13     Q8.5.1_14   Q8.5.1_15
## Q8.5.1_1   0.226799835  0.086575165  0.357245083  0.3207039335  0.15904244
## Q8.5.1_2   0.164769425  0.122345310  0.299216787  0.2723325821  0.18525939
## Q8.5.1_3   0.120187184  0.204811562  0.117833194  0.0990844056  0.26130209
## Q8.5.1_4   0.038346273  0.032767534  0.144764287  0.0763544687  0.44000048
## Q8.5.1_5   0.116494739  0.115848712  0.196695560  0.0950435493  0.48453413
## Q8.5.1_6   0.374144208  0.188006100  0.281585427  0.3123400317  0.13523483
## Q8.5.1_7   0.195462973  0.289403432  0.326682864  0.2837325839  0.11456154
## Q8.5.1_8   0.076574425  0.144624457  0.211462908  0.1974415420  0.06058680
## Q8.5.1_9   0.098469384  0.099853145  0.188281263  0.0358660962  0.24057392
## Q8.5.1_10  0.104069385  0.089104409  0.221384218  0.0015409323  0.38879711
## Q8.5.1_11  1.000000000  0.393656274  0.276883856  0.3143535672  0.22271976
## Q8.5.1_12  0.393656274  1.000000000  0.199986414  0.1907504321  0.08263051
## Q8.5.1_13  0.276883856  0.199986414  1.000000000  0.3594987885  0.20936928
## Q8.5.1_14  0.314353567  0.190750432  0.359498789  1.0000000000  0.16923740
## Q8.5.1_15  0.222719762  0.082630508  0.209369283  0.1692373979  1.00000000
## Q8.5.1_16 -0.086940068 -0.095307927  0.057873472 -0.0547011219  0.14403481
## Q8.5.1_17  0.140535259  0.006999850  0.168535308  0.0059487074  0.46751175
## Q8.5.1_18  0.089007214  0.204748048  0.129944023  0.0216011337  0.44121977
## Q8.5.1_19  0.320534041  0.174747635  0.247635474  0.3204981503  0.15045396
## Q8.5.1_20  0.300089412  0.197083739  0.382945932  0.4049913337  0.17200628
## Q8.5.1_21  0.214947214  0.191397052  0.383519636  0.2610125986  0.25645800
## Q3.3       0.072740748  0.080159183  0.011692864  0.0567524674 -0.02886682
## Q3.4      -0.053606408 -0.110982433 -0.003517007 -0.0501688569  0.04606065
## Q3.5      -0.011523034  0.011199183  0.044767414 -0.0001247129 -0.04487413
## Q3.6       0.007733446 -0.029869782 -0.054206748  0.0434492172  0.08976896
## Q153_1     0.012479049 -0.086364296 -0.042186768 -0.0278447429  0.11983013
## Q153_2    -0.007486545 -0.002863941 -0.092324462 -0.0947415558  0.12642627
## Q153_3    -0.074755906 -0.065876162 -0.010104119 -0.1347845777  0.07141942
## Q153_4    -0.081551641 -0.012637505 -0.070945800 -0.1251042189  0.10342020
##             Q8.5.1_16    Q8.5.1_17   Q8.5.1_18   Q8.5.1_19    Q8.5.1_20
## Q8.5.1_1   0.20819959  0.180202100  0.12572149  0.28628782  0.332500577
## Q8.5.1_2   0.08558059  0.117043701  0.23952819  0.22290243  0.269612119
## Q8.5.1_3   0.32359124  0.193060710  0.23493192  0.13217963  0.126387682
## Q8.5.1_4   0.33134704  0.398336275  0.39653897  0.09190830  0.121257918
## Q8.5.1_5   0.28840802  0.446264313  0.35242366  0.11127130  0.169604366
## Q8.5.1_6   0.01877891  0.149276171  0.12053884  0.37526775  0.340107371
## Q8.5.1_7   0.04929298  0.119003477  0.13721559  0.22627513  0.357462787
## Q8.5.1_8   0.07806226 -0.006964725  0.18835050  0.18948005  0.159750222
## Q8.5.1_9   0.10926490  0.302873380  0.33394375  0.16449272  0.117684645
## Q8.5.1_10  0.22512565  0.408440029  0.37843600  0.19286735  0.140238775
## Q8.5.1_11 -0.08694007  0.140535259  0.08900721  0.32053404  0.300089412
## Q8.5.1_12 -0.09530793  0.006999850  0.20474805  0.17474764  0.197083739
## Q8.5.1_13  0.05787347  0.168535308  0.12994402  0.24763547  0.382945932
## Q8.5.1_14 -0.05470112  0.005948707  0.02160113  0.32049815  0.404991334
## Q8.5.1_15  0.14403481  0.467511752  0.44121977  0.15045396  0.172006276
## Q8.5.1_16  1.00000000  0.263135904  0.18447580  0.05078196  0.051591413
## Q8.5.1_17  0.26313590  1.000000000  0.39132904  0.11410887  0.103417538
## Q8.5.1_18  0.18447580  0.391329036  1.00000000  0.16323104  0.095750798
## Q8.5.1_19  0.05078196  0.114108866  0.16323104  1.00000000  0.330424024
## Q8.5.1_20  0.05159141  0.103417538  0.09575080  0.33042402  1.000000000
## Q8.5.1_21  0.21332468  0.171625989  0.15286955  0.31819830  0.608947165
## Q3.3      -0.14365349 -0.060131344 -0.02007725  0.01107915 -0.033888711
## Q3.4       0.16643057  0.107208689  0.02186744 -0.03472725  0.008851924
## Q3.5      -0.15306393 -0.098355084 -0.14445123  0.07916202 -0.009395180
## Q3.6       0.18522104  0.155140181  0.13455471 -0.09496976  0.042246178
## Q153_1     0.15821699  0.220147625  0.21519759 -0.06510657 -0.019160147
## Q153_2     0.10339613  0.205338510  0.21506449 -0.10947567 -0.088511421
## Q153_3     0.18428470  0.122789291  0.18117264 -0.11989456 -0.078120293
## Q153_4     0.25277938  0.161009229  0.13272952 -0.20461413 -0.109441768
##             Q8.5.1_21        Q3.3         Q3.4          Q3.5         Q3.6
## Q8.5.1_1   0.48833850 -0.03997953  0.075407320  0.0273242621  0.020710546
## Q8.5.1_2   0.37218518  0.10255449 -0.068306587  0.0563838227 -0.059473268
## Q8.5.1_3   0.16835238 -0.09885233  0.101574099 -0.0555953156  0.073372323
## Q8.5.1_4   0.13762845 -0.09261128  0.104848071 -0.0742115955  0.101763202
## Q8.5.1_5   0.19328102 -0.05191173  0.129835307 -0.0776059774  0.163973755
## Q8.5.1_6   0.26300138 -0.09352262  0.025231734 -0.0537887250  0.035485772
## Q8.5.1_7   0.32620152  0.04391875 -0.091426992  0.0124903298 -0.096759882
## Q8.5.1_8   0.18182595  0.04770136 -0.035109037  0.0928192526 -0.049627507
## Q8.5.1_9   0.26635874 -0.04022045  0.072721072 -0.0874467595  0.069705658
## Q8.5.1_10  0.26623226 -0.04782958  0.076600415 -0.0614983984  0.102866330
## Q8.5.1_11  0.21494721  0.07274075 -0.053606408 -0.0115230340  0.007733446
## Q8.5.1_12  0.19139705  0.08015918 -0.110982433  0.0111991834 -0.029869782
## Q8.5.1_13  0.38351964  0.01169286 -0.003517007  0.0447674135 -0.054206748
## Q8.5.1_14  0.26101260  0.05675247 -0.050168857 -0.0001247129  0.043449217
## Q8.5.1_15  0.25645800 -0.02886682  0.046060653 -0.0448741343  0.089768962
## Q8.5.1_16  0.21332468 -0.14365349  0.166430572 -0.1530639304  0.185221041
## Q8.5.1_17  0.17162599 -0.06013134  0.107208689 -0.0983550840  0.155140181
## Q8.5.1_18  0.15286955 -0.02007725  0.021867444 -0.1444512314  0.134554710
## Q8.5.1_19  0.31819830  0.01107915 -0.034727247  0.0791620221 -0.094969760
## Q8.5.1_20  0.60894717 -0.03388871  0.008851924 -0.0093951795  0.042246178
## Q8.5.1_21  1.00000000 -0.06797097  0.069593701 -0.0336564695  0.031741620
## Q3.3      -0.06797097  1.00000000 -0.781193158  0.3986308354 -0.266378310
## Q3.4       0.06959370 -0.78119316  1.000000000 -0.2610839672  0.282771987
## Q3.5      -0.03365647  0.39863084 -0.261083967  1.0000000000 -0.827890240
## Q3.6       0.03174162 -0.26637831  0.282771987 -0.8278902398  1.000000000
## Q153_1     0.01980681 -0.07529644  0.124868026 -0.1863485217  0.249088253
## Q153_2    -0.03597500 -0.06550694  0.094131195 -0.1368654403  0.191359107
## Q153_3     0.01311904 -0.11314541  0.150422043 -0.1381736700  0.222332713
## Q153_4     0.01120924 -0.14377671  0.177805220 -0.1860873141  0.276133584
##                  Q153_1       Q153_2      Q153_3      Q153_4
## Q8.5.1_1   0.0704787167  0.070027171  0.07825934  0.03356812
## Q8.5.1_2   0.0798420291  0.061489563 -0.04842568 -0.06177265
## Q8.5.1_3   0.0245821345  0.092221205  0.05691201  0.13352755
## Q8.5.1_4   0.2576762782  0.222139673  0.15132310  0.22665537
## Q8.5.1_5   0.1965051746  0.207880621  0.19207342  0.22215285
## Q8.5.1_6  -0.0008458003  0.005531671 -0.02479904 -0.03439092
## Q8.5.1_7  -0.1266169951 -0.106308967 -0.19418834 -0.08347477
## Q8.5.1_8   0.1024273253  0.042696407  0.04543779  0.02032106
## Q8.5.1_9   0.0900823073  0.154734321  0.08872215  0.08112354
## Q8.5.1_10  0.1981821470  0.186953944  0.15245086  0.10336265
## Q8.5.1_11  0.0124790491 -0.007486545 -0.07475591 -0.08155164
## Q8.5.1_12 -0.0863642955 -0.002863941 -0.06587616 -0.01263751
## Q8.5.1_13 -0.0421867677 -0.092324462 -0.01010412 -0.07094580
## Q8.5.1_14 -0.0278447429 -0.094741556 -0.13478458 -0.12510422
## Q8.5.1_15  0.1198301348  0.126426273  0.07141942  0.10342020
## Q8.5.1_16  0.1582169903  0.103396135  0.18428470  0.25277938
## Q8.5.1_17  0.2201476254  0.205338510  0.12278929  0.16100923
## Q8.5.1_18  0.2151975875  0.215064485  0.18117264  0.13272952
## Q8.5.1_19 -0.0651065720 -0.109475674 -0.11989456 -0.20461413
## Q8.5.1_20 -0.0191601468 -0.088511421 -0.07812029 -0.10944177
## Q8.5.1_21  0.0198068144 -0.035975002  0.01311904  0.01120924
## Q3.3      -0.0752964357 -0.065506936 -0.11314541 -0.14377671
## Q3.4       0.1248680256  0.094131195  0.15042204  0.17780522
## Q3.5      -0.1863485217 -0.136865440 -0.13817367 -0.18608731
## Q3.6       0.2490882526  0.191359107  0.22233271  0.27613358
## Q153_1     1.0000000000  0.629103251  0.55066851  0.51054211
## Q153_2     0.6291032510  1.000000000  0.61443274  0.57855309
## Q153_3     0.5506685147  0.614432744  1.00000000  0.61206133
## Q153_4     0.5105421145  0.578553089  0.61206133  1.00000000
##         X1       X2     value
## 1 Q8.5.1_1 Q8.5.1_1 1.0000000
## 2 Q8.5.1_2 Q8.5.1_1 0.4830929
## 3 Q8.5.1_3 Q8.5.1_1 0.1632822
## 4 Q8.5.1_4 Q8.5.1_1 0.1847480
## 5 Q8.5.1_5 Q8.5.1_1 0.2287768
## 6 Q8.5.1_6 Q8.5.1_1 0.2947659

Basic correlations between the financial item, COVID items, and resiliency

##               Q8.5.1_1    Q8.5.1_2    Q8.5.1_3    Q8.5.1_4    Q8.5.1_5
## Q8.5.1_1   1.000000000  0.50097273  0.19508852  0.17523456  0.17034466
## Q8.5.1_2   0.500972726  1.00000000  0.14507855  0.15909213  0.21360901
## Q8.5.1_3   0.195088523  0.14507855  1.00000000  0.35353344  0.29022507
## Q8.5.1_4   0.175234564  0.15909213  0.35353344  1.00000000  0.55017816
## Q8.5.1_5   0.170344662  0.21360901  0.29022507  0.55017816  1.00000000
## Q8.5.1_6   0.235123500  0.24321186  0.09340721  0.12173830  0.20314041
## Q8.5.1_7   0.189366113  0.21868120  0.09935684  0.13813620  0.15830490
## Q8.5.1_8   0.204539431  0.15858051  0.15143142  0.19743506  0.21126519
## Q8.5.1_9   0.282086878  0.14681361  0.19143054  0.15181335  0.16522835
## Q8.5.1_10  0.183778465  0.12474270  0.17686961  0.31327191  0.40150162
## Q8.5.1_11  0.215161211  0.20512890  0.09155609  0.08161977  0.14310488
## Q8.5.1_12  0.192533844  0.17720819  0.14721398  0.09902559  0.14090185
## Q8.5.1_13  0.304912894  0.30214092  0.08842027  0.16455627  0.19957038
## Q8.5.1_14  0.266655456  0.29362198  0.10845978  0.09813533  0.07206788
## Q8.5.1_15  0.175810583  0.19978385  0.19018572  0.41241128  0.47396405
## Q8.5.1_16  0.257058741  0.10644696  0.37970303  0.28400219  0.23516427
## Q8.5.1_17  0.137652020  0.15799208  0.19242580  0.42423360  0.57080506
## Q8.5.1_18  0.145994720  0.20314130  0.19384229  0.40883432  0.36135345
## Q8.5.1_19  0.225794359  0.19554659  0.10783879  0.05257307  0.07985038
## Q8.5.1_20  0.310748900  0.31811470  0.07193622  0.13336538  0.13431391
## Q8.5.1_21  0.499106964  0.30058002  0.17275719  0.14859356  0.17275082
## Q3.7_1     0.023054943  0.12140274 -0.06398517 -0.05188616 -0.01111405
## Q3.7_2    -0.030993369 -0.02428285 -0.14143843 -0.16266932 -0.21451047
## Q3.7_3    -0.066643505 -0.04896334 -0.12892350 -0.19779410 -0.21557255
## Q3.7_4    -0.005842651 -0.04811912 -0.13008103 -0.19616322 -0.25472228
## Q8.6       0.034352368 -0.05320177  0.10588830  0.18614063  0.13608940
##               Q8.5.1_6    Q8.5.1_7     Q8.5.1_8     Q8.5.1_9   Q8.5.1_10
## Q8.5.1_1   0.235123500  0.18936611  0.204539431  0.282086878  0.18377847
## Q8.5.1_2   0.243211864  0.21868120  0.158580514  0.146813607  0.12474270
## Q8.5.1_3   0.093407210  0.09935684  0.151431420  0.191430544  0.17686961
## Q8.5.1_4   0.121738296  0.13813620  0.197435056  0.151813353  0.31327191
## Q8.5.1_5   0.203140413  0.15830490  0.211265191  0.165228355  0.40150162
## Q8.5.1_6   1.000000000  0.31082772  0.178684784  0.139571933  0.16395035
## Q8.5.1_7   0.310827719  1.00000000  0.126394771  0.201089021  0.15767036
## Q8.5.1_8   0.178684784  0.12639477  1.000000000  0.081178698  0.28066459
## Q8.5.1_9   0.139571933  0.20108902  0.081178698  1.000000000  0.30095434
## Q8.5.1_10  0.163950346  0.15767036  0.280664588  0.300954344  1.00000000
## Q8.5.1_11  0.360053379  0.24017544  0.124875390  0.139045287  0.15834245
## Q8.5.1_12  0.243553590  0.31328475  0.101021245  0.219340510  0.17255833
## Q8.5.1_13  0.267131454  0.34265141  0.180816914  0.165545305  0.18598773
## Q8.5.1_14  0.306700235  0.28107570  0.168227782  0.175575251  0.11885859
## Q8.5.1_15  0.171513815  0.17738030  0.162775408  0.112416014  0.35984109
## Q8.5.1_16  0.036322043  0.05733540  0.048990884  0.194813331  0.17852663
## Q8.5.1_17  0.156117198  0.12671216  0.138245456  0.101954729  0.39252246
## Q8.5.1_18  0.149847585  0.12987014  0.214956503  0.139658317  0.39650439
## Q8.5.1_19  0.339684825  0.24843310  0.112178998  0.090911535  0.15210942
## Q8.5.1_20  0.266943055  0.33100949  0.140076040  0.137796569  0.15928146
## Q8.5.1_21  0.213229919  0.29948202  0.128596580  0.289634689  0.19941722
## Q3.7_1     0.065831414  0.07050574  0.006396362  0.019383225 -0.02344645
## Q3.7_2     0.035621113  0.09510668 -0.076038874  0.042066107 -0.06396080
## Q3.7_3    -0.013235207  0.05769958 -0.053629871 -0.036443401 -0.13914861
## Q3.7_4     0.006541091  0.09508521 -0.043531152  0.009993602 -0.12987673
## Q8.6      -0.055706920 -0.09272715  0.069852557  0.032392512  0.15060269
##              Q8.5.1_11    Q8.5.1_12   Q8.5.1_13    Q8.5.1_14   Q8.5.1_15
## Q8.5.1_1   0.215161211  0.192533844  0.30491289  0.266655456  0.17581058
## Q8.5.1_2   0.205128898  0.177208192  0.30214092  0.293621982  0.19978385
## Q8.5.1_3   0.091556094  0.147213981  0.08842027  0.108459785  0.19018572
## Q8.5.1_4   0.081619766  0.099025590  0.16455627  0.098135334  0.41241128
## Q8.5.1_5   0.143104878  0.140901850  0.19957038  0.072067882  0.47396405
## Q8.5.1_6   0.360053379  0.243553590  0.26713145  0.306700235  0.17151382
## Q8.5.1_7   0.240175437  0.313284746  0.34265141  0.281075701  0.17738030
## Q8.5.1_8   0.124875390  0.101021245  0.18081691  0.168227782  0.16277541
## Q8.5.1_9   0.139045287  0.219340510  0.16554531  0.175575251  0.11241601
## Q8.5.1_10  0.158342450  0.172558330  0.18598773  0.118858592  0.35984109
## Q8.5.1_11  1.000000000  0.441622376  0.28115248  0.309712021  0.25284125
## Q8.5.1_12  0.441622376  1.000000000  0.24016931  0.247007748  0.17211325
## Q8.5.1_13  0.281152485  0.240169314  1.00000000  0.325342420  0.25736895
## Q8.5.1_14  0.309712021  0.247007748  0.32534242  1.000000000  0.19040996
## Q8.5.1_15  0.252841250  0.172113252  0.25736895  0.190409957  1.00000000
## Q8.5.1_16 -0.053044118 -0.003778701  0.05774640  0.007957903  0.13009637
## Q8.5.1_17  0.159737069  0.065720210  0.19881736  0.043565636  0.49957498
## Q8.5.1_18  0.117689356  0.188687236  0.18774522  0.096272458  0.43522396
## Q8.5.1_19  0.319447381  0.202021884  0.24378474  0.276422666  0.18460511
## Q8.5.1_20  0.297401078  0.208829110  0.36731116  0.400645290  0.22103760
## Q8.5.1_21  0.214370686  0.225270919  0.32939458  0.257352276  0.27498355
## Q3.7_1     0.039314678  0.033677904  0.07162308  0.109396380  0.02080140
## Q3.7_2    -0.004774811  0.039923093  0.08107741  0.131793715 -0.05996816
## Q3.7_3     0.021496801  0.024421191  0.05078441  0.040634489 -0.15509405
## Q3.7_4    -0.031174725  0.012642707  0.06787271  0.061290259 -0.17289382
## Q8.6      -0.095594919 -0.110044696 -0.04544888 -0.051815283  0.07640910
##              Q8.5.1_16   Q8.5.1_17   Q8.5.1_18   Q8.5.1_19   Q8.5.1_20
## Q8.5.1_1   0.257058741  0.13765202  0.14599472  0.22579436  0.31074890
## Q8.5.1_2   0.106446960  0.15799208  0.20314130  0.19554659  0.31811470
## Q8.5.1_3   0.379703027  0.19242580  0.19384229  0.10783879  0.07193622
## Q8.5.1_4   0.284002194  0.42423360  0.40883432  0.05257307  0.13336538
## Q8.5.1_5   0.235164273  0.57080506  0.36135345  0.07985038  0.13431391
## Q8.5.1_6   0.036322043  0.15611720  0.14984759  0.33968482  0.26694305
## Q8.5.1_7   0.057335398  0.12671216  0.12987014  0.24843310  0.33100949
## Q8.5.1_8   0.048990884  0.13824546  0.21495650  0.11217900  0.14007604
## Q8.5.1_9   0.194813331  0.10195473  0.13965832  0.09091154  0.13779657
## Q8.5.1_10  0.178526628  0.39252246  0.39650439  0.15210942  0.15928146
## Q8.5.1_11 -0.053044118  0.15973707  0.11768936  0.31944738  0.29740108
## Q8.5.1_12 -0.003778701  0.06572021  0.18868724  0.20202188  0.20882911
## Q8.5.1_13  0.057746400  0.19881736  0.18774522  0.24378474  0.36731116
## Q8.5.1_14  0.007957903  0.04356564  0.09627246  0.27642267  0.40064529
## Q8.5.1_15  0.130096373  0.49957498  0.43522396  0.18460511  0.22103760
## Q8.5.1_16  1.000000000  0.24651815  0.18159159  0.03778577  0.05978539
## Q8.5.1_17  0.246518146  1.00000000  0.45152200  0.13231306  0.13512476
## Q8.5.1_18  0.181591586  0.45152200  1.00000000  0.18601556  0.17063170
## Q8.5.1_19  0.037785772  0.13231306  0.18601556  1.00000000  0.27865184
## Q8.5.1_20  0.059785385  0.13512476  0.17063170  0.27865184  1.00000000
## Q8.5.1_21  0.236833237  0.17559599  0.18129941  0.22728680  0.51895906
## Q3.7_1    -0.055509851  0.02406959 -0.01182775  0.05553669  0.07483327
## Q3.7_2    -0.129053489 -0.14224931 -0.10850914  0.06259418  0.01817717
## Q3.7_3    -0.125653242 -0.11602179 -0.12684000  0.01204163 -0.03704643
## Q3.7_4    -0.150200506 -0.14668095 -0.15521208  0.01196826 -0.03880961
## Q8.6       0.198953911  0.18751779  0.19184230 -0.07299324 -0.06160385
##              Q8.5.1_21       Q3.7_1       Q3.7_2      Q3.7_3       Q3.7_4
## Q8.5.1_1   0.499106964  0.023054943 -0.030993369 -0.06664351 -0.005842651
## Q8.5.1_2   0.300580022  0.121402741 -0.024282850 -0.04896334 -0.048119120
## Q8.5.1_3   0.172757189 -0.063985168 -0.141438426 -0.12892350 -0.130081029
## Q8.5.1_4   0.148593558 -0.051886159 -0.162669319 -0.19779410 -0.196163218
## Q8.5.1_5   0.172750822 -0.011114053 -0.214510467 -0.21557255 -0.254722277
## Q8.5.1_6   0.213229919  0.065831414  0.035621113 -0.01323521  0.006541091
## Q8.5.1_7   0.299482018  0.070505742  0.095106676  0.05769958  0.095085209
## Q8.5.1_8   0.128596580  0.006396362 -0.076038874 -0.05362987 -0.043531152
## Q8.5.1_9   0.289634689  0.019383225  0.042066107 -0.03644340  0.009993602
## Q8.5.1_10  0.199417222 -0.023446447 -0.063960803 -0.13914861 -0.129876727
## Q8.5.1_11  0.214370686  0.039314678 -0.004774811  0.02149680 -0.031174725
## Q8.5.1_12  0.225270919  0.033677904  0.039923093  0.02442119  0.012642707
## Q8.5.1_13  0.329394577  0.071623079  0.081077412  0.05078441  0.067872715
## Q8.5.1_14  0.257352276  0.109396380  0.131793715  0.04063449  0.061290259
## Q8.5.1_15  0.274983548  0.020801405 -0.059968164 -0.15509405 -0.172893820
## Q8.5.1_16  0.236833237 -0.055509851 -0.129053489 -0.12565324 -0.150200506
## Q8.5.1_17  0.175595989  0.024069592 -0.142249311 -0.11602179 -0.146680948
## Q8.5.1_18  0.181299411 -0.011827749 -0.108509140 -0.12684000 -0.155212082
## Q8.5.1_19  0.227286797  0.055536686  0.062594177  0.01204163  0.011968258
## Q8.5.1_20  0.518959057  0.074833270  0.018177167 -0.03704643 -0.038809608
## Q8.5.1_21  1.000000000 -0.029351177 -0.040960641 -0.14608650 -0.077807815
## Q3.7_1    -0.029351177  1.000000000  0.455001881  0.33310011  0.326974357
## Q3.7_2    -0.040960641  0.455001881  1.000000000  0.52058398  0.525549851
## Q3.7_3    -0.146086499  0.333100109  0.520583979  1.00000000  0.598948400
## Q3.7_4    -0.077807815  0.326974357  0.525549851  0.59894840  1.000000000
## Q8.6       0.006327924 -0.007950407 -0.115634674 -0.10886609 -0.080566009
##                   Q8.6
## Q8.5.1_1   0.034352368
## Q8.5.1_2  -0.053201774
## Q8.5.1_3   0.105888301
## Q8.5.1_4   0.186140626
## Q8.5.1_5   0.136089395
## Q8.5.1_6  -0.055706920
## Q8.5.1_7  -0.092727153
## Q8.5.1_8   0.069852557
## Q8.5.1_9   0.032392512
## Q8.5.1_10  0.150602687
## Q8.5.1_11 -0.095594919
## Q8.5.1_12 -0.110044696
## Q8.5.1_13 -0.045448884
## Q8.5.1_14 -0.051815283
## Q8.5.1_15  0.076409097
## Q8.5.1_16  0.198953911
## Q8.5.1_17  0.187517790
## Q8.5.1_18  0.191842296
## Q8.5.1_19 -0.072993239
## Q8.5.1_20 -0.061603853
## Q8.5.1_21  0.006327924
## Q3.7_1    -0.007950407
## Q3.7_2    -0.115634674
## Q3.7_3    -0.108866086
## Q3.7_4    -0.080566009
## Q8.6       1.000000000
##         X1       X2     value
## 1 Q8.5.1_1 Q8.5.1_1 1.0000000
## 2 Q8.5.1_2 Q8.5.1_1 0.5009727
## 3 Q8.5.1_3 Q8.5.1_1 0.1950885
## 4 Q8.5.1_4 Q8.5.1_1 0.1752346
## 5 Q8.5.1_5 Q8.5.1_1 0.1703447
## 6 Q8.5.1_6 Q8.5.1_1 0.2351235

Basic correlations between increases and decreases of COVID items

LEEP_num_Eammon<-LEEP_num 

LEEP_num_Eammon<-LEEP_num_Eammon %>% 
  select( starts_with("Q8.5")
 ) 
  
mtcars_new <- LEEP_num_Eammon
corrmat_pearson <- cor(mtcars_new)
corrmat_pearson
##            Q8.5.1_1  Q8.5.1_2   Q8.5.1_3   Q8.5.1_4   Q8.5.1_5   Q8.5.1_6
## Q8.5.1_1  1.0000000 0.5009727 0.19508852 0.17523456 0.17034466 0.23512350
## Q8.5.1_2  0.5009727 1.0000000 0.14507855 0.15909213 0.21360901 0.24321186
## Q8.5.1_3  0.1950885 0.1450786 1.00000000 0.35353344 0.29022507 0.09340721
## Q8.5.1_4  0.1752346 0.1590921 0.35353344 1.00000000 0.55017816 0.12173830
## Q8.5.1_5  0.1703447 0.2136090 0.29022507 0.55017816 1.00000000 0.20314041
## Q8.5.1_6  0.2351235 0.2432119 0.09340721 0.12173830 0.20314041 1.00000000
## Q8.5.1_7  0.1893661 0.2186812 0.09935684 0.13813620 0.15830490 0.31082772
## Q8.5.1_8  0.2045394 0.1585805 0.15143142 0.19743506 0.21126519 0.17868478
## Q8.5.1_9  0.2820869 0.1468136 0.19143054 0.15181335 0.16522835 0.13957193
## Q8.5.1_10 0.1837785 0.1247427 0.17686961 0.31327191 0.40150162 0.16395035
## Q8.5.1_11 0.2151612 0.2051289 0.09155609 0.08161977 0.14310488 0.36005338
## Q8.5.1_12 0.1925338 0.1772082 0.14721398 0.09902559 0.14090185 0.24355359
## Q8.5.1_13 0.3049129 0.3021409 0.08842027 0.16455627 0.19957038 0.26713145
## Q8.5.1_14 0.2666555 0.2936220 0.10845978 0.09813533 0.07206788 0.30670023
## Q8.5.1_15 0.1758106 0.1997838 0.19018572 0.41241128 0.47396405 0.17151382
## Q8.5.1_16 0.2570587 0.1064470 0.37970303 0.28400219 0.23516427 0.03632204
## Q8.5.1_17 0.1376520 0.1579921 0.19242580 0.42423360 0.57080506 0.15611720
## Q8.5.1_18 0.1459947 0.2031413 0.19384229 0.40883432 0.36135345 0.14984759
## Q8.5.1_19 0.2257944 0.1955466 0.10783879 0.05257307 0.07985038 0.33968482
## Q8.5.1_20 0.3107489 0.3181147 0.07193622 0.13336538 0.13431391 0.26694305
## Q8.5.1_21 0.4991070 0.3005800 0.17275719 0.14859356 0.17275082 0.21322992
##             Q8.5.1_7   Q8.5.1_8   Q8.5.1_9 Q8.5.1_10   Q8.5.1_11    Q8.5.1_12
## Q8.5.1_1  0.18936611 0.20453943 0.28208688 0.1837785  0.21516121  0.192533844
## Q8.5.1_2  0.21868120 0.15858051 0.14681361 0.1247427  0.20512890  0.177208192
## Q8.5.1_3  0.09935684 0.15143142 0.19143054 0.1768696  0.09155609  0.147213981
## Q8.5.1_4  0.13813620 0.19743506 0.15181335 0.3132719  0.08161977  0.099025590
## Q8.5.1_5  0.15830490 0.21126519 0.16522835 0.4015016  0.14310488  0.140901850
## Q8.5.1_6  0.31082772 0.17868478 0.13957193 0.1639503  0.36005338  0.243553590
## Q8.5.1_7  1.00000000 0.12639477 0.20108902 0.1576704  0.24017544  0.313284746
## Q8.5.1_8  0.12639477 1.00000000 0.08117870 0.2806646  0.12487539  0.101021245
## Q8.5.1_9  0.20108902 0.08117870 1.00000000 0.3009543  0.13904529  0.219340510
## Q8.5.1_10 0.15767036 0.28066459 0.30095434 1.0000000  0.15834245  0.172558330
## Q8.5.1_11 0.24017544 0.12487539 0.13904529 0.1583424  1.00000000  0.441622376
## Q8.5.1_12 0.31328475 0.10102124 0.21934051 0.1725583  0.44162238  1.000000000
## Q8.5.1_13 0.34265141 0.18081691 0.16554531 0.1859877  0.28115248  0.240169314
## Q8.5.1_14 0.28107570 0.16822778 0.17557525 0.1188586  0.30971202  0.247007748
## Q8.5.1_15 0.17738030 0.16277541 0.11241601 0.3598411  0.25284125  0.172113252
## Q8.5.1_16 0.05733540 0.04899088 0.19481333 0.1785266 -0.05304412 -0.003778701
## Q8.5.1_17 0.12671216 0.13824546 0.10195473 0.3925225  0.15973707  0.065720210
## Q8.5.1_18 0.12987014 0.21495650 0.13965832 0.3965044  0.11768936  0.188687236
## Q8.5.1_19 0.24843310 0.11217900 0.09091154 0.1521094  0.31944738  0.202021884
## Q8.5.1_20 0.33100949 0.14007604 0.13779657 0.1592815  0.29740108  0.208829110
## Q8.5.1_21 0.29948202 0.12859658 0.28963469 0.1994172  0.21437069  0.225270919
##            Q8.5.1_13   Q8.5.1_14 Q8.5.1_15    Q8.5.1_16  Q8.5.1_17  Q8.5.1_18
## Q8.5.1_1  0.30491289 0.266655456 0.1758106  0.257058741 0.13765202 0.14599472
## Q8.5.1_2  0.30214092 0.293621982 0.1997838  0.106446960 0.15799208 0.20314130
## Q8.5.1_3  0.08842027 0.108459785 0.1901857  0.379703027 0.19242580 0.19384229
## Q8.5.1_4  0.16455627 0.098135334 0.4124113  0.284002194 0.42423360 0.40883432
## Q8.5.1_5  0.19957038 0.072067882 0.4739640  0.235164273 0.57080506 0.36135345
## Q8.5.1_6  0.26713145 0.306700235 0.1715138  0.036322043 0.15611720 0.14984759
## Q8.5.1_7  0.34265141 0.281075701 0.1773803  0.057335398 0.12671216 0.12987014
## Q8.5.1_8  0.18081691 0.168227782 0.1627754  0.048990884 0.13824546 0.21495650
## Q8.5.1_9  0.16554531 0.175575251 0.1124160  0.194813331 0.10195473 0.13965832
## Q8.5.1_10 0.18598773 0.118858592 0.3598411  0.178526628 0.39252246 0.39650439
## Q8.5.1_11 0.28115248 0.309712021 0.2528412 -0.053044118 0.15973707 0.11768936
## Q8.5.1_12 0.24016931 0.247007748 0.1721133 -0.003778701 0.06572021 0.18868724
## Q8.5.1_13 1.00000000 0.325342420 0.2573689  0.057746400 0.19881736 0.18774522
## Q8.5.1_14 0.32534242 1.000000000 0.1904100  0.007957903 0.04356564 0.09627246
## Q8.5.1_15 0.25736895 0.190409957 1.0000000  0.130096373 0.49957498 0.43522396
## Q8.5.1_16 0.05774640 0.007957903 0.1300964  1.000000000 0.24651815 0.18159159
## Q8.5.1_17 0.19881736 0.043565636 0.4995750  0.246518146 1.00000000 0.45152200
## Q8.5.1_18 0.18774522 0.096272458 0.4352240  0.181591586 0.45152200 1.00000000
## Q8.5.1_19 0.24378474 0.276422666 0.1846051  0.037785772 0.13231306 0.18601556
## Q8.5.1_20 0.36731116 0.400645290 0.2210376  0.059785385 0.13512476 0.17063170
## Q8.5.1_21 0.32939458 0.257352276 0.2749835  0.236833237 0.17559599 0.18129941
##            Q8.5.1_19  Q8.5.1_20 Q8.5.1_21
## Q8.5.1_1  0.22579436 0.31074890 0.4991070
## Q8.5.1_2  0.19554659 0.31811470 0.3005800
## Q8.5.1_3  0.10783879 0.07193622 0.1727572
## Q8.5.1_4  0.05257307 0.13336538 0.1485936
## Q8.5.1_5  0.07985038 0.13431391 0.1727508
## Q8.5.1_6  0.33968482 0.26694305 0.2132299
## Q8.5.1_7  0.24843310 0.33100949 0.2994820
## Q8.5.1_8  0.11217900 0.14007604 0.1285966
## Q8.5.1_9  0.09091154 0.13779657 0.2896347
## Q8.5.1_10 0.15210942 0.15928146 0.1994172
## Q8.5.1_11 0.31944738 0.29740108 0.2143707
## Q8.5.1_12 0.20202188 0.20882911 0.2252709
## Q8.5.1_13 0.24378474 0.36731116 0.3293946
## Q8.5.1_14 0.27642267 0.40064529 0.2573523
## Q8.5.1_15 0.18460511 0.22103760 0.2749835
## Q8.5.1_16 0.03778577 0.05978539 0.2368332
## Q8.5.1_17 0.13231306 0.13512476 0.1755960
## Q8.5.1_18 0.18601556 0.17063170 0.1812994
## Q8.5.1_19 1.00000000 0.27865184 0.2272868
## Q8.5.1_20 0.27865184 1.00000000 0.5189591
## Q8.5.1_21 0.22728680 0.51895906 1.0000000
library(reshape)
melted_corrmat_pearson <- melt(corrmat_pearson)
head(melted_corrmat_pearson)
##         X1       X2     value
## 1 Q8.5.1_1 Q8.5.1_1 1.0000000
## 2 Q8.5.1_2 Q8.5.1_1 0.5009727
## 3 Q8.5.1_3 Q8.5.1_1 0.1950885
## 4 Q8.5.1_4 Q8.5.1_1 0.1752346
## 5 Q8.5.1_5 Q8.5.1_1 0.1703447
## 6 Q8.5.1_6 Q8.5.1_1 0.2351235
ggplot(melted_corrmat_pearson, aes(x = X1, y = X2, fill = value)) + 
  geom_tile() + 
  labs(x = 'Variables', y = 'Variables') + 
  coord_fixed()+ theme(axis.text.x=element_text(angle=90,hjust=1.0))+ggtitle("Basic correlations between increases and decreases of COVID items ")

corrplot(corrmat_pearson, method = "pie")