library(imager)
## Warning: package 'imager' was built under R version 4.3.3
## Loading required package: magrittr
##
## Attaching package: 'imager'
## The following object is masked from 'package:magrittr':
##
## add
## The following objects are masked from 'package:stats':
##
## convolve, spectrum
## The following object is masked from 'package:graphics':
##
## frame
## The following object is masked from 'package:base':
##
## save.image
library(dplyr)
##
## Attaching package: 'dplyr'
## The following object is masked from 'package:imager':
##
## where
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
library(tidyverse)
## Warning: package 'tidyverse' was built under R version 4.3.3
## Warning: package 'tidyr' was built under R version 4.3.3
## Warning: package 'readr' was built under R version 4.3.3
## Warning: package 'purrr' was built under R version 4.3.3
## Warning: package 'stringr' was built under R version 4.3.3
## Warning: package 'forcats' was built under R version 4.3.3
## Warning: package 'lubridate' was built under R version 4.3.3
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ forcats 1.0.0 ✔ readr 2.1.5
## ✔ ggplot2 3.4.4 ✔ stringr 1.5.1
## ✔ lubridate 1.9.3 ✔ tibble 3.2.1
## ✔ purrr 1.0.2 ✔ tidyr 1.3.1
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ imager::add() masks magrittr::add()
## ✖ stringr::boundary() masks imager::boundary()
## ✖ tidyr::extract() masks magrittr::extract()
## ✖ tidyr::fill() masks imager::fill()
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()
## ✖ purrr::set_names() masks magrittr::set_names()
## ✖ dplyr::where() masks imager::where()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
# Set the image path (ensure correct slashes in the file path)
image_path <- "C:/Users/mansi/OneDrive/Documents"
categories <- list.dirs(image_path, recursive = FALSE)
# Function to resize images using the 'imager' package
resize_image <- function(img_path, img_size = 32) {
img <- load.image(img_path) # Load the image
img <- resize(img, img_size, img_size) # Resize to specified dimensions
as.numeric(img) # Convert to a numeric vector
}
# Function to load all images and create a dataset, with format filtering
load_images <- function(image_path, categories) {
image_data <- data.frame() # Initialize an empty data frame
# Define supported image file extensions
valid_extensions <- c(".jpg", ".jpeg", ".png", ".bmp")
for (category in categories) {
label <- basename(category) # Get the label from the folder name
# Filter image files based on valid extensions
image_files <- list.files(category, full.names = TRUE, pattern = paste0(valid_extensions, collapse = "|"))
for (image_file in image_files) {
img_vector <- resize_image(image_file) # Resize the image and convert to a vector
image_data <- rbind(image_data, data.frame(label = label, img_vector = I(list(img_vector)))) # Add to data frame
}
}
return(image_data) # Return the populated data frame
}
# Load the images into a data frame
image_data <- load_images(image_path, categories)
# Check the dimensions of the image data
print(dim(image_data)) # Should show the number of loaded images and the number of columns
## [1] 272 2
# Set the CRAN mirror to avoid the error
options(repos = c(CRAN = "https://cran.rstudio.com/"))
# Install necessary packages
if (!requireNamespace("nnet", quietly = TRUE)) {
install.packages("nnet")
}
# Load necessary libraries
library(caret)
## Warning: package 'caret' was built under R version 4.3.3
## Loading required package: lattice
##
## Attaching package: 'caret'
##
## The following object is masked from 'package:purrr':
##
## lift
library(nnet)
## Warning: package 'nnet' was built under R version 4.3.3
install.packages("factoextra")
## package 'factoextra' successfully unpacked and MD5 sums checked
##
## The downloaded binary packages are in
## C:\Users\mansi\AppData\Local\Temp\Rtmp4Koplc\downloaded_packages
library(factoextra)
## Warning: package 'factoextra' was built under R version 4.3.3
## Welcome! Want to learn more? See two factoextra-related books at https://goo.gl/ve3WBa
# Flatten the img_vector column into multiple pixel columns
img_matrix <- do.call(rbind, lapply(image_data$img_vector, as.vector))
# Create a new data frame with flattened image data
image_data_flat <- data.frame(label = image_data$label, img_matrix)
# Convert the label to a factor
image_data_flat$label <- as.factor(image_data_flat$label)
# Apply PCA to reduce the number of features (pixels)
pca_result <- prcomp(image_data_flat[, -1], center = TRUE, scale. = TRUE)
# Select the first N principal components that explain, e.g., 95% variance
variance_explained <- cumsum(pca_result$sdev^2) / sum(pca_result$sdev^2)
num_components <- which(variance_explained >= 0.95)[1] # First component that explains 95% of variance
# Keep only the first 'num_components' components
pca_data <- data.frame(label = image_data_flat$label, pca_result$x[, 1:num_components])
# Split the data into training and testing sets
set.seed(123)
train_index <- createDataPartition(pca_data$label, p = 0.8, list = FALSE)
## Warning in createDataPartition(pca_data$label, p = 0.8, list = FALSE): Some
## classes have a single record ( Important ) and these will be selected for the
## sample
train_data <- pca_data[train_index, ]
test_data <- pca_data[-train_index, ]
# Train a multinomial logistic regression model using nnet::multinom
model <- multinom(label ~ ., data = train_data)
## # weights: 408 (270 variable)
## initial value 240.596091
## iter 10 value 117.656992
## iter 20 value 30.758388
## iter 30 value 23.022664
## iter 40 value 13.018853
## iter 50 value 8.502308
## iter 60 value 2.699749
## iter 70 value 0.524506
## iter 80 value 0.007556
## iter 90 value 0.000183
## final value 0.000072
## converged
# Make predictions on the test set
predictions <- predict(model, newdata = test_data)
# Evaluate the model's accuracy
confusion_matrix <- confusionMatrix(predictions, test_data$label)
print(confusion_matrix)
## Confusion Matrix and Statistics
##
## Reference
## Prediction animals Certificates Important
## animals 49 0 0
## Certificates 0 1 0
## Important 3 0 0
##
## Overall Statistics
##
## Accuracy : 0.9434
## 95% CI : (0.8434, 0.9882)
## No Information Rate : 0.9811
## P-Value [Acc > NIR] : 0.9822
##
## Kappa : 0.3885
##
## Mcnemar's Test P-Value : NA
##
## Statistics by Class:
##
## Class: animals Class: Certificates Class: Important
## Sensitivity 0.9423 1.00000 NA
## Specificity 1.0000 1.00000 0.9434
## Pos Pred Value 1.0000 1.00000 NA
## Neg Pred Value 0.2500 1.00000 NA
## Prevalence 0.9811 0.01887 0.0000
## Detection Rate 0.9245 0.01887 0.0000
## Detection Prevalence 0.9245 0.01887 0.0566
## Balanced Accuracy 0.9712 1.00000 NA
# Evaluate the model's accuracy
confusion_matrix <- confusionMatrix(predictions, test_data$label)
# Extract the confusion matrix from the confusionMatrix object
cm_matrix <- confusion_matrix$table # This is the actual confusion matrix
# Calculate accuracy
accuracy <- sum(diag(cm_matrix)) / sum(cm_matrix)
print(paste("Accuracy:", accuracy))
## [1] "Accuracy: 0.943396226415094"
# Perform PCA on the flattened image data
pca_result <- prcomp(image_data_flat[, -1], center = TRUE, scale. = TRUE)
# Create a new data frame with PCA results and labels
image_data_pca <- data.frame(label = image_data_flat$label, pca_result$x)
# Check the first few rows of the PCA data
head(image_data_pca)
## label PC1 PC2 PC3 PC4 PC5 PC6
## 1 animals -58.14521 13.598325 -7.428756 24.3266593 -4.163207 13.451794
## 2 animals -74.64666 -5.156060 5.001970 1.6111459 -2.536321 -1.978961
## 3 animals 52.35226 -6.547511 -1.778486 -5.3900555 8.683445 -5.383518
## 4 animals 26.71012 -8.983237 -5.072202 0.5916682 -13.921456 1.228989
## 5 animals 49.62508 -11.525293 3.996937 -6.4271599 11.427288 5.125093
## 6 animals -70.02827 1.233544 1.235105 -2.6385786 -1.009730 -2.473518
## PC7 PC8 PC9 PC10 PC11 PC12 PC13
## 1 -7.246686 10.3484276 18.396527 -20.9735118 7.665212 -1.223709 9.7661486
## 2 4.758578 -4.1573548 -7.288051 0.5464080 6.568517 4.202166 1.0609138
## 3 -5.101216 -5.3331147 -7.359514 -5.4694558 6.929463 5.274368 0.5801819
## 4 -1.118444 0.7099077 2.611820 4.5061734 -10.063562 -7.968550 2.1168562
## 5 -6.950746 2.1981888 -5.532644 -1.3001700 -3.170404 -6.921914 -5.1096480
## 6 4.789324 -9.7223496 -6.594333 -0.2638556 7.342828 -7.725873 8.3309107
## PC14 PC15 PC16 PC17 PC18 PC19 PC20
## 1 -8.589307 1.7440282 -0.96937872 5.247856 -14.580013 4.03089717 -1.574431
## 2 3.624687 0.6638783 -1.68275162 -1.729160 2.222442 0.07211831 -2.669976
## 3 2.643403 -4.7257563 -4.56200002 2.767324 -1.402001 1.39368966 -4.390307
## 4 3.401427 -3.3513393 -2.17005188 3.701088 -1.576520 0.61244888 1.628499
## 5 6.433527 -2.4410883 -0.08502605 -11.072349 1.654551 3.31269888 -3.227782
## 6 -4.798468 4.3282479 -2.51905019 2.869823 1.582746 -4.03390305 -4.636297
## PC21 PC22 PC23 PC24 PC25 PC26 PC27
## 1 -1.0887447 -1.842492 5.5573117 -1.003654 2.2880923 -2.2592886 1.992045
## 2 -3.6831395 2.006229 0.7982366 5.676819 1.2723683 3.4239073 2.537980
## 3 -0.1781007 4.762886 2.8689826 -1.259298 -0.5785560 -2.5189568 -2.282388
## 4 -1.8195387 -1.985511 -1.4931439 -3.386014 -0.1776313 -0.2357116 3.045508
## 5 -3.2248080 -1.807071 -4.8595177 4.508366 -1.7381338 -2.1359717 1.794149
## 6 8.6993344 6.687074 8.0231839 3.771955 3.7835809 -0.2252539 1.280243
## PC28 PC29 PC30 PC31 PC32 PC33 PC34
## 1 -0.8572263 2.032843 -2.6527760 5.886828 -6.7597688 2.7539262 -3.1488368
## 2 -2.8171541 1.817587 0.6762743 -2.539741 -1.5105086 -0.5121019 1.3762151
## 3 3.3043571 -1.783258 -2.2463943 -3.865237 2.2662650 -2.0077851 -0.7710093
## 4 -1.4396652 -1.764602 -2.1440823 3.043623 -0.1747232 -4.8788374 -2.6012241
## 5 -0.1033832 8.203709 0.5737664 9.259706 -0.8168780 0.3038920 1.4358834
## 6 -3.5382714 2.604498 -1.5720219 2.844797 -1.5238559 -5.3335031 -0.7927398
## PC35 PC36 PC37 PC38 PC39 PC40 PC41
## 1 4.8483225 -5.3930126 2.328737 0.04326729 -6.1148486 -1.9145598 4.88937563
## 2 0.2086322 -0.3267889 -2.203727 0.56130980 -0.5467172 1.3066728 0.46393913
## 3 -3.4671076 -3.0110958 1.434268 2.07261038 1.7353979 -1.1276989 -0.24955970
## 4 4.2213292 2.1968986 -3.111246 -1.93482460 -3.3906018 -2.0154812 -0.01665397
## 5 1.4914803 5.3200239 1.699593 -3.28379233 3.1619212 0.1141554 -1.59793970
## 6 3.7960810 -1.4873718 1.631703 -0.96503621 0.4637564 3.6814887 -1.53866485
## PC42 PC43 PC44 PC45 PC46 PC47 PC48
## 1 -3.0264767 1.503637 3.61692460 -0.47781805 -1.277603 -0.7832016 2.3124213
## 2 0.5905638 1.531309 -0.06582343 -0.65371699 2.893353 -3.2450635 -0.6389243
## 3 -0.5410192 2.478304 1.59902238 -1.76194014 4.549055 0.6822876 -1.1886987
## 4 -2.8986486 2.007960 3.12042472 -5.55984539 -5.065463 -0.8415219 -5.7378200
## 5 -4.1066400 -1.741594 -0.13024113 -0.09117024 -4.285965 1.2309521 -0.8506729
## 6 0.1229748 1.901486 1.13896705 0.68153550 1.714175 0.3381732 -2.1086294
## PC49 PC50 PC51 PC52 PC53 PC54 PC55
## 1 0.8802359 -2.5593866 0.6200195 -0.0567173 2.9124008 -2.169725 2.9298139
## 2 0.2315633 1.4814297 1.9262747 1.3051733 0.4138250 1.663167 1.1984200
## 3 2.1941946 0.4102929 5.1231724 3.2079479 1.7344112 2.341503 -0.6883234
## 4 6.6338906 3.2551439 2.1276800 -4.1112415 -0.3693939 2.414590 0.5384636
## 5 0.7666788 1.0489489 1.4279356 0.5105845 -1.0476433 -1.922105 2.6819672
## 6 0.8421291 2.9222505 -3.7718831 -1.4757521 -2.4616772 -0.714585 -1.3633848
## PC56 PC57 PC58 PC59 PC60 PC61 PC62
## 1 -0.4991225 1.921238 -1.0537818 0.1946998 -0.9515862 3.1826486 -1.5243647
## 2 0.2426136 -2.257656 1.6408995 1.2327985 -1.0861521 0.1708356 -3.2956218
## 3 1.4471919 -1.756228 -0.6602545 -1.9313381 1.2805220 -1.7070473 -1.4497996
## 4 1.2458723 5.435401 1.2168062 6.0250382 3.1725869 2.6564487 0.5863543
## 5 -1.3224160 -2.150182 0.7724563 -5.0174338 3.5397509 2.5318164 -3.6045068
## 6 -0.2786676 -4.133990 -0.4989249 -1.6766088 0.7010006 2.3559526 3.0659433
## PC63 PC64 PC65 PC66 PC67 PC68
## 1 0.9812079 -5.829792 5.9482744 -2.69102752 5.0939181034 -3.277481
## 2 1.1085127 1.491093 1.6002197 -3.13936235 -1.3512789526 1.843969
## 3 -4.0135061 -1.464759 -2.5199824 -0.09098276 -0.0001568446 2.802099
## 4 -0.2831231 3.875595 0.9105232 2.34276736 -1.8294087264 -0.334841
## 5 4.4586988 1.914282 0.4889268 -0.13803054 -0.9582203400 1.945892
## 6 -0.2690522 -0.110848 3.4668774 -5.35028939 2.2649280213 -2.361972
## PC69 PC70 PC71 PC72 PC73 PC74 PC75
## 1 2.5493905 -3.2330949 3.0012587 -0.4196688 -2.024338 1.988192 -1.5627479
## 2 -3.0032866 -0.6002520 -0.6691340 0.1481162 -1.256268 1.035433 -2.1141112
## 3 -1.4864755 0.1121305 1.1921233 -4.1660838 -2.767811 1.026298 0.9085139
## 4 -1.2819903 -0.7507333 -1.3184983 2.4197985 7.572676 -3.177136 -1.1800662
## 5 0.8029567 0.4844601 -0.5507999 1.4937899 2.768044 -4.319441 0.7897580
## 6 -2.8789289 -2.4712062 -1.5057878 2.7763098 1.473814 -5.699023 -0.5326113
## PC76 PC77 PC78 PC79 PC80 PC81 PC82
## 1 0.39302449 1.886070 -3.448810325 1.0652722 2.3868077 -1.835415 2.6510703
## 2 -0.68694098 -2.706392 -0.713656039 -1.7049490 1.9117998 -1.733461 -0.9072642
## 3 0.60586756 1.542705 1.478793110 0.3147393 1.7588788 -2.075557 -0.4980733
## 4 -0.05057837 -0.849868 0.005985211 -1.6386696 -2.1721950 3.472307 0.5386607
## 5 0.81737046 -1.271539 -0.608210001 -0.9580474 -2.4175870 2.884310 -2.0648012
## 6 3.30154874 -4.484033 -3.093490325 -3.1855006 0.7235791 1.667118 0.4277486
## PC83 PC84 PC85 PC86 PC87 PC88
## 1 0.7692693 2.83197957 -2.9774450 -2.83601091 1.2512792 -2.62900505
## 2 -2.3261309 0.04388618 -0.1953056 0.07052953 -0.6040480 -0.04807781
## 3 -0.9030499 0.33223001 -0.3438343 1.00081946 -0.5538626 -3.34729168
## 4 1.1353834 6.60948474 1.8698024 1.11089412 -1.1547067 -5.07077951
## 5 -0.7266554 -0.71259680 1.3287654 -2.54304966 -0.6985866 0.82300781
## 6 0.2470117 1.35639567 -1.1314662 2.55229763 1.8468859 -0.78385662
## PC89 PC90 PC91 PC92 PC93 PC94
## 1 -1.0314314 1.3510214 0.677442181 1.3571044 -1.2751050 -4.2568925
## 2 -0.4446115 1.5514603 -0.912005532 -0.8599368 -1.6788381 1.5006679
## 3 -1.6268483 2.8999321 -0.008157237 0.5928373 -1.9723987 -0.1601349
## 4 1.2154103 0.6304350 -4.132277452 -1.1289915 0.2724842 2.5291441
## 5 -0.2827980 2.7298053 4.616141268 2.1962944 4.9198526 -1.4868456
## 6 0.4654944 -0.3494171 -2.300876688 0.5754158 1.0315341 2.2553260
## PC95 PC96 PC97 PC98 PC99 PC100
## 1 0.4597365 2.0278957 -1.975251795 2.6325774 0.8331133 1.5889629
## 2 0.2253504 -0.2426623 -0.712902762 -0.7619161 -0.1830665 -0.2967540
## 3 -0.3474908 3.0206870 0.008722305 -0.9205243 -0.5222153 3.6377610
## 4 -3.5537975 1.5769658 -1.503639809 -0.8566628 -0.9633830 2.1818508
## 5 1.6999309 -2.3422670 0.177044688 1.0459541 -0.5134344 -1.3915187
## 6 3.0288227 -3.1688582 -1.181964087 -0.1256391 3.1405214 0.2393787
## PC101 PC102 PC103 PC104 PC105 PC106
## 1 -0.2407866 -0.212953083 -0.9113445 0.1847728 1.3759329 -1.8819843
## 2 -1.2966575 0.003153166 -0.1286541 0.1283170 0.9664540 -0.9464696
## 3 -0.1046846 1.091214181 -1.8373291 -0.8662597 0.4623483 -0.5156323
## 4 1.0767497 1.250895120 -2.8395290 -2.5418374 -1.5368111 -2.5086062
## 5 1.2671838 2.625600536 2.2072017 -0.1088477 0.4310251 -1.3930915
## 6 1.9867636 1.747549653 1.5987193 -0.3100854 -1.5767972 3.2570295
## PC107 PC108 PC109 PC110 PC111 PC112
## 1 -1.13636074 -1.93521802 0.88702641 0.6091598 2.3557809 -0.5911353
## 2 0.03789206 -0.34040799 2.12202616 0.1481390 0.7343106 -1.2013021
## 3 -2.97037292 -0.17464408 -1.86954471 -3.1847799 0.3062943 2.1782989
## 4 -2.66985566 -0.07277504 -0.02042602 1.3480388 -1.9880630 6.6442254
## 5 1.91485583 1.51367866 -1.11829768 -3.0980322 2.1175155 1.6708645
## 6 5.14095338 3.57526386 -1.05013670 -2.8676093 -0.3112764 -1.4902176
## PC113 PC114 PC115 PC116 PC117 PC118 PC119
## 1 -1.0943250 -2.213185 1.45717994 0.4514432 1.8372072 2.42135389 -0.2814518
## 2 0.3620586 -1.915811 -0.06289955 1.5678221 1.7178368 0.04758622 -0.8502151
## 3 -1.0474979 -2.544575 -0.90924603 0.4779538 -0.4803815 -0.62583528 0.1381540
## 4 0.1006584 -2.945398 -2.35227625 -0.8995394 0.9045506 -2.97201292 -0.3895727
## 5 -0.3690799 -2.208144 -1.42246315 -0.6294444 1.4324659 1.35477735 0.2507738
## 6 0.7097733 -1.229412 2.18717101 1.6290000 -1.0452594 -0.31357455 0.3037611
## PC120 PC121 PC122 PC123 PC124 PC125
## 1 -3.4136957 -1.1382392 1.5833553 0.5869627 1.70366125 -3.8641971
## 2 0.4463641 -0.4430681 -0.6225348 -1.6957830 0.91010402 -1.6731425
## 3 -1.1921577 -0.8514960 2.1758285 0.2865177 -0.25153744 -0.7516465
## 4 0.3257640 0.6347509 -3.6873721 2.4586190 -0.05194589 -2.5250893
## 5 0.2998460 -3.7295632 -1.0437423 -0.5463102 -0.10623827 1.1175420
## 6 3.0092935 0.9053302 1.3301166 2.5492361 1.08688355 -1.5909770
## PC126 PC127 PC128 PC129 PC130 PC131
## 1 1.29544690 0.5790935 0.02699068 0.9486240 0.72755406 -2.17882048
## 2 0.08341500 0.2788313 -0.02718870 -0.4350593 1.76603842 -0.84066659
## 3 0.09147219 -1.0971271 -0.29134270 -1.4866775 1.36417982 -1.56119221
## 4 -0.55324995 -1.1738348 -1.06192421 2.0961866 -1.82148710 0.56056362
## 5 0.73612011 -2.9069574 0.60931267 -0.1234794 -0.08128759 0.09595543
## 6 0.01761993 3.2273222 -0.50510991 -0.2942618 -0.24604934 0.45465719
## PC132 PC133 PC134 PC135 PC136 PC137 PC138
## 1 -0.5999364 -0.6738070 -1.7743340 2.29347722 0.7365698 0.1394983 3.0559611
## 2 2.1528600 0.9938068 2.2412993 0.03917586 -1.1086899 -0.2303570 1.0886627
## 3 1.6523374 -0.9068410 0.6603102 1.41565130 1.8508750 -0.8591478 -1.2414006
## 4 -2.0432162 0.3101757 -1.9618360 1.40175036 -1.8024466 -1.5875573 0.2986731
## 5 -0.1272551 -0.5665591 -5.2380856 1.66186343 0.2189350 1.1793410 0.5986459
## 6 2.2426341 0.7222964 -2.2291849 0.64714319 0.4604967 1.1918854 0.1296288
## PC139 PC140 PC141 PC142 PC143 PC144 PC145
## 1 -0.1022356 -0.54246124 -1.8818133 -0.2623976 1.1465802 1.5678044 0.8051387
## 2 2.6798733 -0.06930742 1.7079142 0.3709147 -0.7985277 -0.6277222 -0.1167825
## 3 0.5455464 -2.52181590 -0.6558929 2.8771507 0.9724621 -0.4695539 0.9778894
## 4 -2.8763473 -0.79224757 0.8066025 -0.2960226 1.0522047 0.9190915 0.4518235
## 5 2.2590875 -0.12523740 -1.7941894 0.1316953 0.7064845 -0.4790879 -0.0797828
## 6 2.6609262 0.49131056 2.6705644 2.1418180 -0.8414512 3.0894941 1.3341050
## PC146 PC147 PC148 PC149 PC150 PC151
## 1 0.7549378 -2.1664329 -0.9991603 -0.79071329 -1.8541817 3.0540598
## 2 -0.3172204 -1.4854327 -1.2923375 0.99270218 0.3880293 1.7177283
## 3 -0.6305013 0.3970617 -1.7311601 -0.23563317 1.7447301 -0.7010219
## 4 0.3313404 -0.3706326 -2.1497563 -0.65845416 2.5339869 -0.7272631
## 5 1.9568290 -0.2996651 -1.1522971 0.04708327 -1.2532015 -1.2578629
## 6 0.0331795 2.5430808 1.1108991 0.89160337 1.0630195 -0.8932368
## PC152 PC153 PC154 PC155 PC156 PC157
## 1 1.820746978 1.8037021 0.4761580 -0.1498789 -1.99494508 -0.4594298
## 2 -2.432503368 -1.5184305 -1.0637095 1.7226812 -0.29574773 1.6524783
## 3 0.008645353 -2.1153025 -0.1368159 -0.1985538 -0.76071444 0.5455163
## 4 -1.980498295 0.7429939 -0.6474403 -0.9953979 -0.07412149 1.9217394
## 5 -1.332696146 1.4069065 1.7138751 -1.0837778 0.35739342 -0.8534527
## 6 0.076603782 -0.8161794 0.6867747 0.9920706 -0.11000657 -0.7460246
## PC158 PC159 PC160 PC161 PC162 PC163 PC164
## 1 -2.2055750 -0.1977910 -0.1169787 2.1906885 1.8385723 0.3097425 0.7963369
## 2 0.8136665 0.6820623 1.3281577 -0.5142368 -0.2578992 -0.5818370 -0.8192416
## 3 0.3669588 -1.0223939 1.6023600 -0.8058838 0.8098614 -1.7464979 0.5305701
## 4 -3.7727449 -0.6605898 1.9801859 -1.5578137 1.0605157 3.6347905 1.2940062
## 5 -1.3145255 -2.6576151 -1.0093012 1.6598910 0.3404654 -3.7151922 1.8981635
## 6 -1.4763290 1.1710419 1.7726156 -2.0585256 0.4548694 -0.7986691 2.3031214
## PC165 PC166 PC167 PC168 PC169 PC170 PC171
## 1 0.3473578 -0.5011918 -1.3515581 -0.6056545 -1.7179540 0.8082191 0.77429349
## 2 0.5633644 -2.5925734 -2.6011000 1.0939927 -2.3696040 -0.6382991 -1.19811756
## 3 -0.8519544 -0.2492818 0.8888210 -2.0900794 0.4834742 2.1126486 0.07692056
## 4 -1.0290776 0.8035855 -0.4246510 -0.4559358 -0.9149341 -0.1250156 1.91073024
## 5 -1.2244088 0.5487061 -1.1577059 0.6538769 -1.7422392 1.0023800 -1.59129009
## 6 -0.7323732 1.7114858 0.9229977 -0.8129150 0.1448296 -0.1180590 -0.41764889
## PC172 PC173 PC174 PC175 PC176 PC177
## 1 1.3926857 1.1595681 -1.0829603 -1.2037211 -0.27937268 -0.16839189
## 2 -1.5139393 -1.3036146 1.3131998 1.0217514 -0.90417151 2.29226807
## 3 -0.1586621 0.1814933 -0.9342765 1.8853096 2.12577006 0.17367980
## 4 -0.4047469 -1.2160269 -0.7008441 0.5385165 0.04896729 0.33414168
## 5 3.1240422 1.7367312 -0.5926582 0.4700043 -0.18398368 0.78372660
## 6 -0.2307994 0.8977436 -1.3888946 -1.2043016 -0.34310888 -0.05154701
## PC178 PC179 PC180 PC181 PC182 PC183 PC184
## 1 -0.2579525 1.5871850 0.1172471 0.4622799 0.5969834 0.4620162 0.8003686
## 2 -0.4707180 0.3730636 0.8829285 -0.9746387 2.2638574 0.2351404 0.6432853
## 3 -1.5531632 -0.1398234 -1.1011463 -0.2253626 -1.3729489 -0.9786002 1.1874003
## 4 -1.6731013 0.7264536 0.5972890 -0.4466412 -1.3448402 -0.5301237 -0.3511308
## 5 -0.1844421 0.8287453 -1.9499825 0.2327942 1.4372109 -0.2959663 1.0565846
## 6 -0.6642001 -1.0863089 2.1465256 -1.3806699 -1.8581635 -0.8630038 0.8702676
## PC185 PC186 PC187 PC188 PC189 PC190
## 1 1.9067154 -0.7514920 -1.7335572 -0.23084300 -0.348402502 2.99856135
## 2 -0.7598138 1.5199678 -0.9377815 -0.91266890 0.009252463 -0.04765192
## 3 0.9257894 -1.7432146 -0.1326923 0.02355832 1.606626777 1.41284158
## 4 1.3008389 -0.2013555 0.3196203 -2.17949977 0.238036921 -1.19608049
## 5 0.3371632 0.2369197 0.5264804 0.49913395 1.948003803 0.42844985
## 6 2.5882170 1.8696508 -0.2724100 1.58435958 0.044141879 0.92946371
## PC191 PC192 PC193 PC194 PC195 PC196
## 1 0.3783679 0.0613527075 0.07200679 0.1821854 0.1439338 1.8018135
## 2 -0.3950409 1.2280115165 -0.28578286 -0.1730925 1.4183358 1.7221565
## 3 1.3615682 -2.9059988601 -1.68048368 1.3199039 -0.5446851 1.8655673
## 4 -0.4885119 -0.6098533456 -0.15039201 0.2416747 -0.3446358 -0.7559024
## 5 -1.7355734 1.9390572949 1.94755128 -0.1097568 -0.8980161 0.2414267
## 6 0.2102137 -0.0002098984 -0.10236188 0.3941120 -0.1129813 -0.1792392
## PC197 PC198 PC199 PC200 PC201 PC202
## 1 -0.6412252 -0.92671297 -0.3305855 -0.08187078 1.1898519 1.1271977
## 2 3.0210328 0.67745519 1.4153045 -0.39713198 -1.8967710 -0.6815027
## 3 1.8898595 -1.64397538 1.2771160 2.85568719 0.5756301 -0.2705898
## 4 0.1173547 -0.07706789 1.6031958 -0.86443133 -0.1860953 0.1522143
## 5 -1.1583392 1.02779490 0.2330573 -0.46165533 -0.3169634 -1.6699160
## 6 0.1842023 -1.41505181 -0.8394547 -0.68143956 -1.8942747 2.9224662
## PC203 PC204 PC205 PC206 PC207 PC208
## 1 1.3659984 -0.36393285 -0.53364837 -0.54466808 -0.4232130 -0.07486389
## 2 1.1709522 -1.69972677 0.43289871 -1.61651639 1.4444470 -0.83844273
## 3 -0.5462999 -0.20181692 3.04840847 0.08816500 -1.4442835 1.13484789
## 4 1.0322116 0.37524999 -0.08447736 0.02897835 1.3353340 0.10804277
## 5 0.1110638 0.92820510 1.60614433 0.05169294 -0.9316292 -1.35733320
## 6 -2.0634171 -0.03421736 -2.34832793 -0.28814919 0.4732185 0.81809549
## PC209 PC210 PC211 PC212 PC213 PC214
## 1 -0.5026391 -0.1194549 0.9589277 0.37055586 0.8257252 0.9615352
## 2 0.2150714 -1.4859424 -0.2539543 -0.84577005 2.0951922 -0.4304617
## 3 -1.0895612 -3.5445365 -0.5374026 -1.34783392 0.7191190 -0.3328197
## 4 1.3665844 0.2872115 0.0815261 0.04678088 0.8289973 -0.4711931
## 5 0.1684994 -0.1164839 0.0777921 -1.60219014 0.3522527 0.4042573
## 6 -1.5379786 1.0612746 0.9230516 -0.32392989 0.4101378 -0.3880924
## PC215 PC216 PC217 PC218 PC219 PC220
## 1 -0.006731985 -0.0342042 -1.16195895 -0.09447131 -0.3269178 0.73309113
## 2 -0.159406911 -1.5318600 2.08791354 1.95102307 2.1134273 1.56334493
## 3 -1.181266746 2.4206161 0.81756074 1.91833504 1.1827931 -0.13693965
## 4 -1.159403016 0.2405405 0.05744732 -0.60717723 0.8983240 -0.34480165
## 5 0.382971447 -0.9328791 -1.43631082 -0.40700076 0.7392988 0.83724599
## 6 1.433590554 0.4542456 0.68833584 -1.04244405 0.6565995 0.09198843
## PC221 PC222 PC223 PC224 PC225 PC226
## 1 0.9571004 0.5953784 0.12722247 0.1794456 -0.04644415 -0.59259468
## 2 1.5900298 1.6160296 -0.42287149 -1.5727288 0.49966145 -0.98801707
## 3 0.4278351 -1.1438159 -1.74180154 -0.6149163 -0.05421788 -0.01519598
## 4 -0.8053270 0.3694774 -0.95978170 -0.6268868 -0.85837691 -0.79489028
## 5 -0.5570423 0.8144936 -0.01182757 -2.0022380 0.27685927 -0.05495602
## 6 0.8189916 -1.2572098 -0.76509371 0.4969721 0.43447167 -0.65489756
## PC227 PC228 PC229 PC230 PC231 PC232
## 1 -0.1204424 -0.85016960 0.06584485 0.3882691 0.3489550 0.20805076
## 2 0.9365967 -0.04204193 1.98669177 0.4577182 1.3392118 -1.50990316
## 3 0.5279164 1.37470389 -0.58877275 -1.2093675 -1.0734995 -0.67689544
## 4 -0.9304920 -0.43096800 0.57216307 0.2072480 0.3356422 0.08920201
## 5 -0.0524963 1.37601430 -0.46922188 -0.7536906 0.6103479 -0.47548490
## 6 0.3159936 1.36247797 -0.13504430 -0.1599891 -0.4289653 1.15273931
## PC233 PC234 PC235 PC236 PC237 PC238
## 1 0.2017564 0.41865606 0.1207001 -0.06033403 -0.73306832 -0.19044893
## 2 1.6312960 -2.07014578 0.2702928 -0.09306538 0.98810993 0.02353324
## 3 0.3731223 0.79625164 0.9627138 -0.94565365 -0.18053175 -0.22727264
## 4 0.8070292 0.09936348 -1.0455617 -0.20256760 -1.07544423 -0.32049529
## 5 -0.6855594 -0.63314056 0.3046755 -1.06689836 0.78867543 1.66837810
## 6 0.7190514 -0.88332222 0.2728780 0.45585701 0.03793098 0.22826457
## PC239 PC240 PC241 PC242 PC243 PC244
## 1 1.0324854674 0.04653173 0.7195581 -0.4024176 -0.56207606 -0.2108877
## 2 -1.7032703701 0.67253202 2.0476265 1.3848056 0.51456432 -3.3566951
## 3 0.0256513150 -0.54515805 -1.7704284 0.9755051 0.78695503 2.9813260
## 4 -0.6179652169 -0.54263113 -0.4603016 0.5414448 -0.14285794 -0.7862895
## 5 1.1146940689 0.60217512 -2.3306083 0.5801661 -0.06633725 -0.1889828
## 6 -0.0001229084 -0.86757664 -1.0723597 -0.2193084 0.39623176 0.9976529
## PC245 PC246 PC247 PC248 PC249 PC250
## 1 -0.03663345 -0.24782527 0.14335088 0.43504223 0.4308960 -0.4678652
## 2 -0.09710169 -0.30092505 -0.52888014 -0.19119832 0.5755524 -0.7816370
## 3 -1.06060172 -0.27161587 -0.07987910 0.91746919 -0.4173636 0.7309444
## 4 -0.64842056 -0.31540590 -0.42646652 -0.08356693 0.2911434 -0.2375526
## 5 -0.70648488 -0.26242848 -0.05750221 -0.81863949 0.5778955 -0.4395519
## 6 -0.59023029 0.02796248 0.78929397 0.42907261 0.3948859 0.8022303
## PC251 PC252 PC253 PC254 PC255 PC256
## 1 -0.03108833 -0.20385605 0.105114291 0.16829097 0.24863423 -0.74787756
## 2 -0.67272981 -2.11743746 -0.962813634 -0.48096863 0.16234625 -0.86625132
## 3 -0.12902827 -0.76986690 -1.293063042 -0.96444605 -0.04387468 0.28508553
## 4 -0.26729211 -0.08206177 -0.005362255 0.03896155 -0.29149909 0.38052027
## 5 -0.20377971 -1.34169956 -1.022044053 0.05962690 0.35156918 0.07937815
## 6 -0.29341915 -0.62703506 0.041282384 -0.48062740 0.72712037 0.62392480
## PC257 PC258 PC259 PC260 PC261 PC262
## 1 -0.7697180 0.40089720 0.4339552 -0.55824285 -0.2093327 0.21814331
## 2 0.4105527 0.75817476 -0.6678635 0.32903355 1.4470483 0.70585317
## 3 -0.2065815 -0.18970889 0.3288979 -0.18087013 0.1607092 0.66136717
## 4 -0.3116770 0.09655213 0.1998789 -0.10129216 -0.2133069 0.03151782
## 5 0.5966901 -0.12101474 -0.2819402 -0.45810035 0.1281571 0.19481040
## 6 0.4534605 0.42192421 0.1411706 -0.08816502 -0.1949858 0.06988026
## PC263 PC264 PC265 PC266 PC267 PC268
## 1 0.146873825 -0.09008226 0.01357934 -0.006418211 0.12571093 -0.12486432
## 2 0.966183647 0.37115579 0.50569702 0.059550606 -0.10240939 -0.21044596
## 3 0.008156046 -0.46330765 -0.34672344 0.285162391 -0.26177369 -0.12450318
## 4 -0.126089840 0.12093451 0.19499993 -0.155145062 0.22724237 0.12420487
## 5 -0.240114332 0.02952695 0.08012235 -0.090074625 -0.56705310 0.05715747
## 6 -0.014379739 -0.06997275 0.62214492 -0.040115580 -0.04416475 0.06160330
## PC269 PC270 PC271 PC272
## 1 0.023309449 -0.0921853436 0.04454461 -3.257811e-14
## 2 0.135127637 -0.0341294759 0.13224932 6.079512e-14
## 3 -0.142426948 0.0006078693 -0.05376086 -1.312362e-14
## 4 0.003929166 0.0462662757 -0.04466131 -1.369000e-14
## 5 -0.028478806 0.0568702200 -0.06317037 5.757547e-15
## 6 0.017485779 0.0834136552 0.03491063 -8.094220e-15
## HIERARCHICAL CLUSTERING WITH DENDROGRAM
# Compute the distance matrix
dist_matrix <- dist(image_data_pca[, -which(names(image_data_pca) == "label")])
# Perform hierarchical clustering
hclust_result <- hclust(dist_matrix)
# Plot the dendrogram
plot(hclust_result, labels = FALSE, main = "Hierarchical Clustering Dendrogram")
# Cut the dendrogram to create clusters
image_data_pca$hclust_cluster <- cutree(hclust_result, k = 3) # Use the same number of clusters as needed
# View the first few rows with cluster assignments
head(image_data_pca)
## label PC1 PC2 PC3 PC4 PC5 PC6
## 1 animals -58.14521 13.598325 -7.428756 24.3266593 -4.163207 13.451794
## 2 animals -74.64666 -5.156060 5.001970 1.6111459 -2.536321 -1.978961
## 3 animals 52.35226 -6.547511 -1.778486 -5.3900555 8.683445 -5.383518
## 4 animals 26.71012 -8.983237 -5.072202 0.5916682 -13.921456 1.228989
## 5 animals 49.62508 -11.525293 3.996937 -6.4271599 11.427288 5.125093
## 6 animals -70.02827 1.233544 1.235105 -2.6385786 -1.009730 -2.473518
## PC7 PC8 PC9 PC10 PC11 PC12 PC13
## 1 -7.246686 10.3484276 18.396527 -20.9735118 7.665212 -1.223709 9.7661486
## 2 4.758578 -4.1573548 -7.288051 0.5464080 6.568517 4.202166 1.0609138
## 3 -5.101216 -5.3331147 -7.359514 -5.4694558 6.929463 5.274368 0.5801819
## 4 -1.118444 0.7099077 2.611820 4.5061734 -10.063562 -7.968550 2.1168562
## 5 -6.950746 2.1981888 -5.532644 -1.3001700 -3.170404 -6.921914 -5.1096480
## 6 4.789324 -9.7223496 -6.594333 -0.2638556 7.342828 -7.725873 8.3309107
## PC14 PC15 PC16 PC17 PC18 PC19 PC20
## 1 -8.589307 1.7440282 -0.96937872 5.247856 -14.580013 4.03089717 -1.574431
## 2 3.624687 0.6638783 -1.68275162 -1.729160 2.222442 0.07211831 -2.669976
## 3 2.643403 -4.7257563 -4.56200002 2.767324 -1.402001 1.39368966 -4.390307
## 4 3.401427 -3.3513393 -2.17005188 3.701088 -1.576520 0.61244888 1.628499
## 5 6.433527 -2.4410883 -0.08502605 -11.072349 1.654551 3.31269888 -3.227782
## 6 -4.798468 4.3282479 -2.51905019 2.869823 1.582746 -4.03390305 -4.636297
## PC21 PC22 PC23 PC24 PC25 PC26 PC27
## 1 -1.0887447 -1.842492 5.5573117 -1.003654 2.2880923 -2.2592886 1.992045
## 2 -3.6831395 2.006229 0.7982366 5.676819 1.2723683 3.4239073 2.537980
## 3 -0.1781007 4.762886 2.8689826 -1.259298 -0.5785560 -2.5189568 -2.282388
## 4 -1.8195387 -1.985511 -1.4931439 -3.386014 -0.1776313 -0.2357116 3.045508
## 5 -3.2248080 -1.807071 -4.8595177 4.508366 -1.7381338 -2.1359717 1.794149
## 6 8.6993344 6.687074 8.0231839 3.771955 3.7835809 -0.2252539 1.280243
## PC28 PC29 PC30 PC31 PC32 PC33 PC34
## 1 -0.8572263 2.032843 -2.6527760 5.886828 -6.7597688 2.7539262 -3.1488368
## 2 -2.8171541 1.817587 0.6762743 -2.539741 -1.5105086 -0.5121019 1.3762151
## 3 3.3043571 -1.783258 -2.2463943 -3.865237 2.2662650 -2.0077851 -0.7710093
## 4 -1.4396652 -1.764602 -2.1440823 3.043623 -0.1747232 -4.8788374 -2.6012241
## 5 -0.1033832 8.203709 0.5737664 9.259706 -0.8168780 0.3038920 1.4358834
## 6 -3.5382714 2.604498 -1.5720219 2.844797 -1.5238559 -5.3335031 -0.7927398
## PC35 PC36 PC37 PC38 PC39 PC40 PC41
## 1 4.8483225 -5.3930126 2.328737 0.04326729 -6.1148486 -1.9145598 4.88937563
## 2 0.2086322 -0.3267889 -2.203727 0.56130980 -0.5467172 1.3066728 0.46393913
## 3 -3.4671076 -3.0110958 1.434268 2.07261038 1.7353979 -1.1276989 -0.24955970
## 4 4.2213292 2.1968986 -3.111246 -1.93482460 -3.3906018 -2.0154812 -0.01665397
## 5 1.4914803 5.3200239 1.699593 -3.28379233 3.1619212 0.1141554 -1.59793970
## 6 3.7960810 -1.4873718 1.631703 -0.96503621 0.4637564 3.6814887 -1.53866485
## PC42 PC43 PC44 PC45 PC46 PC47 PC48
## 1 -3.0264767 1.503637 3.61692460 -0.47781805 -1.277603 -0.7832016 2.3124213
## 2 0.5905638 1.531309 -0.06582343 -0.65371699 2.893353 -3.2450635 -0.6389243
## 3 -0.5410192 2.478304 1.59902238 -1.76194014 4.549055 0.6822876 -1.1886987
## 4 -2.8986486 2.007960 3.12042472 -5.55984539 -5.065463 -0.8415219 -5.7378200
## 5 -4.1066400 -1.741594 -0.13024113 -0.09117024 -4.285965 1.2309521 -0.8506729
## 6 0.1229748 1.901486 1.13896705 0.68153550 1.714175 0.3381732 -2.1086294
## PC49 PC50 PC51 PC52 PC53 PC54 PC55
## 1 0.8802359 -2.5593866 0.6200195 -0.0567173 2.9124008 -2.169725 2.9298139
## 2 0.2315633 1.4814297 1.9262747 1.3051733 0.4138250 1.663167 1.1984200
## 3 2.1941946 0.4102929 5.1231724 3.2079479 1.7344112 2.341503 -0.6883234
## 4 6.6338906 3.2551439 2.1276800 -4.1112415 -0.3693939 2.414590 0.5384636
## 5 0.7666788 1.0489489 1.4279356 0.5105845 -1.0476433 -1.922105 2.6819672
## 6 0.8421291 2.9222505 -3.7718831 -1.4757521 -2.4616772 -0.714585 -1.3633848
## PC56 PC57 PC58 PC59 PC60 PC61 PC62
## 1 -0.4991225 1.921238 -1.0537818 0.1946998 -0.9515862 3.1826486 -1.5243647
## 2 0.2426136 -2.257656 1.6408995 1.2327985 -1.0861521 0.1708356 -3.2956218
## 3 1.4471919 -1.756228 -0.6602545 -1.9313381 1.2805220 -1.7070473 -1.4497996
## 4 1.2458723 5.435401 1.2168062 6.0250382 3.1725869 2.6564487 0.5863543
## 5 -1.3224160 -2.150182 0.7724563 -5.0174338 3.5397509 2.5318164 -3.6045068
## 6 -0.2786676 -4.133990 -0.4989249 -1.6766088 0.7010006 2.3559526 3.0659433
## PC63 PC64 PC65 PC66 PC67 PC68
## 1 0.9812079 -5.829792 5.9482744 -2.69102752 5.0939181034 -3.277481
## 2 1.1085127 1.491093 1.6002197 -3.13936235 -1.3512789526 1.843969
## 3 -4.0135061 -1.464759 -2.5199824 -0.09098276 -0.0001568446 2.802099
## 4 -0.2831231 3.875595 0.9105232 2.34276736 -1.8294087264 -0.334841
## 5 4.4586988 1.914282 0.4889268 -0.13803054 -0.9582203400 1.945892
## 6 -0.2690522 -0.110848 3.4668774 -5.35028939 2.2649280213 -2.361972
## PC69 PC70 PC71 PC72 PC73 PC74 PC75
## 1 2.5493905 -3.2330949 3.0012587 -0.4196688 -2.024338 1.988192 -1.5627479
## 2 -3.0032866 -0.6002520 -0.6691340 0.1481162 -1.256268 1.035433 -2.1141112
## 3 -1.4864755 0.1121305 1.1921233 -4.1660838 -2.767811 1.026298 0.9085139
## 4 -1.2819903 -0.7507333 -1.3184983 2.4197985 7.572676 -3.177136 -1.1800662
## 5 0.8029567 0.4844601 -0.5507999 1.4937899 2.768044 -4.319441 0.7897580
## 6 -2.8789289 -2.4712062 -1.5057878 2.7763098 1.473814 -5.699023 -0.5326113
## PC76 PC77 PC78 PC79 PC80 PC81 PC82
## 1 0.39302449 1.886070 -3.448810325 1.0652722 2.3868077 -1.835415 2.6510703
## 2 -0.68694098 -2.706392 -0.713656039 -1.7049490 1.9117998 -1.733461 -0.9072642
## 3 0.60586756 1.542705 1.478793110 0.3147393 1.7588788 -2.075557 -0.4980733
## 4 -0.05057837 -0.849868 0.005985211 -1.6386696 -2.1721950 3.472307 0.5386607
## 5 0.81737046 -1.271539 -0.608210001 -0.9580474 -2.4175870 2.884310 -2.0648012
## 6 3.30154874 -4.484033 -3.093490325 -3.1855006 0.7235791 1.667118 0.4277486
## PC83 PC84 PC85 PC86 PC87 PC88
## 1 0.7692693 2.83197957 -2.9774450 -2.83601091 1.2512792 -2.62900505
## 2 -2.3261309 0.04388618 -0.1953056 0.07052953 -0.6040480 -0.04807781
## 3 -0.9030499 0.33223001 -0.3438343 1.00081946 -0.5538626 -3.34729168
## 4 1.1353834 6.60948474 1.8698024 1.11089412 -1.1547067 -5.07077951
## 5 -0.7266554 -0.71259680 1.3287654 -2.54304966 -0.6985866 0.82300781
## 6 0.2470117 1.35639567 -1.1314662 2.55229763 1.8468859 -0.78385662
## PC89 PC90 PC91 PC92 PC93 PC94
## 1 -1.0314314 1.3510214 0.677442181 1.3571044 -1.2751050 -4.2568925
## 2 -0.4446115 1.5514603 -0.912005532 -0.8599368 -1.6788381 1.5006679
## 3 -1.6268483 2.8999321 -0.008157237 0.5928373 -1.9723987 -0.1601349
## 4 1.2154103 0.6304350 -4.132277452 -1.1289915 0.2724842 2.5291441
## 5 -0.2827980 2.7298053 4.616141268 2.1962944 4.9198526 -1.4868456
## 6 0.4654944 -0.3494171 -2.300876688 0.5754158 1.0315341 2.2553260
## PC95 PC96 PC97 PC98 PC99 PC100
## 1 0.4597365 2.0278957 -1.975251795 2.6325774 0.8331133 1.5889629
## 2 0.2253504 -0.2426623 -0.712902762 -0.7619161 -0.1830665 -0.2967540
## 3 -0.3474908 3.0206870 0.008722305 -0.9205243 -0.5222153 3.6377610
## 4 -3.5537975 1.5769658 -1.503639809 -0.8566628 -0.9633830 2.1818508
## 5 1.6999309 -2.3422670 0.177044688 1.0459541 -0.5134344 -1.3915187
## 6 3.0288227 -3.1688582 -1.181964087 -0.1256391 3.1405214 0.2393787
## PC101 PC102 PC103 PC104 PC105 PC106
## 1 -0.2407866 -0.212953083 -0.9113445 0.1847728 1.3759329 -1.8819843
## 2 -1.2966575 0.003153166 -0.1286541 0.1283170 0.9664540 -0.9464696
## 3 -0.1046846 1.091214181 -1.8373291 -0.8662597 0.4623483 -0.5156323
## 4 1.0767497 1.250895120 -2.8395290 -2.5418374 -1.5368111 -2.5086062
## 5 1.2671838 2.625600536 2.2072017 -0.1088477 0.4310251 -1.3930915
## 6 1.9867636 1.747549653 1.5987193 -0.3100854 -1.5767972 3.2570295
## PC107 PC108 PC109 PC110 PC111 PC112
## 1 -1.13636074 -1.93521802 0.88702641 0.6091598 2.3557809 -0.5911353
## 2 0.03789206 -0.34040799 2.12202616 0.1481390 0.7343106 -1.2013021
## 3 -2.97037292 -0.17464408 -1.86954471 -3.1847799 0.3062943 2.1782989
## 4 -2.66985566 -0.07277504 -0.02042602 1.3480388 -1.9880630 6.6442254
## 5 1.91485583 1.51367866 -1.11829768 -3.0980322 2.1175155 1.6708645
## 6 5.14095338 3.57526386 -1.05013670 -2.8676093 -0.3112764 -1.4902176
## PC113 PC114 PC115 PC116 PC117 PC118 PC119
## 1 -1.0943250 -2.213185 1.45717994 0.4514432 1.8372072 2.42135389 -0.2814518
## 2 0.3620586 -1.915811 -0.06289955 1.5678221 1.7178368 0.04758622 -0.8502151
## 3 -1.0474979 -2.544575 -0.90924603 0.4779538 -0.4803815 -0.62583528 0.1381540
## 4 0.1006584 -2.945398 -2.35227625 -0.8995394 0.9045506 -2.97201292 -0.3895727
## 5 -0.3690799 -2.208144 -1.42246315 -0.6294444 1.4324659 1.35477735 0.2507738
## 6 0.7097733 -1.229412 2.18717101 1.6290000 -1.0452594 -0.31357455 0.3037611
## PC120 PC121 PC122 PC123 PC124 PC125
## 1 -3.4136957 -1.1382392 1.5833553 0.5869627 1.70366125 -3.8641971
## 2 0.4463641 -0.4430681 -0.6225348 -1.6957830 0.91010402 -1.6731425
## 3 -1.1921577 -0.8514960 2.1758285 0.2865177 -0.25153744 -0.7516465
## 4 0.3257640 0.6347509 -3.6873721 2.4586190 -0.05194589 -2.5250893
## 5 0.2998460 -3.7295632 -1.0437423 -0.5463102 -0.10623827 1.1175420
## 6 3.0092935 0.9053302 1.3301166 2.5492361 1.08688355 -1.5909770
## PC126 PC127 PC128 PC129 PC130 PC131
## 1 1.29544690 0.5790935 0.02699068 0.9486240 0.72755406 -2.17882048
## 2 0.08341500 0.2788313 -0.02718870 -0.4350593 1.76603842 -0.84066659
## 3 0.09147219 -1.0971271 -0.29134270 -1.4866775 1.36417982 -1.56119221
## 4 -0.55324995 -1.1738348 -1.06192421 2.0961866 -1.82148710 0.56056362
## 5 0.73612011 -2.9069574 0.60931267 -0.1234794 -0.08128759 0.09595543
## 6 0.01761993 3.2273222 -0.50510991 -0.2942618 -0.24604934 0.45465719
## PC132 PC133 PC134 PC135 PC136 PC137 PC138
## 1 -0.5999364 -0.6738070 -1.7743340 2.29347722 0.7365698 0.1394983 3.0559611
## 2 2.1528600 0.9938068 2.2412993 0.03917586 -1.1086899 -0.2303570 1.0886627
## 3 1.6523374 -0.9068410 0.6603102 1.41565130 1.8508750 -0.8591478 -1.2414006
## 4 -2.0432162 0.3101757 -1.9618360 1.40175036 -1.8024466 -1.5875573 0.2986731
## 5 -0.1272551 -0.5665591 -5.2380856 1.66186343 0.2189350 1.1793410 0.5986459
## 6 2.2426341 0.7222964 -2.2291849 0.64714319 0.4604967 1.1918854 0.1296288
## PC139 PC140 PC141 PC142 PC143 PC144 PC145
## 1 -0.1022356 -0.54246124 -1.8818133 -0.2623976 1.1465802 1.5678044 0.8051387
## 2 2.6798733 -0.06930742 1.7079142 0.3709147 -0.7985277 -0.6277222 -0.1167825
## 3 0.5455464 -2.52181590 -0.6558929 2.8771507 0.9724621 -0.4695539 0.9778894
## 4 -2.8763473 -0.79224757 0.8066025 -0.2960226 1.0522047 0.9190915 0.4518235
## 5 2.2590875 -0.12523740 -1.7941894 0.1316953 0.7064845 -0.4790879 -0.0797828
## 6 2.6609262 0.49131056 2.6705644 2.1418180 -0.8414512 3.0894941 1.3341050
## PC146 PC147 PC148 PC149 PC150 PC151
## 1 0.7549378 -2.1664329 -0.9991603 -0.79071329 -1.8541817 3.0540598
## 2 -0.3172204 -1.4854327 -1.2923375 0.99270218 0.3880293 1.7177283
## 3 -0.6305013 0.3970617 -1.7311601 -0.23563317 1.7447301 -0.7010219
## 4 0.3313404 -0.3706326 -2.1497563 -0.65845416 2.5339869 -0.7272631
## 5 1.9568290 -0.2996651 -1.1522971 0.04708327 -1.2532015 -1.2578629
## 6 0.0331795 2.5430808 1.1108991 0.89160337 1.0630195 -0.8932368
## PC152 PC153 PC154 PC155 PC156 PC157
## 1 1.820746978 1.8037021 0.4761580 -0.1498789 -1.99494508 -0.4594298
## 2 -2.432503368 -1.5184305 -1.0637095 1.7226812 -0.29574773 1.6524783
## 3 0.008645353 -2.1153025 -0.1368159 -0.1985538 -0.76071444 0.5455163
## 4 -1.980498295 0.7429939 -0.6474403 -0.9953979 -0.07412149 1.9217394
## 5 -1.332696146 1.4069065 1.7138751 -1.0837778 0.35739342 -0.8534527
## 6 0.076603782 -0.8161794 0.6867747 0.9920706 -0.11000657 -0.7460246
## PC158 PC159 PC160 PC161 PC162 PC163 PC164
## 1 -2.2055750 -0.1977910 -0.1169787 2.1906885 1.8385723 0.3097425 0.7963369
## 2 0.8136665 0.6820623 1.3281577 -0.5142368 -0.2578992 -0.5818370 -0.8192416
## 3 0.3669588 -1.0223939 1.6023600 -0.8058838 0.8098614 -1.7464979 0.5305701
## 4 -3.7727449 -0.6605898 1.9801859 -1.5578137 1.0605157 3.6347905 1.2940062
## 5 -1.3145255 -2.6576151 -1.0093012 1.6598910 0.3404654 -3.7151922 1.8981635
## 6 -1.4763290 1.1710419 1.7726156 -2.0585256 0.4548694 -0.7986691 2.3031214
## PC165 PC166 PC167 PC168 PC169 PC170 PC171
## 1 0.3473578 -0.5011918 -1.3515581 -0.6056545 -1.7179540 0.8082191 0.77429349
## 2 0.5633644 -2.5925734 -2.6011000 1.0939927 -2.3696040 -0.6382991 -1.19811756
## 3 -0.8519544 -0.2492818 0.8888210 -2.0900794 0.4834742 2.1126486 0.07692056
## 4 -1.0290776 0.8035855 -0.4246510 -0.4559358 -0.9149341 -0.1250156 1.91073024
## 5 -1.2244088 0.5487061 -1.1577059 0.6538769 -1.7422392 1.0023800 -1.59129009
## 6 -0.7323732 1.7114858 0.9229977 -0.8129150 0.1448296 -0.1180590 -0.41764889
## PC172 PC173 PC174 PC175 PC176 PC177
## 1 1.3926857 1.1595681 -1.0829603 -1.2037211 -0.27937268 -0.16839189
## 2 -1.5139393 -1.3036146 1.3131998 1.0217514 -0.90417151 2.29226807
## 3 -0.1586621 0.1814933 -0.9342765 1.8853096 2.12577006 0.17367980
## 4 -0.4047469 -1.2160269 -0.7008441 0.5385165 0.04896729 0.33414168
## 5 3.1240422 1.7367312 -0.5926582 0.4700043 -0.18398368 0.78372660
## 6 -0.2307994 0.8977436 -1.3888946 -1.2043016 -0.34310888 -0.05154701
## PC178 PC179 PC180 PC181 PC182 PC183 PC184
## 1 -0.2579525 1.5871850 0.1172471 0.4622799 0.5969834 0.4620162 0.8003686
## 2 -0.4707180 0.3730636 0.8829285 -0.9746387 2.2638574 0.2351404 0.6432853
## 3 -1.5531632 -0.1398234 -1.1011463 -0.2253626 -1.3729489 -0.9786002 1.1874003
## 4 -1.6731013 0.7264536 0.5972890 -0.4466412 -1.3448402 -0.5301237 -0.3511308
## 5 -0.1844421 0.8287453 -1.9499825 0.2327942 1.4372109 -0.2959663 1.0565846
## 6 -0.6642001 -1.0863089 2.1465256 -1.3806699 -1.8581635 -0.8630038 0.8702676
## PC185 PC186 PC187 PC188 PC189 PC190
## 1 1.9067154 -0.7514920 -1.7335572 -0.23084300 -0.348402502 2.99856135
## 2 -0.7598138 1.5199678 -0.9377815 -0.91266890 0.009252463 -0.04765192
## 3 0.9257894 -1.7432146 -0.1326923 0.02355832 1.606626777 1.41284158
## 4 1.3008389 -0.2013555 0.3196203 -2.17949977 0.238036921 -1.19608049
## 5 0.3371632 0.2369197 0.5264804 0.49913395 1.948003803 0.42844985
## 6 2.5882170 1.8696508 -0.2724100 1.58435958 0.044141879 0.92946371
## PC191 PC192 PC193 PC194 PC195 PC196
## 1 0.3783679 0.0613527075 0.07200679 0.1821854 0.1439338 1.8018135
## 2 -0.3950409 1.2280115165 -0.28578286 -0.1730925 1.4183358 1.7221565
## 3 1.3615682 -2.9059988601 -1.68048368 1.3199039 -0.5446851 1.8655673
## 4 -0.4885119 -0.6098533456 -0.15039201 0.2416747 -0.3446358 -0.7559024
## 5 -1.7355734 1.9390572949 1.94755128 -0.1097568 -0.8980161 0.2414267
## 6 0.2102137 -0.0002098984 -0.10236188 0.3941120 -0.1129813 -0.1792392
## PC197 PC198 PC199 PC200 PC201 PC202
## 1 -0.6412252 -0.92671297 -0.3305855 -0.08187078 1.1898519 1.1271977
## 2 3.0210328 0.67745519 1.4153045 -0.39713198 -1.8967710 -0.6815027
## 3 1.8898595 -1.64397538 1.2771160 2.85568719 0.5756301 -0.2705898
## 4 0.1173547 -0.07706789 1.6031958 -0.86443133 -0.1860953 0.1522143
## 5 -1.1583392 1.02779490 0.2330573 -0.46165533 -0.3169634 -1.6699160
## 6 0.1842023 -1.41505181 -0.8394547 -0.68143956 -1.8942747 2.9224662
## PC203 PC204 PC205 PC206 PC207 PC208
## 1 1.3659984 -0.36393285 -0.53364837 -0.54466808 -0.4232130 -0.07486389
## 2 1.1709522 -1.69972677 0.43289871 -1.61651639 1.4444470 -0.83844273
## 3 -0.5462999 -0.20181692 3.04840847 0.08816500 -1.4442835 1.13484789
## 4 1.0322116 0.37524999 -0.08447736 0.02897835 1.3353340 0.10804277
## 5 0.1110638 0.92820510 1.60614433 0.05169294 -0.9316292 -1.35733320
## 6 -2.0634171 -0.03421736 -2.34832793 -0.28814919 0.4732185 0.81809549
## PC209 PC210 PC211 PC212 PC213 PC214
## 1 -0.5026391 -0.1194549 0.9589277 0.37055586 0.8257252 0.9615352
## 2 0.2150714 -1.4859424 -0.2539543 -0.84577005 2.0951922 -0.4304617
## 3 -1.0895612 -3.5445365 -0.5374026 -1.34783392 0.7191190 -0.3328197
## 4 1.3665844 0.2872115 0.0815261 0.04678088 0.8289973 -0.4711931
## 5 0.1684994 -0.1164839 0.0777921 -1.60219014 0.3522527 0.4042573
## 6 -1.5379786 1.0612746 0.9230516 -0.32392989 0.4101378 -0.3880924
## PC215 PC216 PC217 PC218 PC219 PC220
## 1 -0.006731985 -0.0342042 -1.16195895 -0.09447131 -0.3269178 0.73309113
## 2 -0.159406911 -1.5318600 2.08791354 1.95102307 2.1134273 1.56334493
## 3 -1.181266746 2.4206161 0.81756074 1.91833504 1.1827931 -0.13693965
## 4 -1.159403016 0.2405405 0.05744732 -0.60717723 0.8983240 -0.34480165
## 5 0.382971447 -0.9328791 -1.43631082 -0.40700076 0.7392988 0.83724599
## 6 1.433590554 0.4542456 0.68833584 -1.04244405 0.6565995 0.09198843
## PC221 PC222 PC223 PC224 PC225 PC226
## 1 0.9571004 0.5953784 0.12722247 0.1794456 -0.04644415 -0.59259468
## 2 1.5900298 1.6160296 -0.42287149 -1.5727288 0.49966145 -0.98801707
## 3 0.4278351 -1.1438159 -1.74180154 -0.6149163 -0.05421788 -0.01519598
## 4 -0.8053270 0.3694774 -0.95978170 -0.6268868 -0.85837691 -0.79489028
## 5 -0.5570423 0.8144936 -0.01182757 -2.0022380 0.27685927 -0.05495602
## 6 0.8189916 -1.2572098 -0.76509371 0.4969721 0.43447167 -0.65489756
## PC227 PC228 PC229 PC230 PC231 PC232
## 1 -0.1204424 -0.85016960 0.06584485 0.3882691 0.3489550 0.20805076
## 2 0.9365967 -0.04204193 1.98669177 0.4577182 1.3392118 -1.50990316
## 3 0.5279164 1.37470389 -0.58877275 -1.2093675 -1.0734995 -0.67689544
## 4 -0.9304920 -0.43096800 0.57216307 0.2072480 0.3356422 0.08920201
## 5 -0.0524963 1.37601430 -0.46922188 -0.7536906 0.6103479 -0.47548490
## 6 0.3159936 1.36247797 -0.13504430 -0.1599891 -0.4289653 1.15273931
## PC233 PC234 PC235 PC236 PC237 PC238
## 1 0.2017564 0.41865606 0.1207001 -0.06033403 -0.73306832 -0.19044893
## 2 1.6312960 -2.07014578 0.2702928 -0.09306538 0.98810993 0.02353324
## 3 0.3731223 0.79625164 0.9627138 -0.94565365 -0.18053175 -0.22727264
## 4 0.8070292 0.09936348 -1.0455617 -0.20256760 -1.07544423 -0.32049529
## 5 -0.6855594 -0.63314056 0.3046755 -1.06689836 0.78867543 1.66837810
## 6 0.7190514 -0.88332222 0.2728780 0.45585701 0.03793098 0.22826457
## PC239 PC240 PC241 PC242 PC243 PC244
## 1 1.0324854674 0.04653173 0.7195581 -0.4024176 -0.56207606 -0.2108877
## 2 -1.7032703701 0.67253202 2.0476265 1.3848056 0.51456432 -3.3566951
## 3 0.0256513150 -0.54515805 -1.7704284 0.9755051 0.78695503 2.9813260
## 4 -0.6179652169 -0.54263113 -0.4603016 0.5414448 -0.14285794 -0.7862895
## 5 1.1146940689 0.60217512 -2.3306083 0.5801661 -0.06633725 -0.1889828
## 6 -0.0001229084 -0.86757664 -1.0723597 -0.2193084 0.39623176 0.9976529
## PC245 PC246 PC247 PC248 PC249 PC250
## 1 -0.03663345 -0.24782527 0.14335088 0.43504223 0.4308960 -0.4678652
## 2 -0.09710169 -0.30092505 -0.52888014 -0.19119832 0.5755524 -0.7816370
## 3 -1.06060172 -0.27161587 -0.07987910 0.91746919 -0.4173636 0.7309444
## 4 -0.64842056 -0.31540590 -0.42646652 -0.08356693 0.2911434 -0.2375526
## 5 -0.70648488 -0.26242848 -0.05750221 -0.81863949 0.5778955 -0.4395519
## 6 -0.59023029 0.02796248 0.78929397 0.42907261 0.3948859 0.8022303
## PC251 PC252 PC253 PC254 PC255 PC256
## 1 -0.03108833 -0.20385605 0.105114291 0.16829097 0.24863423 -0.74787756
## 2 -0.67272981 -2.11743746 -0.962813634 -0.48096863 0.16234625 -0.86625132
## 3 -0.12902827 -0.76986690 -1.293063042 -0.96444605 -0.04387468 0.28508553
## 4 -0.26729211 -0.08206177 -0.005362255 0.03896155 -0.29149909 0.38052027
## 5 -0.20377971 -1.34169956 -1.022044053 0.05962690 0.35156918 0.07937815
## 6 -0.29341915 -0.62703506 0.041282384 -0.48062740 0.72712037 0.62392480
## PC257 PC258 PC259 PC260 PC261 PC262
## 1 -0.7697180 0.40089720 0.4339552 -0.55824285 -0.2093327 0.21814331
## 2 0.4105527 0.75817476 -0.6678635 0.32903355 1.4470483 0.70585317
## 3 -0.2065815 -0.18970889 0.3288979 -0.18087013 0.1607092 0.66136717
## 4 -0.3116770 0.09655213 0.1998789 -0.10129216 -0.2133069 0.03151782
## 5 0.5966901 -0.12101474 -0.2819402 -0.45810035 0.1281571 0.19481040
## 6 0.4534605 0.42192421 0.1411706 -0.08816502 -0.1949858 0.06988026
## PC263 PC264 PC265 PC266 PC267 PC268
## 1 0.146873825 -0.09008226 0.01357934 -0.006418211 0.12571093 -0.12486432
## 2 0.966183647 0.37115579 0.50569702 0.059550606 -0.10240939 -0.21044596
## 3 0.008156046 -0.46330765 -0.34672344 0.285162391 -0.26177369 -0.12450318
## 4 -0.126089840 0.12093451 0.19499993 -0.155145062 0.22724237 0.12420487
## 5 -0.240114332 0.02952695 0.08012235 -0.090074625 -0.56705310 0.05715747
## 6 -0.014379739 -0.06997275 0.62214492 -0.040115580 -0.04416475 0.06160330
## PC269 PC270 PC271 PC272 hclust_cluster
## 1 0.023309449 -0.0921853436 0.04454461 -3.257811e-14 1
## 2 0.135127637 -0.0341294759 0.13224932 6.079512e-14 1
## 3 -0.142426948 0.0006078693 -0.05376086 -1.312362e-14 2
## 4 0.003929166 0.0462662757 -0.04466131 -1.369000e-14 3
## 5 -0.028478806 0.0568702200 -0.06317037 5.757547e-15 2
## 6 0.017485779 0.0834136552 0.03491063 -8.094220e-15 1
## K-MEANS CLUSTERING
# Set the number of clusters (k)
set.seed(123) # For reproducibility
k <- 4 # Specify the number of clusters
# Perform K-means clustering
kmeans_result <- kmeans(image_data_pca[, -which(names(image_data_pca) == "label")], centers = k)
# Add the cluster assignments to the PCA data
image_data_pca$cluster <- as.factor(kmeans_result$cluster)
# View the first few rows with cluster assignments
head(image_data_pca)
## label PC1 PC2 PC3 PC4 PC5 PC6
## 1 animals -58.14521 13.598325 -7.428756 24.3266593 -4.163207 13.451794
## 2 animals -74.64666 -5.156060 5.001970 1.6111459 -2.536321 -1.978961
## 3 animals 52.35226 -6.547511 -1.778486 -5.3900555 8.683445 -5.383518
## 4 animals 26.71012 -8.983237 -5.072202 0.5916682 -13.921456 1.228989
## 5 animals 49.62508 -11.525293 3.996937 -6.4271599 11.427288 5.125093
## 6 animals -70.02827 1.233544 1.235105 -2.6385786 -1.009730 -2.473518
## PC7 PC8 PC9 PC10 PC11 PC12 PC13
## 1 -7.246686 10.3484276 18.396527 -20.9735118 7.665212 -1.223709 9.7661486
## 2 4.758578 -4.1573548 -7.288051 0.5464080 6.568517 4.202166 1.0609138
## 3 -5.101216 -5.3331147 -7.359514 -5.4694558 6.929463 5.274368 0.5801819
## 4 -1.118444 0.7099077 2.611820 4.5061734 -10.063562 -7.968550 2.1168562
## 5 -6.950746 2.1981888 -5.532644 -1.3001700 -3.170404 -6.921914 -5.1096480
## 6 4.789324 -9.7223496 -6.594333 -0.2638556 7.342828 -7.725873 8.3309107
## PC14 PC15 PC16 PC17 PC18 PC19 PC20
## 1 -8.589307 1.7440282 -0.96937872 5.247856 -14.580013 4.03089717 -1.574431
## 2 3.624687 0.6638783 -1.68275162 -1.729160 2.222442 0.07211831 -2.669976
## 3 2.643403 -4.7257563 -4.56200002 2.767324 -1.402001 1.39368966 -4.390307
## 4 3.401427 -3.3513393 -2.17005188 3.701088 -1.576520 0.61244888 1.628499
## 5 6.433527 -2.4410883 -0.08502605 -11.072349 1.654551 3.31269888 -3.227782
## 6 -4.798468 4.3282479 -2.51905019 2.869823 1.582746 -4.03390305 -4.636297
## PC21 PC22 PC23 PC24 PC25 PC26 PC27
## 1 -1.0887447 -1.842492 5.5573117 -1.003654 2.2880923 -2.2592886 1.992045
## 2 -3.6831395 2.006229 0.7982366 5.676819 1.2723683 3.4239073 2.537980
## 3 -0.1781007 4.762886 2.8689826 -1.259298 -0.5785560 -2.5189568 -2.282388
## 4 -1.8195387 -1.985511 -1.4931439 -3.386014 -0.1776313 -0.2357116 3.045508
## 5 -3.2248080 -1.807071 -4.8595177 4.508366 -1.7381338 -2.1359717 1.794149
## 6 8.6993344 6.687074 8.0231839 3.771955 3.7835809 -0.2252539 1.280243
## PC28 PC29 PC30 PC31 PC32 PC33 PC34
## 1 -0.8572263 2.032843 -2.6527760 5.886828 -6.7597688 2.7539262 -3.1488368
## 2 -2.8171541 1.817587 0.6762743 -2.539741 -1.5105086 -0.5121019 1.3762151
## 3 3.3043571 -1.783258 -2.2463943 -3.865237 2.2662650 -2.0077851 -0.7710093
## 4 -1.4396652 -1.764602 -2.1440823 3.043623 -0.1747232 -4.8788374 -2.6012241
## 5 -0.1033832 8.203709 0.5737664 9.259706 -0.8168780 0.3038920 1.4358834
## 6 -3.5382714 2.604498 -1.5720219 2.844797 -1.5238559 -5.3335031 -0.7927398
## PC35 PC36 PC37 PC38 PC39 PC40 PC41
## 1 4.8483225 -5.3930126 2.328737 0.04326729 -6.1148486 -1.9145598 4.88937563
## 2 0.2086322 -0.3267889 -2.203727 0.56130980 -0.5467172 1.3066728 0.46393913
## 3 -3.4671076 -3.0110958 1.434268 2.07261038 1.7353979 -1.1276989 -0.24955970
## 4 4.2213292 2.1968986 -3.111246 -1.93482460 -3.3906018 -2.0154812 -0.01665397
## 5 1.4914803 5.3200239 1.699593 -3.28379233 3.1619212 0.1141554 -1.59793970
## 6 3.7960810 -1.4873718 1.631703 -0.96503621 0.4637564 3.6814887 -1.53866485
## PC42 PC43 PC44 PC45 PC46 PC47 PC48
## 1 -3.0264767 1.503637 3.61692460 -0.47781805 -1.277603 -0.7832016 2.3124213
## 2 0.5905638 1.531309 -0.06582343 -0.65371699 2.893353 -3.2450635 -0.6389243
## 3 -0.5410192 2.478304 1.59902238 -1.76194014 4.549055 0.6822876 -1.1886987
## 4 -2.8986486 2.007960 3.12042472 -5.55984539 -5.065463 -0.8415219 -5.7378200
## 5 -4.1066400 -1.741594 -0.13024113 -0.09117024 -4.285965 1.2309521 -0.8506729
## 6 0.1229748 1.901486 1.13896705 0.68153550 1.714175 0.3381732 -2.1086294
## PC49 PC50 PC51 PC52 PC53 PC54 PC55
## 1 0.8802359 -2.5593866 0.6200195 -0.0567173 2.9124008 -2.169725 2.9298139
## 2 0.2315633 1.4814297 1.9262747 1.3051733 0.4138250 1.663167 1.1984200
## 3 2.1941946 0.4102929 5.1231724 3.2079479 1.7344112 2.341503 -0.6883234
## 4 6.6338906 3.2551439 2.1276800 -4.1112415 -0.3693939 2.414590 0.5384636
## 5 0.7666788 1.0489489 1.4279356 0.5105845 -1.0476433 -1.922105 2.6819672
## 6 0.8421291 2.9222505 -3.7718831 -1.4757521 -2.4616772 -0.714585 -1.3633848
## PC56 PC57 PC58 PC59 PC60 PC61 PC62
## 1 -0.4991225 1.921238 -1.0537818 0.1946998 -0.9515862 3.1826486 -1.5243647
## 2 0.2426136 -2.257656 1.6408995 1.2327985 -1.0861521 0.1708356 -3.2956218
## 3 1.4471919 -1.756228 -0.6602545 -1.9313381 1.2805220 -1.7070473 -1.4497996
## 4 1.2458723 5.435401 1.2168062 6.0250382 3.1725869 2.6564487 0.5863543
## 5 -1.3224160 -2.150182 0.7724563 -5.0174338 3.5397509 2.5318164 -3.6045068
## 6 -0.2786676 -4.133990 -0.4989249 -1.6766088 0.7010006 2.3559526 3.0659433
## PC63 PC64 PC65 PC66 PC67 PC68
## 1 0.9812079 -5.829792 5.9482744 -2.69102752 5.0939181034 -3.277481
## 2 1.1085127 1.491093 1.6002197 -3.13936235 -1.3512789526 1.843969
## 3 -4.0135061 -1.464759 -2.5199824 -0.09098276 -0.0001568446 2.802099
## 4 -0.2831231 3.875595 0.9105232 2.34276736 -1.8294087264 -0.334841
## 5 4.4586988 1.914282 0.4889268 -0.13803054 -0.9582203400 1.945892
## 6 -0.2690522 -0.110848 3.4668774 -5.35028939 2.2649280213 -2.361972
## PC69 PC70 PC71 PC72 PC73 PC74 PC75
## 1 2.5493905 -3.2330949 3.0012587 -0.4196688 -2.024338 1.988192 -1.5627479
## 2 -3.0032866 -0.6002520 -0.6691340 0.1481162 -1.256268 1.035433 -2.1141112
## 3 -1.4864755 0.1121305 1.1921233 -4.1660838 -2.767811 1.026298 0.9085139
## 4 -1.2819903 -0.7507333 -1.3184983 2.4197985 7.572676 -3.177136 -1.1800662
## 5 0.8029567 0.4844601 -0.5507999 1.4937899 2.768044 -4.319441 0.7897580
## 6 -2.8789289 -2.4712062 -1.5057878 2.7763098 1.473814 -5.699023 -0.5326113
## PC76 PC77 PC78 PC79 PC80 PC81 PC82
## 1 0.39302449 1.886070 -3.448810325 1.0652722 2.3868077 -1.835415 2.6510703
## 2 -0.68694098 -2.706392 -0.713656039 -1.7049490 1.9117998 -1.733461 -0.9072642
## 3 0.60586756 1.542705 1.478793110 0.3147393 1.7588788 -2.075557 -0.4980733
## 4 -0.05057837 -0.849868 0.005985211 -1.6386696 -2.1721950 3.472307 0.5386607
## 5 0.81737046 -1.271539 -0.608210001 -0.9580474 -2.4175870 2.884310 -2.0648012
## 6 3.30154874 -4.484033 -3.093490325 -3.1855006 0.7235791 1.667118 0.4277486
## PC83 PC84 PC85 PC86 PC87 PC88
## 1 0.7692693 2.83197957 -2.9774450 -2.83601091 1.2512792 -2.62900505
## 2 -2.3261309 0.04388618 -0.1953056 0.07052953 -0.6040480 -0.04807781
## 3 -0.9030499 0.33223001 -0.3438343 1.00081946 -0.5538626 -3.34729168
## 4 1.1353834 6.60948474 1.8698024 1.11089412 -1.1547067 -5.07077951
## 5 -0.7266554 -0.71259680 1.3287654 -2.54304966 -0.6985866 0.82300781
## 6 0.2470117 1.35639567 -1.1314662 2.55229763 1.8468859 -0.78385662
## PC89 PC90 PC91 PC92 PC93 PC94
## 1 -1.0314314 1.3510214 0.677442181 1.3571044 -1.2751050 -4.2568925
## 2 -0.4446115 1.5514603 -0.912005532 -0.8599368 -1.6788381 1.5006679
## 3 -1.6268483 2.8999321 -0.008157237 0.5928373 -1.9723987 -0.1601349
## 4 1.2154103 0.6304350 -4.132277452 -1.1289915 0.2724842 2.5291441
## 5 -0.2827980 2.7298053 4.616141268 2.1962944 4.9198526 -1.4868456
## 6 0.4654944 -0.3494171 -2.300876688 0.5754158 1.0315341 2.2553260
## PC95 PC96 PC97 PC98 PC99 PC100
## 1 0.4597365 2.0278957 -1.975251795 2.6325774 0.8331133 1.5889629
## 2 0.2253504 -0.2426623 -0.712902762 -0.7619161 -0.1830665 -0.2967540
## 3 -0.3474908 3.0206870 0.008722305 -0.9205243 -0.5222153 3.6377610
## 4 -3.5537975 1.5769658 -1.503639809 -0.8566628 -0.9633830 2.1818508
## 5 1.6999309 -2.3422670 0.177044688 1.0459541 -0.5134344 -1.3915187
## 6 3.0288227 -3.1688582 -1.181964087 -0.1256391 3.1405214 0.2393787
## PC101 PC102 PC103 PC104 PC105 PC106
## 1 -0.2407866 -0.212953083 -0.9113445 0.1847728 1.3759329 -1.8819843
## 2 -1.2966575 0.003153166 -0.1286541 0.1283170 0.9664540 -0.9464696
## 3 -0.1046846 1.091214181 -1.8373291 -0.8662597 0.4623483 -0.5156323
## 4 1.0767497 1.250895120 -2.8395290 -2.5418374 -1.5368111 -2.5086062
## 5 1.2671838 2.625600536 2.2072017 -0.1088477 0.4310251 -1.3930915
## 6 1.9867636 1.747549653 1.5987193 -0.3100854 -1.5767972 3.2570295
## PC107 PC108 PC109 PC110 PC111 PC112
## 1 -1.13636074 -1.93521802 0.88702641 0.6091598 2.3557809 -0.5911353
## 2 0.03789206 -0.34040799 2.12202616 0.1481390 0.7343106 -1.2013021
## 3 -2.97037292 -0.17464408 -1.86954471 -3.1847799 0.3062943 2.1782989
## 4 -2.66985566 -0.07277504 -0.02042602 1.3480388 -1.9880630 6.6442254
## 5 1.91485583 1.51367866 -1.11829768 -3.0980322 2.1175155 1.6708645
## 6 5.14095338 3.57526386 -1.05013670 -2.8676093 -0.3112764 -1.4902176
## PC113 PC114 PC115 PC116 PC117 PC118 PC119
## 1 -1.0943250 -2.213185 1.45717994 0.4514432 1.8372072 2.42135389 -0.2814518
## 2 0.3620586 -1.915811 -0.06289955 1.5678221 1.7178368 0.04758622 -0.8502151
## 3 -1.0474979 -2.544575 -0.90924603 0.4779538 -0.4803815 -0.62583528 0.1381540
## 4 0.1006584 -2.945398 -2.35227625 -0.8995394 0.9045506 -2.97201292 -0.3895727
## 5 -0.3690799 -2.208144 -1.42246315 -0.6294444 1.4324659 1.35477735 0.2507738
## 6 0.7097733 -1.229412 2.18717101 1.6290000 -1.0452594 -0.31357455 0.3037611
## PC120 PC121 PC122 PC123 PC124 PC125
## 1 -3.4136957 -1.1382392 1.5833553 0.5869627 1.70366125 -3.8641971
## 2 0.4463641 -0.4430681 -0.6225348 -1.6957830 0.91010402 -1.6731425
## 3 -1.1921577 -0.8514960 2.1758285 0.2865177 -0.25153744 -0.7516465
## 4 0.3257640 0.6347509 -3.6873721 2.4586190 -0.05194589 -2.5250893
## 5 0.2998460 -3.7295632 -1.0437423 -0.5463102 -0.10623827 1.1175420
## 6 3.0092935 0.9053302 1.3301166 2.5492361 1.08688355 -1.5909770
## PC126 PC127 PC128 PC129 PC130 PC131
## 1 1.29544690 0.5790935 0.02699068 0.9486240 0.72755406 -2.17882048
## 2 0.08341500 0.2788313 -0.02718870 -0.4350593 1.76603842 -0.84066659
## 3 0.09147219 -1.0971271 -0.29134270 -1.4866775 1.36417982 -1.56119221
## 4 -0.55324995 -1.1738348 -1.06192421 2.0961866 -1.82148710 0.56056362
## 5 0.73612011 -2.9069574 0.60931267 -0.1234794 -0.08128759 0.09595543
## 6 0.01761993 3.2273222 -0.50510991 -0.2942618 -0.24604934 0.45465719
## PC132 PC133 PC134 PC135 PC136 PC137 PC138
## 1 -0.5999364 -0.6738070 -1.7743340 2.29347722 0.7365698 0.1394983 3.0559611
## 2 2.1528600 0.9938068 2.2412993 0.03917586 -1.1086899 -0.2303570 1.0886627
## 3 1.6523374 -0.9068410 0.6603102 1.41565130 1.8508750 -0.8591478 -1.2414006
## 4 -2.0432162 0.3101757 -1.9618360 1.40175036 -1.8024466 -1.5875573 0.2986731
## 5 -0.1272551 -0.5665591 -5.2380856 1.66186343 0.2189350 1.1793410 0.5986459
## 6 2.2426341 0.7222964 -2.2291849 0.64714319 0.4604967 1.1918854 0.1296288
## PC139 PC140 PC141 PC142 PC143 PC144 PC145
## 1 -0.1022356 -0.54246124 -1.8818133 -0.2623976 1.1465802 1.5678044 0.8051387
## 2 2.6798733 -0.06930742 1.7079142 0.3709147 -0.7985277 -0.6277222 -0.1167825
## 3 0.5455464 -2.52181590 -0.6558929 2.8771507 0.9724621 -0.4695539 0.9778894
## 4 -2.8763473 -0.79224757 0.8066025 -0.2960226 1.0522047 0.9190915 0.4518235
## 5 2.2590875 -0.12523740 -1.7941894 0.1316953 0.7064845 -0.4790879 -0.0797828
## 6 2.6609262 0.49131056 2.6705644 2.1418180 -0.8414512 3.0894941 1.3341050
## PC146 PC147 PC148 PC149 PC150 PC151
## 1 0.7549378 -2.1664329 -0.9991603 -0.79071329 -1.8541817 3.0540598
## 2 -0.3172204 -1.4854327 -1.2923375 0.99270218 0.3880293 1.7177283
## 3 -0.6305013 0.3970617 -1.7311601 -0.23563317 1.7447301 -0.7010219
## 4 0.3313404 -0.3706326 -2.1497563 -0.65845416 2.5339869 -0.7272631
## 5 1.9568290 -0.2996651 -1.1522971 0.04708327 -1.2532015 -1.2578629
## 6 0.0331795 2.5430808 1.1108991 0.89160337 1.0630195 -0.8932368
## PC152 PC153 PC154 PC155 PC156 PC157
## 1 1.820746978 1.8037021 0.4761580 -0.1498789 -1.99494508 -0.4594298
## 2 -2.432503368 -1.5184305 -1.0637095 1.7226812 -0.29574773 1.6524783
## 3 0.008645353 -2.1153025 -0.1368159 -0.1985538 -0.76071444 0.5455163
## 4 -1.980498295 0.7429939 -0.6474403 -0.9953979 -0.07412149 1.9217394
## 5 -1.332696146 1.4069065 1.7138751 -1.0837778 0.35739342 -0.8534527
## 6 0.076603782 -0.8161794 0.6867747 0.9920706 -0.11000657 -0.7460246
## PC158 PC159 PC160 PC161 PC162 PC163 PC164
## 1 -2.2055750 -0.1977910 -0.1169787 2.1906885 1.8385723 0.3097425 0.7963369
## 2 0.8136665 0.6820623 1.3281577 -0.5142368 -0.2578992 -0.5818370 -0.8192416
## 3 0.3669588 -1.0223939 1.6023600 -0.8058838 0.8098614 -1.7464979 0.5305701
## 4 -3.7727449 -0.6605898 1.9801859 -1.5578137 1.0605157 3.6347905 1.2940062
## 5 -1.3145255 -2.6576151 -1.0093012 1.6598910 0.3404654 -3.7151922 1.8981635
## 6 -1.4763290 1.1710419 1.7726156 -2.0585256 0.4548694 -0.7986691 2.3031214
## PC165 PC166 PC167 PC168 PC169 PC170 PC171
## 1 0.3473578 -0.5011918 -1.3515581 -0.6056545 -1.7179540 0.8082191 0.77429349
## 2 0.5633644 -2.5925734 -2.6011000 1.0939927 -2.3696040 -0.6382991 -1.19811756
## 3 -0.8519544 -0.2492818 0.8888210 -2.0900794 0.4834742 2.1126486 0.07692056
## 4 -1.0290776 0.8035855 -0.4246510 -0.4559358 -0.9149341 -0.1250156 1.91073024
## 5 -1.2244088 0.5487061 -1.1577059 0.6538769 -1.7422392 1.0023800 -1.59129009
## 6 -0.7323732 1.7114858 0.9229977 -0.8129150 0.1448296 -0.1180590 -0.41764889
## PC172 PC173 PC174 PC175 PC176 PC177
## 1 1.3926857 1.1595681 -1.0829603 -1.2037211 -0.27937268 -0.16839189
## 2 -1.5139393 -1.3036146 1.3131998 1.0217514 -0.90417151 2.29226807
## 3 -0.1586621 0.1814933 -0.9342765 1.8853096 2.12577006 0.17367980
## 4 -0.4047469 -1.2160269 -0.7008441 0.5385165 0.04896729 0.33414168
## 5 3.1240422 1.7367312 -0.5926582 0.4700043 -0.18398368 0.78372660
## 6 -0.2307994 0.8977436 -1.3888946 -1.2043016 -0.34310888 -0.05154701
## PC178 PC179 PC180 PC181 PC182 PC183 PC184
## 1 -0.2579525 1.5871850 0.1172471 0.4622799 0.5969834 0.4620162 0.8003686
## 2 -0.4707180 0.3730636 0.8829285 -0.9746387 2.2638574 0.2351404 0.6432853
## 3 -1.5531632 -0.1398234 -1.1011463 -0.2253626 -1.3729489 -0.9786002 1.1874003
## 4 -1.6731013 0.7264536 0.5972890 -0.4466412 -1.3448402 -0.5301237 -0.3511308
## 5 -0.1844421 0.8287453 -1.9499825 0.2327942 1.4372109 -0.2959663 1.0565846
## 6 -0.6642001 -1.0863089 2.1465256 -1.3806699 -1.8581635 -0.8630038 0.8702676
## PC185 PC186 PC187 PC188 PC189 PC190
## 1 1.9067154 -0.7514920 -1.7335572 -0.23084300 -0.348402502 2.99856135
## 2 -0.7598138 1.5199678 -0.9377815 -0.91266890 0.009252463 -0.04765192
## 3 0.9257894 -1.7432146 -0.1326923 0.02355832 1.606626777 1.41284158
## 4 1.3008389 -0.2013555 0.3196203 -2.17949977 0.238036921 -1.19608049
## 5 0.3371632 0.2369197 0.5264804 0.49913395 1.948003803 0.42844985
## 6 2.5882170 1.8696508 -0.2724100 1.58435958 0.044141879 0.92946371
## PC191 PC192 PC193 PC194 PC195 PC196
## 1 0.3783679 0.0613527075 0.07200679 0.1821854 0.1439338 1.8018135
## 2 -0.3950409 1.2280115165 -0.28578286 -0.1730925 1.4183358 1.7221565
## 3 1.3615682 -2.9059988601 -1.68048368 1.3199039 -0.5446851 1.8655673
## 4 -0.4885119 -0.6098533456 -0.15039201 0.2416747 -0.3446358 -0.7559024
## 5 -1.7355734 1.9390572949 1.94755128 -0.1097568 -0.8980161 0.2414267
## 6 0.2102137 -0.0002098984 -0.10236188 0.3941120 -0.1129813 -0.1792392
## PC197 PC198 PC199 PC200 PC201 PC202
## 1 -0.6412252 -0.92671297 -0.3305855 -0.08187078 1.1898519 1.1271977
## 2 3.0210328 0.67745519 1.4153045 -0.39713198 -1.8967710 -0.6815027
## 3 1.8898595 -1.64397538 1.2771160 2.85568719 0.5756301 -0.2705898
## 4 0.1173547 -0.07706789 1.6031958 -0.86443133 -0.1860953 0.1522143
## 5 -1.1583392 1.02779490 0.2330573 -0.46165533 -0.3169634 -1.6699160
## 6 0.1842023 -1.41505181 -0.8394547 -0.68143956 -1.8942747 2.9224662
## PC203 PC204 PC205 PC206 PC207 PC208
## 1 1.3659984 -0.36393285 -0.53364837 -0.54466808 -0.4232130 -0.07486389
## 2 1.1709522 -1.69972677 0.43289871 -1.61651639 1.4444470 -0.83844273
## 3 -0.5462999 -0.20181692 3.04840847 0.08816500 -1.4442835 1.13484789
## 4 1.0322116 0.37524999 -0.08447736 0.02897835 1.3353340 0.10804277
## 5 0.1110638 0.92820510 1.60614433 0.05169294 -0.9316292 -1.35733320
## 6 -2.0634171 -0.03421736 -2.34832793 -0.28814919 0.4732185 0.81809549
## PC209 PC210 PC211 PC212 PC213 PC214
## 1 -0.5026391 -0.1194549 0.9589277 0.37055586 0.8257252 0.9615352
## 2 0.2150714 -1.4859424 -0.2539543 -0.84577005 2.0951922 -0.4304617
## 3 -1.0895612 -3.5445365 -0.5374026 -1.34783392 0.7191190 -0.3328197
## 4 1.3665844 0.2872115 0.0815261 0.04678088 0.8289973 -0.4711931
## 5 0.1684994 -0.1164839 0.0777921 -1.60219014 0.3522527 0.4042573
## 6 -1.5379786 1.0612746 0.9230516 -0.32392989 0.4101378 -0.3880924
## PC215 PC216 PC217 PC218 PC219 PC220
## 1 -0.006731985 -0.0342042 -1.16195895 -0.09447131 -0.3269178 0.73309113
## 2 -0.159406911 -1.5318600 2.08791354 1.95102307 2.1134273 1.56334493
## 3 -1.181266746 2.4206161 0.81756074 1.91833504 1.1827931 -0.13693965
## 4 -1.159403016 0.2405405 0.05744732 -0.60717723 0.8983240 -0.34480165
## 5 0.382971447 -0.9328791 -1.43631082 -0.40700076 0.7392988 0.83724599
## 6 1.433590554 0.4542456 0.68833584 -1.04244405 0.6565995 0.09198843
## PC221 PC222 PC223 PC224 PC225 PC226
## 1 0.9571004 0.5953784 0.12722247 0.1794456 -0.04644415 -0.59259468
## 2 1.5900298 1.6160296 -0.42287149 -1.5727288 0.49966145 -0.98801707
## 3 0.4278351 -1.1438159 -1.74180154 -0.6149163 -0.05421788 -0.01519598
## 4 -0.8053270 0.3694774 -0.95978170 -0.6268868 -0.85837691 -0.79489028
## 5 -0.5570423 0.8144936 -0.01182757 -2.0022380 0.27685927 -0.05495602
## 6 0.8189916 -1.2572098 -0.76509371 0.4969721 0.43447167 -0.65489756
## PC227 PC228 PC229 PC230 PC231 PC232
## 1 -0.1204424 -0.85016960 0.06584485 0.3882691 0.3489550 0.20805076
## 2 0.9365967 -0.04204193 1.98669177 0.4577182 1.3392118 -1.50990316
## 3 0.5279164 1.37470389 -0.58877275 -1.2093675 -1.0734995 -0.67689544
## 4 -0.9304920 -0.43096800 0.57216307 0.2072480 0.3356422 0.08920201
## 5 -0.0524963 1.37601430 -0.46922188 -0.7536906 0.6103479 -0.47548490
## 6 0.3159936 1.36247797 -0.13504430 -0.1599891 -0.4289653 1.15273931
## PC233 PC234 PC235 PC236 PC237 PC238
## 1 0.2017564 0.41865606 0.1207001 -0.06033403 -0.73306832 -0.19044893
## 2 1.6312960 -2.07014578 0.2702928 -0.09306538 0.98810993 0.02353324
## 3 0.3731223 0.79625164 0.9627138 -0.94565365 -0.18053175 -0.22727264
## 4 0.8070292 0.09936348 -1.0455617 -0.20256760 -1.07544423 -0.32049529
## 5 -0.6855594 -0.63314056 0.3046755 -1.06689836 0.78867543 1.66837810
## 6 0.7190514 -0.88332222 0.2728780 0.45585701 0.03793098 0.22826457
## PC239 PC240 PC241 PC242 PC243 PC244
## 1 1.0324854674 0.04653173 0.7195581 -0.4024176 -0.56207606 -0.2108877
## 2 -1.7032703701 0.67253202 2.0476265 1.3848056 0.51456432 -3.3566951
## 3 0.0256513150 -0.54515805 -1.7704284 0.9755051 0.78695503 2.9813260
## 4 -0.6179652169 -0.54263113 -0.4603016 0.5414448 -0.14285794 -0.7862895
## 5 1.1146940689 0.60217512 -2.3306083 0.5801661 -0.06633725 -0.1889828
## 6 -0.0001229084 -0.86757664 -1.0723597 -0.2193084 0.39623176 0.9976529
## PC245 PC246 PC247 PC248 PC249 PC250
## 1 -0.03663345 -0.24782527 0.14335088 0.43504223 0.4308960 -0.4678652
## 2 -0.09710169 -0.30092505 -0.52888014 -0.19119832 0.5755524 -0.7816370
## 3 -1.06060172 -0.27161587 -0.07987910 0.91746919 -0.4173636 0.7309444
## 4 -0.64842056 -0.31540590 -0.42646652 -0.08356693 0.2911434 -0.2375526
## 5 -0.70648488 -0.26242848 -0.05750221 -0.81863949 0.5778955 -0.4395519
## 6 -0.59023029 0.02796248 0.78929397 0.42907261 0.3948859 0.8022303
## PC251 PC252 PC253 PC254 PC255 PC256
## 1 -0.03108833 -0.20385605 0.105114291 0.16829097 0.24863423 -0.74787756
## 2 -0.67272981 -2.11743746 -0.962813634 -0.48096863 0.16234625 -0.86625132
## 3 -0.12902827 -0.76986690 -1.293063042 -0.96444605 -0.04387468 0.28508553
## 4 -0.26729211 -0.08206177 -0.005362255 0.03896155 -0.29149909 0.38052027
## 5 -0.20377971 -1.34169956 -1.022044053 0.05962690 0.35156918 0.07937815
## 6 -0.29341915 -0.62703506 0.041282384 -0.48062740 0.72712037 0.62392480
## PC257 PC258 PC259 PC260 PC261 PC262
## 1 -0.7697180 0.40089720 0.4339552 -0.55824285 -0.2093327 0.21814331
## 2 0.4105527 0.75817476 -0.6678635 0.32903355 1.4470483 0.70585317
## 3 -0.2065815 -0.18970889 0.3288979 -0.18087013 0.1607092 0.66136717
## 4 -0.3116770 0.09655213 0.1998789 -0.10129216 -0.2133069 0.03151782
## 5 0.5966901 -0.12101474 -0.2819402 -0.45810035 0.1281571 0.19481040
## 6 0.4534605 0.42192421 0.1411706 -0.08816502 -0.1949858 0.06988026
## PC263 PC264 PC265 PC266 PC267 PC268
## 1 0.146873825 -0.09008226 0.01357934 -0.006418211 0.12571093 -0.12486432
## 2 0.966183647 0.37115579 0.50569702 0.059550606 -0.10240939 -0.21044596
## 3 0.008156046 -0.46330765 -0.34672344 0.285162391 -0.26177369 -0.12450318
## 4 -0.126089840 0.12093451 0.19499993 -0.155145062 0.22724237 0.12420487
## 5 -0.240114332 0.02952695 0.08012235 -0.090074625 -0.56705310 0.05715747
## 6 -0.014379739 -0.06997275 0.62214492 -0.040115580 -0.04416475 0.06160330
## PC269 PC270 PC271 PC272 hclust_cluster cluster
## 1 0.023309449 -0.0921853436 0.04454461 -3.257811e-14 1 2
## 2 0.135127637 -0.0341294759 0.13224932 6.079512e-14 1 2
## 3 -0.142426948 0.0006078693 -0.05376086 -1.312362e-14 2 3
## 4 0.003929166 0.0462662757 -0.04466131 -1.369000e-14 3 4
## 5 -0.028478806 0.0568702200 -0.06317037 5.757547e-15 2 3
## 6 0.017485779 0.0834136552 0.03491063 -8.094220e-15 1 2
# Optional: Visualize the clusters in a 2D plot (using the first two PCA components)
library(ggplot2)
ggplot(image_data_pca, aes(x = PC1, y = PC2, color = cluster)) +
geom_point(alpha = 0.6) +
labs(title = "K-means Clustering of Image Data",
x = "Principal Component 1",
y = "Principal Component 2") +
theme_minimal()
