нужно создать гистограмму стека

Question

У меня есть три столбца с датой, var1 и var2. Мне нравится создавать дату гистограммы, являющуюся осью x, а var1 и var2 - осью y. Я могу сделать это на линейном графике, но мне очень нравится видеть, как это делается на гистограмме с данными временных рядов.

Мои данные будут такими:

Date         var1     var2
2011-12-06  37608.1    12304.2
2011-12-07  76430.9    28617.7
2011-12-08  93112.3    33414.6
2011-12-09 100334.8    28112.0
2011-12-10  70474.0    23641.4
2011-12-11 231113.6    78172.5

Я выполнил это:

x<-melt(diskIO, id=c("Date"))

тогда

qplot(x = factor(Date), y = value, data = x, geom = "bar", fill = variable)

но дата на оси не совсем читаема, может кто-нибудь посоветует организовать дату немного лучше.

Answer 1

Как насчет этого, с ggplot2

# load libraries
library(ggplot2)
library(reshape2)
# load data
df1 <- read.table(header=TRUE, text=
"Date         var1     var2
2011-12-06  37608.1    12304.2
2011-12-07  76430.9    28617.7
2011-12-08  93112.3    33414.6
2011-12-09 100334.8    28112.0
2011-12-10  70474.0    23641.4
2011-12-11 231113.6    78172.5")
# reshape for plotting
df1.m <-melt(df1)
# make a quick plot
qplot(x = factor(Date), y = value, data = df1.m, geom = "bar", fill = variable)

И получившимся сюжетом ...