Peta sebaran berikut menggambarkan jumlah perguruan tinggi yang berada di bawah Kementerian Riset, Teknologi, dan Pendidikan Tinggi (baik negeri maupun swasta) di setiap kabupaten/kota di Provinsi Jawa Timur.
library(sf)
## Warning: package 'sf' was built under R version 4.3.3
## Linking to GEOS 3.11.2, GDAL 3.8.2, PROJ 9.3.1; sf_use_s2() is TRUE
library(tmap)
## Warning: package 'tmap' was built under R version 4.3.3
library(raster)
## Warning: package 'raster' was built under R version 4.3.3
## Loading required package: sp
## Warning: package 'sp' was built under R version 4.3.3
library(readxl)
## Warning: package 'readxl' was built under R version 4.3.3
library(ggplot2)
library(openxlsx)
## Warning: package 'openxlsx' was built under R version 4.3.3
library(terra)
## Warning: package 'terra' was built under R version 4.3.3
## terra 1.8.29
geo <- st_read("C:/Users/benin/Downloads/Provinsi Jawa Timur/PROVINSI_JAWA_TIMUR.shp")
## Reading layer `PROVINSI_JAWA_TIMUR' from data source
## `C:\Users\benin\Downloads\Provinsi Jawa Timur\PROVINSI_JAWA_TIMUR.shp'
## using driver `ESRI Shapefile'
## Simple feature collection with 38 features and 5 fields
## Geometry type: MULTIPOLYGON
## Dimension: XY
## Bounding box: xmin: 110.8987 ymin: -8.78036 xmax: 116.2702 ymax: -5.048857
## Geodetic CRS: WGS 84
ggplot(data=geo) + geom_sf(aes(fill=PDRB17)) +
scale_fill_viridis_c(option="magma", direction= -1) +
theme_void()
datatugas = read_excel("C:/Users/benin/Downloads/Jumlah Perguruan Tinggi, Dosen, dan Mahasiswa (Negeri dan Swasta) di Bawah Kementerian Pendidikan Tinggi, Sains, dan Teknologi Menurut Kabupaten_Kota di Provinsi Jawa Timur, 2024.xlsx")
datatugas$`Kabupaten/Kota`<- toupper(datatugas$`Kabupaten/Kota`)
geo$KABKOT <- toupper(geo$KABKOT)
geo <- merge(geo, datatugas, by.x = "KABKOT", by.y = "Kabupaten/Kota", all.x = TRUE)
tmap_options(check_and_fix = TRUE)
qtm(
geo,
fill = "Jumlah Perguruan Tinggi di Bawah Kementerian Riset, Teknologi dan Pendidikan Tinggi - Negeri + Swasta",
text = "KABKOT",
text_size = 0.25
)
## The shape object "structure(list(KABKOT = c("BANGKALAN", "BANYUWANGI", "BATU", " is invalid. Trying to fix it...
## [plot mode] fit legend/component: Some legend items or map compoments do not
## fit well, and are therefore rescaled.
## ℹ Set the tmap option `component.autoscale = FALSE` to disable rescaling.
Sebagian besar kabupaten/kota di Jawa Timur memiliki jumlah perguruan
tinggi di kisaran 20 hingga 40 institusi (warna biru muda).
Terdapat beberapa daerah yang memiliki jumlah lebih dari 40 hingga 80
institusi (warna biru lebih gelap), menandakan konsentrasi lembaga
pendidikan tinggi yang lebih tinggi.
Peta ini menunjukkan adanya ketimpangan distribusi jumlah perguruan tinggi di Jawa Timur, dengan konsentrasi lebih tinggi di kawasan perkotaan/industri.