Tugas Masuk 2

Data=read.table(file.choose(),header = T,dec=",")
Data

##               Provinsi Kemiskinan
## 1                 Aceh      14.23
## 2       Sumatera_Utara       7.99
## 3       Sumatera_Barat       5.97
## 4                 Riau       6.67
## 5                Jambi       7.10
## 6     Sumatera_Selatan      10.97
## 7             Bengkulu      13.56
## 8              Lampung      10.69
## 9  Kep.Bangka_Belitung       4.55
## 10           Kep._Riau       5.37
## 11         DKI_Jakarta       4.30
## 12          Jawa_Barat       7.46
## 13         Jawa_Tengah      10.47
## 14       DI_Yogyakarta      10.83
## 15          Jawa_Timur       9.79
## 16              Banten       5.84
## 17                Bali       4.00
## 18                 NTB      12.91
## 19                 NTT      19.48
## 20    Kalimantan_Barat       6.32
## 21   Kalimantan_Tengah       5.17
## 22  Kalimantan_Selatan       4.11
## 23    Kalimantan_Timur       5.78
## 24    Kalimantan_Utara       6.32
## 25      Sulawesi_Utara       7.25
## 26     Sulawesi_Tengah      11.77
## 27    Sulawesi_Selatan       8.06
## 28   Sulawesi_Tenggara      11.21
## 29           Gorontalo      14.57
## 30      Sulawesi_Barat      11.21
## 31              Maluku      16.05
## 32        Maluku_Utara       6.32
## 33         Papua_Barat      21.66
## 34    Papua_Barat_Daya      18.13
## 35               Papua      17.26
## 36       Papua_Selatan      17.44
## 37        Papua_Tengah      29.76
## 38    Papua_Pegunungan      32.97

length(Data$Kemiskinan)

## [1] 38

mean(Data$Kemiskinan)

## [1] 11.14579

median(Data$Kemiskinan)

## [1] 10.13

range(Data$Kemiskinan)

## [1]  4.00 32.97

max(Data$Kemiskinan)-min(Data$Kemiskinan)

## [1] 28.97

max(Data$Kemiskinan)

## [1] 32.97

min(Data$Kemiskinan)

## [1] 4

var(Data$Kemiskinan)

## [1] 45.51563

sd(Data$Kemiskinan)

## [1] 6.746527

quantile(Data$Kemiskinan)

##      0%     25%     50%     75%    100% 
##  4.0000  6.3200 10.1300 14.0625 32.9700

boxplot(Data$Kemiskinan,
        main="Boxplot Persentase Penduduk Miskin Tahun 2024",
        ylab="Penduduk Miskin (%)")

plot(Data$Kemiskinan,
     main="Persentase Penduduk Miskin 38 Provinsi Tahun 2024",
     xlab="Provinsi",
     ylab="Penduduk Miskin (%)",
     pch=19)

Kalimantan=Data[Data$Provinsi %in%
c("Kalimantan_Barat",
"Kalimantan_Tengah",
"Kalimantan_Selatan",
"Kalimantan_Timur",
"Kalimantan_Utara"),]

barplot(Kalimantan$Kemiskinan,
names.arg=c("Kalbar","Kalteng","Kalsel","Kaltim","Kaltara"),
main="Persentase Penduduk Miskin di Kalimantan 2024",
ylab="Penduduk Miskin (%)",
col=c("skyblue","lightgreen","orange","pink","plum"))