{"id":3495,"date":"2023-07-17T04:45:57","date_gmt":"2023-07-17T04:45:57","guid":{"rendered":"https:\/\/statorials.org\/id\/peta-panas-korelasi-di-r\/"},"modified":"2023-07-17T04:45:57","modified_gmt":"2023-07-17T04:45:57","slug":"peta-panas-korelasi-di-r","status":"publish","type":"post","link":"https:\/\/statorials.org\/id\/peta-panas-korelasi-di-r\/","title":{"rendered":"Cara membuat peta panas korelasi di r (dengan contoh)"},"content":{"rendered":"

<\/p>\n

\n

Anda dapat menggunakan sintaks dasar berikut untuk membuat peta panas korelasi di R:<\/span><\/p>\n

 #calculate correlation between each pairwise combination of variables\n<\/span>cor_df <- round(cor(df), 2)\n\n#melt the data frame\n<\/span>melted_cormat <- melt(cor_df)\n\n#create correlation heatmap\n<\/span>ggplot(data = melted_cormat, aes(x=Var1, y=Var2, fill=value)) + \n  geom_tile() +\n  geom_text(aes(Var2, Var1, label = value), size = 5<\/span> ) +\n  scale_fill_gradient2(low = \" blue<\/span> \", high = \" red<\/span> \",\n                       limit = c(-1,1), name=\" Correlation<\/span> \") +\n  theme(axis. title<\/span> . x<\/span> = element_blank(),\n        axis. title<\/span> . y<\/span> = element_blank(),\n        panel. background<\/span> = element_blank())\n<\/strong><\/pre>\n
 Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.<\/span><\/p>\n
 Contoh: Buat Peta Panas Korelasi di R<\/strong><\/span><\/h2>\n
 Misalkan kita memiliki kerangka data berikut di R yang menunjukkan berbagai statistik untuk delapan pemain bola basket yang berbeda:<\/span><\/p>\n
 #create data frame\ndf <- data. frame<\/span> (points=c(22, 25, 30, 16, 14, 18, 29, 22),\n                 assists=c(4, 4, 5, 7, 8, 6, 7, 12),\n                 rebounds=c(10, 7, 7, 6, 8, 5, 4, 3),\n                 blocks=c(12, 4, 4, 6, 5, 3, 8, 5))\n\n#view data frame\n<\/span>df\n\n  points assists rebounds blocks\n1 22 4 10 12\n2 25 4 7 4\n3 30 5 7 4\n4 16 7 6 6\n5 14 8 8 5\n6 18 6 5 3\n7 29 7 4 8\n8 22 12 3 5<\/span><\/span><\/strong><\/pre>\n
 Misalkan kita ingin membuat peta panas korelasi untuk memvisualisasikan koefisien korelasi<\/a> antara setiap kombinasi variabel berpasangan dalam bingkai data.<\/span><\/p>\n
 Sebelum membuat peta panas korelasi, pertama-tama kita perlu menghitung koefisien korelasi antara masing-masing variabel menggunakan cor()<\/strong> dan kemudian mengubah hasilnya ke dalam format yang dapat digunakan menggunakan fungsimelt()<\/strong> paket reshape2<\/strong> :<\/span><\/span><\/p>\n
 library<\/span> (reshape2)\n\n#calculate correlation coefficients, rounded to 2 decimal places\n<\/span>cor_df <- round(cor(df), 2)\n\n#melt the data frame\n<\/span>melted_cor <- melt(cor_df)\n\n#view head of melted data frame\n<\/span>head(melted_cor)\n\n      Var1 Var2 value\n1 points points 1.00\n2 assist points -0.27\n3 rebound points -0.16\n4 block points 0.10\n5 assist points -0.27\n6 assists assists 1.00<\/strong><\/pre>\n
 Selanjutnya, kita bisa menggunakan fungsi geom_tile()<\/strong> dari paket ggplot2<\/strong> untuk membuat peta panas korelasi:<\/span> <\/p>\n
 library<\/span> (ggplot2)\n\n#create correlation heatmap\n<\/span>ggplot(data = melted_cor, aes(x=Var1, y=Var2, fill=value)) + \n  geom_tile() +\n  geom_text(aes(Var2, Var1, label = value), size = 5<\/span> ) +\n  scale_fill_gradient2(low = \" blue<\/span> \", high = \" red<\/span> \",\n                       limit = c(-1,1), name=\" Correlation<\/span> \") +\n  theme(axis. title<\/span> . x<\/span> = element_blank(),\n        axis. title<\/span> . y<\/span> = element_blank(),\n        panel. background<\/span> = element_blank())<\/strong> <\/pre>\n
\"peta<\/p>\n
 Hasilnya adalah peta panas korelasi yang memungkinkan kita memvisualisasikan koefisien korelasi antara setiap kombinasi variabel berpasangan.<\/span><\/p>\n
 Dalam peta panas khusus ini, koefisien korelasi memiliki warna berikut:<\/span><\/p>\n