{"id":3984,"date":"2023-07-14T08:46:03","date_gmt":"2023-07-14T08:46:03","guid":{"rendered":"https:\/\/statorials.org\/pt\/media-do-grafico-da-barra-geom-ggplot2\/"},"modified":"2023-07-14T08:46:03","modified_gmt":"2023-07-14T08:46:03","slug":"media-do-grafico-da-barra-geom-ggplot2","status":"publish","type":"post","link":"https:\/\/statorials.org\/pt\/media-do-grafico-da-barra-geom-ggplot2\/","title":{"rendered":"Como tra\u00e7ar a m\u00e9dia com geom_bar() no ggplot2"},"content":{"rendered":"

<\/p>\n

\n

Voc\u00ea pode usar a seguinte sintaxe b\u00e1sica para plotar valores m\u00e9dios por grupo usando a fun\u00e7\u00e3o geom_bar()<\/strong> em ggplot2:<\/span><\/p>\n

 library<\/span> (ggplot2)\n\nggplot(df, aes(group_var, values_var)) +\n  geom_bar(position=' dodge<\/span> ', stat=' summary<\/span> ', fun=' mean<\/span> ')\n<\/strong><\/pre>\n
 O exemplo a seguir mostra como usar essa sintaxe na pr\u00e1tica.<\/span><\/p>\n
 Nota<\/strong> : O argumento divertido<\/strong> em geom_bar()<\/strong> informa ao ggplot2 qual estat\u00edstica descritiva exibir usando barras. Voc\u00ea tamb\u00e9m pode passar uma estat\u00edstica descritiva diferente, como “mediana”, para esse argumento para representar graficamente o valor mediano por grupo.<\/span><\/p>\n
 Exemplo: plotando valores m\u00e9dios com geom_bar() em ggplot2<\/strong><\/span><\/h2>\n
 Suponha que temos o seguinte quadro de dados contendo informa\u00e7\u00f5es sobre o n\u00famero de pontos marcados por jogadores de basquete de diferentes times:<\/span><\/p>\n
 #create data frame\n<\/span>df <- data. frame<\/span> (team=rep(c(' A<\/span> ', ' B<\/span> ', ' C<\/span> '), each= 4<\/span> ),\n                 points=c(3, 5, 5, 6, 5, 7, 7, 8, 9, 9, 9, 8))\n\n#view data frame\n<\/span>df\n\n   team points\n1 to 3\n2 to 5\n3 to 5\n4 to 6\n5 B 5\n6 B 7\n7 B 7\n8 B 8\n9 C 9\n10 C 9\n11 C 9\n12 C 8\n<\/strong><\/pre>\n
 Podemos usar a seguinte sintaxe para criar um gr\u00e1fico de barras em que cada barra representa o valor m\u00e9dio dos pontos<\/strong> , agrupados por equipe<\/strong> :<\/span> <\/p>\n
 library<\/span> (ggplot2)\n\n#create bar plot to visualize mean points value by team\n<\/span>ggplot(df, aes(team, points)) +\n  geom_bar(position=' dodge<\/span> ', stat=' summary<\/span> ', fun=' mean<\/span> ')<\/strong> <\/pre>\n
\"tra\u00e7ar<\/p>\n
 A altura de cada barra representa a pontua\u00e7\u00e3o<\/strong> m\u00e9dia de cada equipe<\/strong> .<\/span><\/p>\n
 Para exibir o valor m\u00e9dio real de pontos de cada equipe, podemos usar a fun\u00e7\u00e3o summarise()<\/strong> do pacote dplyr<\/strong> :<\/span><\/p>\n
 library<\/span> (dplyr)\n\n#calculate mean value of points, grouped by team\n<\/span>df %>%\n  group_by(team) %>%\n  summarise(mean_pts = mean(points, na. rm<\/span> = TRUE<\/span> ))\n\n# A tibble: 3 x 2\n  team mean_pts\n      \n1 to 4.75\n2 B 6.75\n3 C 8.75\n<\/strong><\/pre>\n
 Pelo resultado podemos ver a m\u00e9dia de pontos de cada equipe:<\/span><\/p>\n