Cluster Analysis
Ali
3/2/2021
Make (QOLIE10)
Make (VR-12)
Making scales
Partitioning
## Group.1 SUM_QOLIE10 sum_VR12 GAD2 PHQ Q1.2 Depression
## 1 1 -1.4034390 0.91685023 -0.9503852 -1.22077053 0.2873936 -0.2550606
## 2 2 0.4429774 -0.43369627 0.5216588 0.45127485 0.0666144 -0.2550606
## 3 3 -0.1026831 -0.61543060 -0.1950347 0.35975757 -0.2093595 -0.2550606
## 4 4 0.1107591 0.09778564 -0.3233211 -0.06320065 0.1011111 3.9056154
## 5 5 -0.6434822 0.76563831 -0.7423902 -0.72360911 -0.1456732 -0.2550606
## Headaches Hearth Gastrointestinal Lung_issues nerve Diabetes
## 1 -0.2093595 -0.1076260 -0.1245173 -0.1076260 -0.13948626 -0.16569087
## 2 -0.1748628 -0.1076260 -0.1245173 -0.1076260 -0.08892249 -0.07988667
## 3 -0.2093595 -0.1076260 -0.1245173 -0.1076260 -0.13948626 -0.16569087
## 4 -0.2093595 -0.1076260 -0.1245173 -0.1076260 -0.13948626 -0.16569087
## 5 0.4275034 0.2525072 0.2921368 0.2525072 0.23390773 0.23032852
## Chronic.pain Anxiety TBI blood_pressure Sleep PTSD
## 1 -0.2285137 -1.3193459 -0.13948626 5.0003831 -0.08770645 -0.08770645
## 2 -0.2285137 0.6542088 -0.08892249 -0.1992185 -0.08770645 0.07126149
## 3 4.3593384 -1.3193459 -0.13948626 -0.1992185 -0.08770645 -0.08770645
## 4 -0.2285137 -1.3193459 -0.13948626 -0.1992185 -0.08770645 -0.08770645
## 5 -0.2285137 -0.5480971 0.23390773 -0.1992185 0.20577283 -0.08770645
## Cancer insomnia
## 1 -0.1992185 -0.08770645
## 2 -0.1992185 -0.08770645
## 3 -0.1992185 -0.08770645
## 4 -0.1992185 -0.08770645
## 5 0.4673971 0.20577283#Hierarchical Agglomerative
## Warning: package 'pvclust' was built under R version 4.0.4## The "ward" method has been renamed to "ward.D"; note new "ward.D2"## Bootstrap (r = 0.5)... Done.
## Bootstrap (r = 0.6)... Done.
## Bootstrap (r = 0.7)... Done.
## Bootstrap (r = 0.8)... Done.
## Bootstrap (r = 0.9)... Done.
## Bootstrap (r = 1.0)... Done.
## Bootstrap (r = 1.1)... Done.
## Bootstrap (r = 1.2)... Done.
## Bootstrap (r = 1.3)... Done.
## Bootstrap (r = 1.4)... Done.
Model Based
## Warning: package 'mclust' was built under R version 4.0.4## Package 'mclust' version 5.4.7
## Type 'citation("mclust")' for citing this R package in publications.##
## Attaching package: 'mclust'## The following object is masked from 'package:purrr':
##
## map## The following object is masked from 'package:maps':
##
## map
## ----------------------------------------------------
## Gaussian finite mixture model fitted by EM algorithm
## ----------------------------------------------------
##
## Mclust VII (spherical, varying volume) model with 9 components:
##
## log-likelihood n df BIC ICL
## -3281.705 261 206 -7709.7 -7714.042
##
## Clustering table:
## 1 2 3 4 5 6 7 8 9
## 59 12 30 7 53 10 32 43 15#Plotting Cluster Solutions
##
## Attaching package: 'cluster'## The following object is masked from 'package:maps':
##
## votes.repub
## Warning: package 'fpc' was built under R version 4.0.4
## Registered S3 method overwritten by 'dendextend':
## method from
## text.pvclust pvclust
## groups
## 1 2 3 4 5
## 50 53 28 51 29
## K-means clustering with 3 clusters of sizes 59, 65, 87
##
## Cluster means:
## SUM_QOLIE10 sum_VR12 GAD2 PHQ Q1.2 Depression Headaches
## 1 39.52542 34.37288 6.322034 6.000000 1.050847 0.05084746 0.01694915
## 2 20.78462 49.58462 3.630769 3.261538 1.138462 0.06153846 0.03076923
## 3 30.58621 41.50575 4.965517 4.632184 1.068966 0.06896552 0.06896552
## Hearth Gastrointestinal Lung_issues nerve Diabetes Chronic.pain
## 1 0.00000000 0 0.00000000 0.01694915 0.01694915 0.06779661
## 2 0.01538462 0 0.01538462 0.01538462 0.01538462 0.04615385
## 3 0.01149425 0 0.02298851 0.02298851 0.02298851 0.04597701
## Anxiety TBI blood_pressure Sleep PTSD Cancer
## 1 0.7796610 0.00000000 0.0000000 0.00000000 0.01694915 0.03389831
## 2 0.5384615 0.03076923 0.1384615 0.01538462 0.00000000 0.03076923
## 3 0.6666667 0.00000000 0.0000000 0.01149425 0.00000000 0.04597701
## insomnia
## 1 0.00000000
## 2 0.01538462
## 3 0.01149425
##
## Clustering vector:
## 1 4 5 6 7 8 10 11 12 14 15 16 17 18 19 20 21 23 24 25
## 3 2 2 2 1 3 3 2 2 2 2 1 1 1 2 3 3 2 1 1
## 26 27 28 29 30 31 34 37 39 40 42 43 44 45 46 47 48 49 50 51
## 1 3 3 2 3 3 3 2 1 3 3 3 3 1 1 1 2 3 3 3
## 52 53 54 55 57 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73
## 2 3 2 3 3 1 1 3 2 1 1 1 2 1 3 1 1 2 1 1
## 74 75 76 77 78 80 81 82 83 86 87 89 90 91 92 94 95 96 97 99
## 3 3 2 3 2 3 3 1 3 3 3 2 2 2 1 1 3 1 3 3
## 100 101 102 103 104 105 106 107 108 109 110 111 112 114 115 117 118 119 120 121
## 2 1 2 1 3 1 3 3 1 2 3 3 2 3 2 3 1 3 1 1
## 122 123 124 125 126 127 129 131 132 133 134 135 136 137 139 140 141 142 143 145
## 2 1 3 2 3 3 2 2 2 3 2 2 3 3 3 2 2 3 1 3
## 146 147 148 149 150 152 153 155 156 157 158 159 160 161 164 165 166 167 168 169
## 3 1 2 2 1 3 3 3 3 3 2 1 3 3 1 1 3 1 1 2
## 170 172 173 174 177 178 180 181 182 183 184 185 186 187 188 189 190 191 192 193
## 1 2 2 3 3 3 2 3 3 2 3 1 1 1 1 1 3 3 3 3
## 195 196 197 198 200 201 202 203 204 205 206 207 208 210 211 212 213 214 216 217
## 2 2 1 2 3 3 2 2 1 2 1 2 1 1 3 1 1 3 3 1
## 218 219 222 223 224 225 226 227 229 230 231 233 234 236 237 238 239 240 241 243
## 1 3 2 2 2 3 2 3 2 3 3 3 3 3 1 2 3 2 2 3
## 244 246 247 249 251 253 255 256 257 260 261
## 3 1 2 1 2 2 2 3 3 2 2
##
## Within cluster sum of squares by cluster:
## [1] 3338.814 2634.462 3822.529
## (between_SS / total_SS = 65.4 %)
##
## Available components:
##
## [1] "cluster" "centers" "totss" "withinss" "tot.withinss"
## [6] "betweenss" "size" "iter" "ifault"
