R Notebook
This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.
Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Ctrl+Shift+Enter.
x <- c(12,45,52,58,61,63,67,70,72,75,78,82,88,95,310)
jumlah <- function(x) {
n <- length(x)
total <- 0
for (i in 1:n) {
total <- total+x[i]
}
return(total)
}
winsorized_mean <- function(x,alpha) {
n <- length(x)
urut <- sort(x)
k <- n*alpha
for (i in 1:n) {
if (i <= k) {
x[i] <- urut[k+1]
}
else if(i > k & i <= (n-k)){
x[i] <- urut[i]
}
else {
x[i] <- urut[n-k]
}
}
total <- 0
total <- jumlah(x)
rata <- 0
rata <- total/n
return(rata)
}
winsorized_mean(x, 0)## [1] 81.86667winsorized_mean(x, 0.2)## [1] 69.73333par(bg = "#FFE0EC")
boxplot(x,
main = "Daily Production Output From 15 Machines",
col = c("deeppink"),
border = "#14233A",
col.axis = "#14233A",
col.lab = "#14233A",
col.main = "deeppink"
) 
outlier <- boxplot.stats(x)$out
outlier## [1] 12 310print("Dari boxplot yang disajikan, terlihat bahwa terdapat dua nilai yang berada jauh dari sebaran utama data, yaitu 12 yang sangat rendah dan 310 yang sangat tinggi, yang dapat dikategorikan sebagai outlier. Kedua nilai ini tampak terpisah dari kotak (box) sehingga menunjukkan bahwa nilainya tidak mengikuti pola umum data yang lainnya.")## [1] "Dari boxplot yang disajikan, terlihat bahwa terdapat dua nilai yang berada jauh dari sebaran utama data, yaitu 12 yang sangat rendah dan 310 yang sangat tinggi, yang dapat dikategorikan sebagai outlier. Kedua nilai ini tampak terpisah dari kotak (box) sehingga menunjukkan bahwa nilainya tidak mengikuti pola umum data yang lainnya."weighted_corr <- function(X,w) {
W <- diag(w)
nw <- jumlah(w)
vec1 <- matrix(1,38)
x_bar <- (t(X)%*%W%*%vec1)/nw
D <- X-(vec1%*%t(x_bar))
SW <- (t(D)%*%W%*%D)/nw
sw <- sqrt(diag(SW))
v <- diag(sw)
rw <- solve(v)%*%SW%*%solve(v)
return(list(
W,
x_bar,
SW,
sw,
rw
))
}
data <- read.csv("data_quiz1.csv", header=T, sep=',')
X <- cbind(data$x1, data$x2, data$x3)
w <- data$w
colnames(data) <- c("Kabupaten atau Kota","Indeks Kualitas Udara", "Indeks Kualitas Air", "Rasio Ruang Terbuka Hijau", "W")
colnames(X) <- c("Indeks Kualitas Udara", "Indeks Kualitas Air", "Rasio Ruang Terbuka Hijau")
weighted_corr(X,w)## [[1]]
## [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12]
## [1,] 14.34 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [2,] 0.00 14.19 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [3,] 0.00 0.00 12.49 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [4,] 0.00 0.00 0.00 11.45 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [5,] 0.00 0.00 0.00 0.00 17.45 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [6,] 0.00 0.00 0.00 0.00 0.00 15.24 0.00 0.00 0.00 0.00 0.00 0.00
## [7,] 0.00 0.00 0.00 0.00 0.00 0.00 34.73 0.00 0.00 0.00 0.00 0.00
## [8,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 17.97 0.00 0.00 0.00 0.00
## [9,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 33.13 0.00 0.00 0.00
## [10,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 35.93 0.00 0.00
## [11,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 15.55 0.00
## [12,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 16.54
## [13,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [14,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [15,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [16,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [17,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [18,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [19,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [20,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [21,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [22,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [23,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [24,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [25,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [26,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [27,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [28,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [29,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [30,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [31,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [32,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [33,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [34,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [35,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [36,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [37,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [38,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [,13] [,14] [,15] [,16] [,17] [,18] [,19] [,20] [,21] [,22] [,23] [,24]
## [1,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [2,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [3,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [4,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [5,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [6,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [7,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [8,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [9,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [10,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [11,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [12,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [13,] 17.25 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [14,] 0.00 14.93 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [15,] 0.00 0.00 7.24 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [16,] 0.00 0.00 0.00 9.85 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [17,] 0.00 0.00 0.00 0.00 11.1 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [18,] 0.00 0.00 0.00 0.00 0.0 12.89 0.00 0.00 0.00 0.00 0.00 0.00
## [19,] 0.00 0.00 0.00 0.00 0.0 0.00 11.14 0.00 0.00 0.00 0.00 0.00
## [20,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 7.06 0.00 0.00 0.00 0.00
## [21,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 13.96 0.00 0.00 0.00
## [22,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 23.13 0.00 0.00
## [23,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 19.74 0.00
## [24,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 17.53
## [25,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [26,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [27,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [28,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [29,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [30,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [31,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [32,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [33,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [34,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [35,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [36,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [37,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [38,] 0.00 0.00 0.00 0.00 0.0 0.00 0.00 0.00 0.00 0.00 0.00 0.00
## [,25] [,26] [,27] [,28] [,29] [,30] [,31] [,32] [,33] [,34] [,35] [,36]
## [1,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [2,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [3,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [4,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [5,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [6,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [7,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [8,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [9,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [10,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [11,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [12,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [13,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [14,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [15,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [16,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [17,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [18,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [19,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [20,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [21,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [22,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [23,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [24,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [25,] 12.56 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [26,] 0.00 13.01 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [27,] 0.00 0.00 12.28 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [28,] 0.00 0.00 0.00 7.95 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [29,] 0.00 0.00 0.00 0.00 20.84 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [30,] 0.00 0.00 0.00 0.00 0.00 0.67 0.00 0.00 0.00 0.00 0.0 0.00
## [31,] 0.00 0.00 0.00 0.00 0.00 0.00 0.33 0.00 0.00 0.00 0.0 0.00
## [32,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.11 0.00 0.00 0.0 0.00
## [33,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.55 0.00 0.0 0.00
## [34,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.39 0.0 0.00
## [35,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.2 0.00
## [36,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.36
## [37,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [38,] 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.0 0.00
## [,37] [,38]
## [1,] 0.00 0.00
## [2,] 0.00 0.00
## [3,] 0.00 0.00
## [4,] 0.00 0.00
## [5,] 0.00 0.00
## [6,] 0.00 0.00
## [7,] 0.00 0.00
## [8,] 0.00 0.00
## [9,] 0.00 0.00
## [10,] 0.00 0.00
## [11,] 0.00 0.00
## [12,] 0.00 0.00
## [13,] 0.00 0.00
## [14,] 0.00 0.00
## [15,] 0.00 0.00
## [16,] 0.00 0.00
## [17,] 0.00 0.00
## [18,] 0.00 0.00
## [19,] 0.00 0.00
## [20,] 0.00 0.00
## [21,] 0.00 0.00
## [22,] 0.00 0.00
## [23,] 0.00 0.00
## [24,] 0.00 0.00
## [25,] 0.00 0.00
## [26,] 0.00 0.00
## [27,] 0.00 0.00
## [28,] 0.00 0.00
## [29,] 0.00 0.00
## [30,] 0.00 0.00
## [31,] 0.00 0.00
## [32,] 0.00 0.00
## [33,] 0.00 0.00
## [34,] 0.00 0.00
## [35,] 0.00 0.00
## [36,] 0.00 0.00
## [37,] 3.36 0.00
## [38,] 0.00 1.94
##
## [[2]]
## [,1]
## Indeks Kualitas Udara 73.88530
## Indeks Kualitas Air 65.39059
## Rasio Ruang Terbuka Hijau 17.00938
##
## [[3]]
## Indeks Kualitas Udara Indeks Kualitas Air
## Indeks Kualitas Udara 38.16362 -37.75105
## Indeks Kualitas Air -37.75105 41.10767
## Rasio Ruang Terbuka Hijau -27.15386 29.16587
## Rasio Ruang Terbuka Hijau
## Indeks Kualitas Udara -27.15386
## Indeks Kualitas Air 29.16587
## Rasio Ruang Terbuka Hijau 21.14757
##
## [[4]]
## Indeks Kualitas Udara Indeks Kualitas Air Rasio Ruang Terbuka Hijau
## 6.177671 6.411527 4.598649
##
## [[5]]
## [,1] [,2] [,3]
## [1,] 1.0000000 -0.9531095 -0.9558207
## [2,] -0.9531095 1.0000000 0.9891979
## [3,] -0.9558207 0.9891979 1.0000000par(bg = "#FFE0EC")
par(mfrow = c(1,3)) # 1 baris, 3 kolom
hist(data$`Indeks Kualitas Udara`,
main = "Histogram Indeks Kualitas Udara",
col = "pink",
border = "#14233A",
col.axis = "#14233A",
col.lab = "#14233A",
xlab = "Indeks Kualitas Udara")
hist(data$`Indeks Kualitas Air`,
main = "Histogram Indeks Kualitas Air",
col = "hotpink",
border = "#14233A",
col.axis = "#14233A",
col.lab = "#14233A",
xlab = "Indeks Kualitas Air")
hist(data$`Rasio Ruang Terbuka Hijau`,
main = "Histogram Rasio Ruang Terbuka Hijau",
col = "deeppink",
border = "#14233A",
col.axis = "#14233A",
col.lab = "#14233A",
xlab= "Rasio Ruang Terbuka Hijau")
print("Pada histogram Indeks Kualitas Udara menunjukkan bahwa histogram tersebut left skewed, artinya mean < median < modus.")## [1] "Pada histogram Indeks Kualitas Udara menunjukkan bahwa histogram tersebut left skewed, artinya mean < median < modus."print("Pada histogram Indeks Kualitas Air menunjukkan bahwa histogram tersebut right skewed, artinya mean > median > modus.")## [1] "Pada histogram Indeks Kualitas Air menunjukkan bahwa histogram tersebut right skewed, artinya mean > median > modus."print("Pada histogram Rasio Ruang Terbuka Hijau menunjukkan bahwa histogram tersebut right skewed, artinya mean > median > modus.")## [1] "Pada histogram Rasio Ruang Terbuka Hijau menunjukkan bahwa histogram tersebut right skewed, artinya mean > median > modus."par(bg = "#FFE0EC")
par(mfrow = c(1,3))
group <- ifelse(grepl("Kota", data$`Kabupaten atau Kota`), "Kota", "Kabupaten")
boxplot(data$`Indeks Kualitas Udara` ~ group,
col = c("hotpink","deeppink"),
border = "#14233A",
col.axis = "#14233A",
col.lab = "#14233A",
main = "Perbandingan Indeks Kualitas Udara antara Kota dan Kabupaten",
ylab = "Indeks")
boxplot(data$`Indeks Kualitas Air` ~ group,
col = c("hotpink","deeppink"),
border = "#14233A",
col.axis = "#14233A",
col.lab = "#14233A",
main = "Perbandingan Indeks Kualitas Air antara Kota dan Kabupaten",
ylab = "Indeks")
boxplot(data$`Rasio Ruang Terbuka Hijau` ~ group,
col = c("hotpink","deeppink"),
border = "#14233A",
col.axis = "#14233A",
col.lab = "#14233A",
main = "Perbandingan Ruang Terbuka Hijau antara Kota dan Kabupaten",
ylab = "Indeks")
print("Berdasarkan boxplot Perbandingan Indeks Kualitas Udara antara Kota dan Kabupaten, dapat dilihat bahwa indeks kualitas udara di kabupaten lebih tinggi dibanding di kota, yang mana jika indeks kualitas udara makin tinggi maka semakin buruk kualitas udara didaerah tersebut.")## [1] "Berdasarkan boxplot Perbandingan Indeks Kualitas Udara antara Kota dan Kabupaten, dapat dilihat bahwa indeks kualitas udara di kabupaten lebih tinggi dibanding di kota, yang mana jika indeks kualitas udara makin tinggi maka semakin buruk kualitas udara didaerah tersebut."print("Pada boxplot Perbandingan Indeks Kualitas Air antara Kota dan Kabupaten, dapat dilihat bahwa indeks kualitas air di kota lebih tinggi dibanding di kabupaten, yang mana jika indeks kualitas air makin tinggi maka semakin baik dan bersih kualitas air didaerah tersebut.")## [1] "Pada boxplot Perbandingan Indeks Kualitas Air antara Kota dan Kabupaten, dapat dilihat bahwa indeks kualitas air di kota lebih tinggi dibanding di kabupaten, yang mana jika indeks kualitas air makin tinggi maka semakin baik dan bersih kualitas air didaerah tersebut."print("Rasio Ruang Terbuka Hijau yang semakin besar/tinggi akan membuat lingkungan dan kota tersebut menjadi semakin layak huni, sehat, berkelanjutan, dan sejuk, dari histogram menunjukkan bahwa daerah kota memiliki rasio ruang terbuka hijau yag lebih tinggi dibanding di kabupaten.")## [1] "Rasio Ruang Terbuka Hijau yang semakin besar/tinggi akan membuat lingkungan dan kota tersebut menjadi semakin layak huni, sehat, berkelanjutan, dan sejuk, dari histogram menunjukkan bahwa daerah kota memiliki rasio ruang terbuka hijau yag lebih tinggi dibanding di kabupaten."library(corrplot) ## corrplot 0.95 loadedpar(bg = "#FFE0EC")
cor_matrix <- cor(data[,2:4])
corrplot(cor_matrix,
method = "color",
type = "upper",
col = colorRampPalette(c("hotpink", "white", "deeppink"))(200),
tl.col = "deeppink",
addCoef.col = "white")
print("Indeks kualitas air dengan indeks kualitas udara menunjukkan korelasi negatif(Daerah dengan kualitas air yang lebih baik cenderung memiliki kualitas udara yang lebih baik yang mana ditunjukkan oleh nilai indeks udara yang lebih rendah).")## [1] "Indeks kualitas air dengan indeks kualitas udara menunjukkan korelasi negatif(Daerah dengan kualitas air yang lebih baik cenderung memiliki kualitas udara yang lebih baik yang mana ditunjukkan oleh nilai indeks udara yang lebih rendah)."print("Indeks kualitas air dengan rasio ruang terbuka hijau menunjukkan korelasi positif(semakin luas ruang terbuka hijau di suatu daerah, maka kualitas air cenderung lebih baik).")## [1] "Indeks kualitas air dengan rasio ruang terbuka hijau menunjukkan korelasi positif(semakin luas ruang terbuka hijau di suatu daerah, maka kualitas air cenderung lebih baik)."print("Sedangkan indeks kualitas udara dan rasio ruang terbuka hijau menunjukkan korelasi negatif(semakin tinggi rasio ruang terbuka hijau, maka kualitas udara cenderung semakin baik).")## [1] "Sedangkan indeks kualitas udara dan rasio ruang terbuka hijau menunjukkan korelasi negatif(semakin tinggi rasio ruang terbuka hijau, maka kualitas udara cenderung semakin baik)."Add a new chunk by clicking the Insert Chunk button on the toolbar or by pressing Ctrl+Alt+I.
When you save the notebook, an HTML file containing the code and output will be saved alongside it (click the Preview button or press Ctrl+Shift+K to preview the HTML file).
The preview shows you a rendered HTML copy of the contents of the editor. Consequently, unlike Knit, Preview does not run any R code chunks. Instead, the output of the chunk when it was last run in the editor is displayed.