r - 積み上げ折れ線グラフの作成方法

Question

Rで積み上げ棒グラフを作成するには複数の解決策がありますが、積み上げ折れ線グラフを描画するにはどうすればよいですか？

Answer 1

積み上げ折れ線グラフは、ggplot2パッケージを使用して作成できます。

いくつかのサンプルデータ：

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

この種のプロットの関数は次のgeom_areaとおりです。

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

Answer 2

ダイアグラムデータが列に「線」、行にY値を持つデータフレームとして使用可能であり、row.namesがX値である場合、このスクリプトはポリゴン関数を使用して積み上げ折れ線グラフを作成します。

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
  }
}