不同日期事件累积频率的条形图

Question

我有一组日期和事件，例如：

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轴上显示日期，条形图的高度代表每个日期每个事件的累积频率。

Answer 1

您的意思是这样的吗：

# 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)