Trazado de las estadísticas de resumen

Question

Para el siguiente conjunto de datos,

Genre Amount 
Comedy 10 
Drama 30 
Comedy 20 
Action 20 
Comedy 20 
Drama 20 

Quiero construir un gráfico de líneas ggplot2, donde el eje x es Genre y el eje y es la suma de todas las cantidades (condicionada a la Genre).

he intentado lo siguiente:

p = ggplot(test, aes(factor(Genre), Gross)) + geom_point() 
p = ggplot(test, aes(factor(Genre), Gross)) + geom_line() 
p = ggplot(test, aes(factor(Genre), sum(Gross))) + geom_line() 

pero fue en vano.

Answer 1

Si no desea calcular una nueva trama de datos antes de trazar, se utiliza CVAN stat_summary en ggplot2. Por ejemplo, si el conjunto de datos es el siguiente:

R> df <- data.frame(Genre=c("Comedy","Drama","Action","Comedy","Drama"), 
R+     Amount=c(10,30,40,10,20)) 
R> df 
    Genre Amount 
1 Comedy  10 
2 Drama  30 
3 Action  40 
4 Comedy  10 
5 Drama  20 

puede utilizar cualquiera qplot con un argumento stat="summary":

R> qplot(Genre, Amount, data=df, stat="summary", fun.y="sum") 

O añadir un stat_summary a una base ggplot gráfico:

R> ggplot(df, aes(x=Genre, y=Amount)) + stat_summary(fun.y="sum", geom="point") 

Answer 2

intentar algo como esto:

dtf <- structure(list(Genre = structure(c(2L, 3L, 2L, 1L, 2L, 3L), .Label = c("Action", 
"Comedy", "Drama"), class = "factor"), Amount = c(10, 30, 20, 
20, 20, 20)), .Names = c("Genre", "Amount"), row.names = c(NA, 
-6L), class = "data.frame") 

library(reshape) 
library(ggplot2) 
mdtf <- melt(dtf) 
cdtf <- cast(mdtf, Genre ~ . , sum) 
ggplot(cdtf, aes(Genre, `(all)`)) + geom_bar()