{"id":4200,"date":"2023-07-12T21:55:51","date_gmt":"2023-07-12T21:55:51","guid":{"rendered":"https:\/\/statorials.org\/id\/garis-rata-rata-ggplot-per-grup\/"},"modified":"2023-07-12T21:55:51","modified_gmt":"2023-07-12T21:55:51","slug":"garis-rata-rata-ggplot-per-grup","status":"publish","type":"post","link":"https:\/\/statorials.org\/id\/garis-rata-rata-ggplot-per-grup\/","title":{"rendered":"Cara memplot garis rata-rata berdasarkan grup di ggplot2"},"content":{"rendered":"

<\/p>\n

\n

Anda dapat menggunakan sintaks dasar berikut untuk memplot garis rata-rata per grup di ggplot2:<\/span><\/p>\n

 #calculate mean points value by team\n<\/span>mean_team <- df %>% group_by(team) %>% summarise(mean_pts=mean(points))\n \n#create scatterplot of assists vs points with mean line of points by team\n<\/span>ggplot(df, aes(x=assists, y=points)) +\n  geom_point(aes(color=team)) +\n  geom_hline(data=mean_team, aes(yintercept=mean_pts, col=team))\n<\/strong><\/pre>\n
 Contoh khusus ini membuat diagram sebar dari assist vs. bantuan<\/strong> variabel. points<\/strong> , lalu menambahkan garis untuk mewakili nilai rata-rata poin<\/strong> yang dikelompokkan berdasarkan variabel tim<\/strong> .<\/span><\/p>\n
 Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.<\/span><\/p>\n
 Contoh: memplot garis rata-rata per grup di ggplot2<\/strong><\/span><\/h2>\n
 Misalkan kita memiliki kerangka data berikut di R yang berisi informasi tentang poin dan assist pemain bola basket dari tiga tim berbeda:<\/span><\/p>\n
 #create data frame\n<\/span>df <- data. frame<\/span> (team=rep(c(' A<\/span> ', ' B<\/span> ', ' C<\/span> '), each= 5<\/span> ),\n                 assists=c(2, 4, 4, 5, 6, 6, 7, 7,\n                           8, 9, 7, 8, 13, 14, 12),\n                 dots=c(8, 8, 9, 9, 10, 9, 12, 13,\n                          14, 15, 14, 14, 16, 19, 22))\n\n#view data frame\n<\/span>df\n\n   team assists points\n1 to 2 8\n2 to 4 8\n3 to 4 9\n4 to 5 9\n5 to 6 10\n6 B 6 9\n7 B 7 12\n8 B 7 13\n9 B 8 14\n10 B 9 15\n11 C 7 14\n12 C 8 14\n13 C 13 16\n14 C 14 19\n15 C 12 22\n<\/strong><\/span><\/pre>\n
 Kita dapat menggunakan kode berikut untuk membuat diagram sebar dari assist<\/strong> vs. variabel. points<\/strong> , lalu tambahkan garis untuk mewakili nilai rata-rata poin<\/strong> yang dikelompokkan berdasarkan variabel tim<\/strong> .<\/span> <\/p>\n
 library<\/span> (dplyr)\nlibrary<\/span> (ggplot2)\n\n#calculate mean points value by team\nmean_team <- df %>% group_by(team) %>% summarise(mean_pts=mean(points))\n \n#create scatterplot of assists vs points with mean line of points by team\n<\/span>ggplot(df, aes(x=assists, y=points)) +\n  geom_point(aes(color=team)) +\n  geom_hline(data=mean_team, aes(yintercept=mean_pts, col=team))<\/span><\/span><\/strong><\/span> <\/pre>\n
\"garis<\/p>\n
 Ketiga garis tersebut diberi kode warna untuk menampilkan nilai poin rata-rata masing-masing tim.<\/span><\/p>\n
 Kita dapat melihat data frame Mean_Team<\/strong> yang kita buat untuk melihat nilai rata-rata poin sebenarnya untuk setiap tim:<\/span><\/p>\n
 #view mean points value by team\nmean_team<\/span>\n\n<\/span>`summarise()` ungrouping output (override with `.groups` argument)\n# A tibble: 3 x 2\n  team mean_pts\n      \n1 to 8.8\n2 B 12.6\n3 C 17<\/strong><\/span><\/pre>\n
 Dari hasilnya kita dapat melihat:<\/span><\/p>\n