Comment créer un tracé de ligne empilé

Il existe plusieurs solutions pour créer un diagramme en barres empilées dans R, mais comment dessiner un empilées ligne de l'intrigue?

Comment créer un tracé de ligne empilé

source d'informationauteur BurninLeo

  1. 17

    Un empilées ligne de la parcelle peut être créé avec le ggplot2 paquet.

    Certaines données, par exemple:

    set.seed(11)
df <- data.frame(a = rlnorm(30), b = 1:10, c = rep(LETTERS[1:3], each = 10))

    La fonction de ce type de tracé est geom_area:

    library(ggplot2)
ggplot(df, aes(x = b, y = a, fill = c)) + geom_area(position = 'stack')

    Comment créer un tracé de ligne empilé

  2. 4

    Étant donné que le schéma de données est disponible en tant que trame de données avec des "lignes" dans les colonnes et les valeurs de Y dans les lignes, et étant donné que la ligne.les noms sont les valeurs de X, ce script crée empilés ligne de graphiques à l'aide de la fonction polygone.

    stackplot = function(data, ylim=NA, main=NA, colors=NA, xlab=NA, ylab=NA) {
  # stacked line plot
  if (is.na(ylim)) {
    ylim=c(0, max(rowSums(data, na.rm=T)))
  }
  if (is.na(colors)) {
    colors = c("green","red","lightgray","blue","orange","purple", "yellow")
  }
  xval = as.numeric(row.names(data))
  summary = rep(0, nrow(data))
  recent = summary

  # Create empty plot
  plot(c(-100), c(-100), xlim=c(min(xval, na.rm=T), max(xval, na.rm=T)), ylim=ylim, main=main, xlab=xlab, ylab=ylab)

  # One polygon per column
  cols = names(data)
  for (c in 1:length(cols)) {
    current = data[[cols[[c]]]]
    summary = summary + current
    polygon(
      x=c(xval, rev(xval)),
      y=c(summary, rev(recent)),
      col=colors[[c]]
    )
    recent = summary
  }
}