#==========Mengintasl library dan mengaktifkan library yang dipakai============#
#------------joko-eliyanto@blosgsopt.com | jokoeliyanto@gmail.com--------------#
#install.packages("ggfortify")
library(ggfortify)
library(readxl)
#==============================================================================#

#============================Mengimpor data====================================#
Data <- read_excel("~/Dataset_Artikel.xlsx")
Data <- Dataset_Artikel
rownames(Data) <- Data$Province_Name
dat<-Data[,2:6]
#==============================================================================#

#=====================Principal Component Analysis=============================#
dat_pca <- prcomp(dat, center=TRUE, scale.=TRUE)
#==============================================================================#

#==============================Visualisasi=====================================#
autoplot(dat_pca, data=Data, loadings = TRUE,
         label=TRUE, colour='KLASTER_KMEANS',
         shape=FALSE, frame = TRUE, label.size = 3,
         loadings.colour = 'black',loadings.label = TRUE,
         loadings.label.size = 3)
#==============================================================================#