0

我有一些每月的时间序列，可以将它们相加（通常有权重但在这里并不重要）以获得指数的值。

这是我的数据的摘录：

    01.2009  02.2009  03.2009  04.2009  05.2009  06.2009  07.2009
aaa 321.5743 323.7106 323.9933 326.1296 329.6482 328.3287 328.9571
bbb 322.0770 324.4646 324.8730 327.1978 331.2504 329.3969 330.0252
ccc 324.7473 326.7894 328.0146 329.2398 330.4964 331.3447 332.1929

我正在学习使用ggplot2，我想得到一个堆叠的条形图，即在水平轴上的每个时间点，都有一个带有值的三色条aaa+bbb+ccc，它代表对每个索引的时间演变贡献系列的。

我还生成了一个dates类型的向量

"2009-01-15" "2009-02-15" "2009-03-15"

这是我到目前为止所尝试的

plot.data <- melt(as.data.frame(cbind(t(data), dates)), id.vars="dates")
ggplot(plot.data, aes(x=factor(dates), y=value)) + geom_bar(stat="identity")

但是，这似乎使用时间序列名称，例如aaa，作为附加因素，所以我没有任何堆叠。我确定我只是做错了什么。谁能帮我解决这个问题？

4

1 回答 1

1

为了使用 ggplot2，您应该将数据以长格式放置，但您需要先将行名添加为新列。此列将用于堆叠每个日期的条形图。

这是我的代码

## read data
dat <- read.table(text='   01.2009  02.2009  03.2009  04.2009  05.2009  06.2009  07.2009
aaa 321.5743 323.7106 323.9933 326.1296 329.6482 328.3287 328.9571
bbb 322.0770 324.4646 324.8730 327.1978 331.2504 329.3969 330.0252
ccc 324.7473 326.7894 328.0146 329.2398 330.4964 331.3447 332.1929')
## add rownames as index column and put data in long format
dat.m <- melt(cbind(index=rownames(dat),dat))
## convert variable to a valid date to get pretty axes
dat.m$variable <- as.Date(paste0('15.',gsub('X','',dat.m$variable)),format='%d.%m.%Y')

library(ggplot2)
## plot it!
ggplot(dat.m) +
  geom_bar(aes(x=variable,y=value,fill=index),
           stat='identity')

在此处输入图像描述

于 2013-09-30T22:10:04.757 回答