Syntax-Diagram-Batang-Kelompok.R

library(readxl)
Jumlah_Perguruan_Tinggi_ADE <- read_excel("D:/Universitas Negeri Padang/Semester 3/Analisis Data Eksploratif/Jumlah Perguruan Tinggi ADE.xlsx", sheet = "Lembar1")
View(Jumlah_Perguruan_Tinggi_ADE)

#Statistik 6 Serangkai
summary(Jumlah_Perguruan_Tinggi_ADE)

##    Provinsi             Negeri           Swasta       Negeri+Swasta   
##  Length:34          Min.   : 1.000   Min.   :  8.00   Min.   : 10.00  
##  Class :character   1st Qu.: 2.000   1st Qu.: 30.50   1st Qu.: 33.25  
##  Mode  :character   Median : 3.000   Median : 52.00   Median : 54.50  
##                     Mean   : 3.676   Mean   : 87.71   Mean   : 91.38  
##                     3rd Qu.: 4.000   3rd Qu.: 96.50   3rd Qu.: 99.75  
##                     Max.   :17.000   Max.   :376.00   Max.   :388.00  
##  Tendik - Negeri Tendik - swasta Tendik - Negeri+Swasta Mahasiswa -Negeri
##  Min.   :  349   Min.   :  293   Min.   :  676          Min.   :   7136  
##  1st Qu.:  987   1st Qu.: 1341   1st Qu.: 2243          1st Qu.:  30720  
##  Median : 1606   Median : 2354   Median : 4452          Median :  49552  
##  Mean   : 2518   Mean   : 5403   Mean   : 7921          Mean   :  99407  
##  3rd Qu.: 3099   3rd Qu.: 4443   3rd Qu.: 7601          3rd Qu.:  82673  
##  Max.   :11656   Max.   :25968   Max.   :34800          Max.   :1154332  
##  Nahasiswa-Swasta Mahasiswa - Negeri + Swasta
##  Min.   :  4494   Min.   :  13754            
##  1st Qu.: 28656   1st Qu.:  54522            
##  Median : 52509   Median : 110808            
##  Mean   :132219   Mean   : 231626            
##  3rd Qu.:101384   3rd Qu.: 173765            
##  Max.   :663307   Max.   :1382989

#Membuat Diagram Batang untuk Jumlah Pt_Negeri
barplot(Jumlah_Perguruan_Tinggi_ADE$Negeri, 
        names.arg = Jumlah_Perguruan_Tinggi_ADE$Provinsi,
        col = "pink",
        las = 2,
        xlab = "Provinsi",
        ylab = "Jumlah Perguruan Tinggi Negeri",
        ylim = c(0,20) )
abline(h=seq(0,20), col="black",lty=2) #Menambahkan Garis Putus-putus terhadap y

#Membuat Diagram Batang untuk Jumlah Pt_Swasta
barplot(Jumlah_Perguruan_Tinggi_ADE$Swasta, 
        names.arg = Jumlah_Perguruan_Tinggi_ADE$Provinsi,
        col = "orange",
        las = 3,
        xlab = "Provinsi",
        ylab = "Jumlah Perguruan Tinggi Swasta",
        ylim = c(0,400) )

#Membuat Diagram Batang Untuk Jumlah Pt_Negeri+Swasta
barplot(Jumlah_Perguruan_Tinggi_ADE$`Negeri+Swasta`, 
        names.arg = Jumlah_Perguruan_Tinggi_ADE$Provinsi,
        col = "skyblue",
        las = 2,
        xlab = "Provinsi",
        ylab = "Jumlah Perguruan Tinggi Swasta",
        ylim = c(0,400) )

#Membuat Diagram Batang Untuk Jumlah Tenaga Pendidik Pt_Negeri
barplot(Jumlah_Perguruan_Tinggi_ADE$`Tendik - Negeri`, 
        names.arg = Jumlah_Perguruan_Tinggi_ADE$Provinsi,
        col = "purple",
        las = 2,
        xlab = "Provinsi",
        ylab = "Jumlah Tenaga Pendidik Perguruan Tinggi Negeri",
        ylim = c(0,12000))

#Membuat Diagram Batang Untuk Jumlah Tenaga Pendidik Pt_Swasta
barplot(Jumlah_Perguruan_Tinggi_ADE$`Tendik - swasta`, 
        names.arg = Jumlah_Perguruan_Tinggi_ADE$Provinsi,
        col = "ivory",
        las = 2,
        xlab = "Provinsi",
        ylab = "Jumlah Tenaga Pendidik Perguruan Tinggi Swasta",
        ylim = c(0,30000))

#Membuat Diagram Batang Untuk Jumlah Tenaga Pendidik Pt_Negeri+Swasta
barplot(Jumlah_Perguruan_Tinggi_ADE$`Tendik - Negeri+Swasta`, 
        names.arg = Jumlah_Perguruan_Tinggi_ADE$Provinsi,
        col = "brown",
        las = 2,
        xlab = "Provinsi",
        ylab = "Jumlah Tenaga Pendidik Perguruan Tinggi Negeri+Swasta",
        ylim = c(0,35000))

#Membuat Diagram Batang Untuk Jumlah Mahasiswa Pt_Negeri
barplot(Jumlah_Perguruan_Tinggi_ADE$`Mahasiswa -Negeri`, 
        names.arg = Jumlah_Perguruan_Tinggi_ADE$Provinsi,
        col = "navy",
        las = 2,
        xlab = "Provinsi",
        ylab = "Jumlah Mahasiswa Perguruan Tinggi Negeri",
        ylim = c(0,1200000))

#Membuat Diagram Batang Untuk Jumlah Mahasiswa Pt_Swasta
barplot(Jumlah_Perguruan_Tinggi_ADE$`Nahasiswa-Swasta`, 
        names.arg = Jumlah_Perguruan_Tinggi_ADE$Provinsi,
        col = "gold",
        las = 2,
        xlab = "Provinsi",
        ylab = "Jumlah Mahasiswa Perguruan Tinggi Swasta",
        ylim = c(0,700000))

#Membuat Diagram Batang Untuk Jumlah Mahasiswa Pt_Negeri+Swasta
barplot(Jumlah_Perguruan_Tinggi_ADE$`Mahasiswa - Negeri + Swasta`, 
        names.arg = Jumlah_Perguruan_Tinggi_ADE$Provinsi,
        col = "maroon",
        las = 2,
        xlab = "Provinsi",
        ylab = "Jumlah Mahasiswa Perguruan Tinggi Negeri",
        ylim = c(0,1500000))