Pertemuan10_Korelasi-Scatter-Plot.R

#1
MS <- c(8, 3, 9, 2, 7, 10, 4, 6, 1, 5)
TS <- c(9, 5, 10, 1, 8, 7, 3, 4, 2, 6)

#a. Diagram pencar (scatter plot)
plot(MS, TS, main="Scatter Plot Latihan 1", xlab="MS", ylab="TS", pch=8)

#b. Hitung korelasi
kor.pearson <- cor(MS, TS, method = "pearson")
kor.spearman <- cor(MS, TS, method = "spearman")
kor.pearson

## [1] 0.8545455

kor.spearman

## [1] 0.8545455

#2
wilayah <- c("Bogor", "Sukabumi", "Cianjur", "Bandung", "Garut", "Tasikmalaya", 
             "Ciamis", "Kuningan", "Cirebon", "Majalengka", "Sumedang", "Indramayu", 
             "Subang", "Purwakarta", "Karawang", "Bekasi", "Bandung Barat", "Pangandaran", 
             "Kota Bogor", "Kota Sukabumi", "Kota Bandung", "Kota Cirebon", "Kota Bekasi", 
             "Kota Depok", "Kota Cimahi", "Kota Tasikmalaya", "Kota Banjar")
AHH <- c(70.70, 70.26, 69.49, 73.13, 70.84, 68.71, 71.07, 72.88, 71.49, 69.39, 
         72.00, 70.86, 71.71, 70.42, 71.64, 73.30, 71.87, 70.56, 73.01, 71.95, 
         73.86, 71.86, 74.63, 74.04, 73.61, 71.48, 70.39)
RLS <- c(7.84, 6.79, 6.92, 8.51, 7.28, 7.12, 7.59, 7.35, 6.61, 6.90, 
         7.98, 5.97, 6.83, 7.74, 7.34, 8.82, 7.74, 7.37, 10.29, 9.52, 
         10.59, 9.88, 10.93, 10.84, 10.93, 9.03, 8.59)

jabar <- data.frame(Wilayah = wilayah, AHH = AHH, RLS = RLS)
jabar$Rank_AHH <- rank(jabar$AHH)
jabar$Rank_RLS <- rank(jabar$RLS)

#a. Diagram pencar data asli & ranking
par(mfrow = c(1, 2))
plot(jabar$AHH, jabar$RLS, main="Data Asli", xlab="AHH", ylab="RLS", pch=19)
plot(jabar$Rank_AHH, jabar$Rank_RLS, main="Data Ranking", xlab="Rank AHH", ylab="Rank RLS", pch=19)

par(mfrow = c(1, 1))

#b. korelasi
korpearson1 <- cor(jabar$AHH, jabar$RLS, method = "pearson")
korspearman1 <- cor(jabar$AHH, jabar$RLS, method = "spearman")

korpearson1

## [1] 0.75357

korspearman1

## [1] 0.7010687

#3
nama <- c("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R",
          "S", "T", "U", "V", "W", "X", "Y", "Z", "AA", "AB", "AC", "AD", "AE", "AF", "AG", "AH", "AI")
UTS <- c(78, 87, 69, 52, 71, 73, 95, 78, 85, 53, 88, 81, 62, 45, 68, 84, 62, 72,
         61, 64, 65, 63, 55, 56, 75, 82, 52, 54, 72, 71, 79, 79, 81, 35, 49)
UAS <- c(93, 91, 93, 58, 92, 85, 76, 82, 90, 93, 94, 93, 72, 65, 71, 63, 78, 84,
         94, 92, 95, 87, 83, 83, 91, 84, 94, 90, 82, 78, 94, 76, 73, 73, 58)
stis <- data.frame(Nama = nama, UTS = UTS, UAS = UAS)
stis$Rank_UTS <- rank(stis$UTS)
stis$Rank_UAS <- rank(stis$UAS)

#a. Diagram pencar
par(mfrow = c(1, 2))
plot(stis$UTS, stis$UAS, main="Data Asli", xlab="UTS", ylab="UAS", pch=19)
plot(stis$Rank_UTS, stis$Rank_UAS, main="Data Ranking", xlab="Rank UTS", ylab="Rank UAS", pch=19)

par(mfrow = c(1, 1))

#b. korelasi
pearson.stis <- cor(stis$UTS, stis$UAS, method = "pearson")
spearman.stis <- cor(stis$UTS, stis$UAS, method = "spearman")

pearson.stis

## [1] 0.2618864

spearman.stis

## [1] 0.1730677

Pertemuan10_Korelasi-Scatter-Plot.R

LENOVO

2026-09-08