cumulatif de la parcelle à l'aide de ggplot2

Je suis en train d'apprendre à utiliser ggplot2 et suis à la recherche de la plus petite ggplot2 code qui reproduit le base::plot résultat ci-dessous. J'ai essayé quelques petites choses et ils ont tous fini par être horriblement long, donc je suis à la recherche de la plus petite expression et idéalement je voudrais avoir les dates sur l'axe des x (qui ne sont pas là dans le plot ci-dessous).

df = data.frame(date = c(20121201, 20121220, 20130101, 20130115, 20130201),
                val  = c(10, 5, 8, 20, 4))
plot(cumsum(rowsum(df$val, df$date)), type = "l")

OriginalL'auteur eddi | 2013-04-05

  1. 25

    Essayez ceci:

    ggplot(df, aes(x=1:5, y=cumsum(val))) + geom_line() + geom_point()

    cumulatif de la parcelle à l'aide de ggplot2

    Juste enlever geom_point() si vous ne le voulez pas.

    Edit: Car vous avez besoin de tracer les données en tant que telle avec x étiquettes sont des dates, vous pouvez tracer avec x=1:5 et l'utilisation scale_x_discrete pour définir labels une nouvelle data.frame. La prise de df:

    ggplot(data = df, aes(x = 1:5, y = cumsum(val))) + geom_line() + 
        geom_point() + theme(axis.text.x = element_text(angle=90, hjust = 1)) + 
        scale_x_discrete(labels = df$date) + xlab("Date")

    cumulatif de la parcelle à l'aide de ggplot2

    Puisque vous dites que vous aurez plus de 1 val "date", vous pouvez les regrouper en utilisant d'abord des plyr, par exemple.

    require(plyr)
dd <- ddply(df, .(date), summarise, val = sum(val))

    Ensuite, vous pouvez procéder avec la même commande en remplaçant x = 1:5 avec x = seq_len(nrow(dd)).

    Merci, c'est assez long par rapport à la plot. Peut ggplot à moins de racheter lui-même en ajoutant les dates sur le x axe, probablement tourné à 90 degrés? 🙂
    citation: "et idéalement je voudrais avoir les dates sur l'axe des x (qui ne sont pas là dans le graphique ci-dessous)."
    J'ai aussi essayé d'éditer votre post pour corriger pour le cas où il y a plus de 1 val par jour, mais la modification n'a pas traversé.
    Merci! Suffit d'ajouter une entrée à la df avec la même date et certains val et de voir le plot de sortie. Ça va être la quotidienne cumulative somme de val.
    Je vais marquer cette réponse, mais s'il vous plaît corriger les rowsum peu pour référence future. Ne peux pas dire que c'est assez, mais merci 🙂

    OriginalL'auteur Arun

  2. 5

    Après une couple d'années, je me suis dit:

    ggplot(df, aes(as.Date(as.character(date), '%Y%m%d'), cumsum(val))) + geom_line()

    OriginalL'auteur eddi

  3. 1

    Jan Boyer semble avoir trouvé un plus concis solution à ce problème dans cette question, que j'ai raccourci un peu et combiné avec les réponses de Prradep, de manière à fournir une (je l'espère), up-to-date de la réponse:

    ggplot(data = df, 
   aes(x=date)) +
geom_col(aes(y=value)) +
geom_line(aes(x = date, y = cumsum((value))/5, group = 1), inherit.aes = FALSE) +
ylab("Value") + 
theme(axis.text.x = element_text(angle=90, hjust = 1))

    Noter que date n'est pas la Date, mais character, et que value est déjà regroupés comme suggéré par Prradep dans sa réponse ci-dessus.

    Peut-être que je suis absent quelque chose - mais comment est-ce plus concis?

    OriginalL'auteur Lukas