<\/p>\n
Piramida penduduk<\/strong> adalah grafik yang menunjukkan sebaran umur dan jenis kelamin suatu penduduk. Ini adalah grafik yang berguna untuk memudahkan memahami komposisi penduduk serta tren pertumbuhan penduduk saat ini.<\/span><\/p>\n Jika piramida penduduk berbentuk persegi panjang, hal ini menunjukkan bahwa pertumbuhan penduduk lebih lambat; generasi lama digantikan oleh generasi baru dengan ukuran yang kurang lebih sama.<\/span><\/p>\n Jika piramida penduduk berbentuk seperti piramida, hal ini menunjukkan bahwa pertumbuhan penduduk lebih cepat; generasi yang lebih tua menghasilkan generasi baru yang lebih besar.<\/span><\/p>\n Pada grafik, jenis kelamin ditampilkan di sisi kiri dan kanan, usia ditampilkan pada sumbu y, dan persentase atau jumlah penduduk ditampilkan pada sumbu x.<\/span><\/p>\n Tutorial ini menjelaskan cara membuat piramida penduduk di R.<\/span><\/p>\n Misalkan kita memiliki kumpulan data berikut yang menunjukkan persentase komposisi penduduk berdasarkan usia (0 hingga 100 tahun) dan jenis kelamin (M = “Laki-laki”, F = “Perempuan”):<\/span><\/p>\n Kita dapat membuat piramida populasi dasar untuk kumpulan data ini menggunakan pustaka ggplot2<\/strong> :<\/span><\/p>\n Kita dapat menambahkan judul dan label sumbu ke piramida populasi menggunakan argumen labs()<\/strong> :<\/span><\/p>\n Kita dapat mengubah dua warna yang digunakan untuk mewakili gender menggunakan argumen scale_color_manual()<\/strong> :<\/span><\/p>\n Dimungkinkan juga untuk memplot beberapa piramida populasi menggunakan argumen facet_wrap()<\/strong> . Misalnya, kita memiliki data populasi untuk negara A, B,<\/em> dan C.<\/em> Kode berikut menggambarkan cara membuat piramida populasi untuk setiap negara:<\/span><\/p>\n Buatlah piramida penduduk di R<\/strong><\/span><\/h3>\n
#make this example reproducible<\/span>\nset.seed(1)\n\n#create data frame\n<\/span>data <- data.frame(age = rep(1:100, 2), gender = rep(c(\"M\", \"F\"), each = 100))\n\n#add variable population\n<\/span>data$population <- 1\/sqrt(data$age) * runif(200, 10000, 15000)\n\n#convert population variable to percentage\n<\/span>data$population <- data$population \/ sum(data$population) * 100\n\n#view first six rows of dataset\n<\/span>head(data)\n\n# age gender population\n#1 1M 2.424362\n#2 2M 1.794957\n#3 3M 1.589594\n#4 4M 1.556063\n#5 5M 1.053662\n#6 6M 1.266231\n<\/strong><\/pre>\n #load ggplot2\n<\/em><\/span>library(ggplot2)\n\n#create population pyramid<\/span>\nggplot(data, aes(x = age, fill = gender,\n y = ifelse(test = gender == \"M\",\n yes = -population, no = population))) + \n geom_bar(stat = \"identity\") +\n scale_y_continuous(labels = abs, limits = max(data$population) * c(-1,1)) +\n coordinate_flip()<\/strong><\/pre>\n Menambahkan Judul dan Tag<\/strong><\/h3>\n
ggplot(data, aes(x = age, fill = gender,\n y = ifelse(test = gender == \"M\",\n yes = -population, no = population))) + \n geom_bar(stat = \"identity\") +\n scale_y_continuous(labels = abs, limits = max(data$population) * c(-1,1)) +\n labs(title = \"Population Pyramid\", x = \"Age\", y = \"Percent of population\")<\/span> +\n coordinate_flip()<\/strong><\/pre>\n Ubah warna<\/strong><\/span><\/h3>\n
ggplot(data, aes(x = age, fill = gender,\n y = ifelse(test = gender == \"M\",\n yes = -population, no = population))) + \n geom_bar(stat = \"identity\") +\n scale_y_continuous(labels = abs, limits = max(data$population) * c(-1,1)) +\n labs(title = \"Population Pyramid\", x = \"Age\", y = \"Percent of population\") +\n scale_color_manual(values = c(\"pink\", \"steelblue\"),<\/span>\naesthetics = c(\"color\", \"fill\"))<\/span> +\n coordinate_flip()<\/strong><\/pre>\n Piramida usia ganda<\/strong><\/span><\/h2>\n
#make this example reproducible<\/span>\nset.seed(1)\n\n#create data frame\n<\/span>data_multiple <- data.frame(age = rep(1:100, 6),\n gender = rep(c(\"M\", \"F\"), each = 300),\n country = rep(c(\"A\", \"B\", \"C\"), each = 100, times = 2))\n\n#add variable population\n<\/span>data_multiple$population <- round(1\/sqrt(data_multiple$age)*runif(200, 10000, 15000), 0)\n\n#view first six rows of dataset\n<\/span>head(data_multiple)\n\n# age gender country population\n#1 1 MA 11328\n#2 2 MA 8387\n#3 3 MA 7427\n#4 4 MA 7271\n#5 5 MA 4923\n#6 6 MA 5916\n\n#create one population pyramid per country\n<\/span>ggplot(data_multiple, aes(x = age, fill = gender,\n y = ifelse(test = gender == \"M\",\n yes = -population, no = population))) + \n geom_bar(stat = \"identity\") +\n scale_y_continuous(labels = abs, limits = max(data_multiple$population) * c(-1,1)) +\n labs(y = \"Population Amount\") + \n coordinate_flip() +\n facet_wrap(~country) +<\/span>\ntheme(axis.text.x = element_text(angle = 90, hjust = 1))<\/span> #rotate x-axis labels<\/span><\/span><\/strong><\/pre>\n Ubah tema<\/strong><\/span><\/h2>\n