{"id":4202,"date":"2023-07-12T21:55:51","date_gmt":"2023-07-12T21:55:51","guid":{"rendered":"https:\/\/statorials.org\/it\/riga-media-ggplot-per-gruppo\/"},"modified":"2023-07-12T21:55:51","modified_gmt":"2023-07-12T21:55:51","slug":"riga-media-ggplot-per-gruppo","status":"publish","type":"post","link":"https:\/\/statorials.org\/it\/riga-media-ggplot-per-gruppo\/","title":{"rendered":"Come tracciare la linea media per gruppo in ggplot2"},"content":{"rendered":"

<\/p>\n

\n

Puoi utilizzare la seguente sintassi di base per tracciare una linea media per gruppo in 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
 Questo particolare esempio crea un grafico a dispersione degli assist vs. assist<\/strong> variabili. punti<\/strong> , quindi aggiunge una linea per rappresentare il valore medio dei punti<\/strong> raggruppati per la variabile squadra<\/strong> .<\/span><\/p>\n
 L’esempio seguente mostra come utilizzare questa sintassi nella pratica.<\/span><\/p>\n
 Esempio: tracciare la linea media per gruppo in ggplot2<\/strong><\/span><\/h2>\n
 Supponiamo di avere il seguente frame di dati in R che contiene informazioni sui punti e sugli assist dei giocatori di basket di tre squadre diverse:<\/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
 Possiamo utilizzare il seguente codice per creare un grafico a dispersione degli assist<\/strong> vs. variabili. punti<\/strong> , quindi aggiungi una linea per rappresentare il valore medio dei punti<\/strong> raggruppati per la variabile squadra<\/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
\"riga<\/p>\n
 Le tre linee sono codificate a colori per visualizzare il valore del punto medio di ciascuna squadra.<\/span><\/p>\n
 Possiamo visualizzare il data frame Mean_Team<\/strong> che abbiamo creato per vedere i valori effettivi dei punti medi per ciascuna squadra:<\/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
 Dal risultato possiamo vedere:<\/span><\/p>\n