我有一组日期和事件,例如:
1990-01-01 A 1990-01-01 B 1990-01-01 C 1990-01-02 A 1990-01-03 A 1990-01-03 C 1990-01-04 B
我想制作一个条形图,x轴上有日期,条形高度代表每个日期每个事件的累积频率 .
你的意思是这样的:
# Generate data set.seed(23) t <- c(rep("1990-01-01", 10), rep("1990-01-02", 10)) v <- sample(c("A","B","C"), 20, replace=TRUE) # Side-by-side barplot quartz() barplot(t(apply(table(v,t),1,cumsum)), beside=T, col=c("purple", "darkblue", "skyblue")) legend("topleft", legend=c("A", "B", "C"), col=c("purple", "darkblue", "skyblue"), pch=15)
1 回答
你的意思是这样的: