多类别时间序列的堆积直方图

Question

我有一个时间序列，如

smpl <- data.frame(year=c(1990,1991,1992,1993,1990,1991,1992,1993,1990,1991,1992,1993),
                   label=c(rep("Pear",4),rep("Apple",4),rep("Banana",4)),
                   value=c(10,9,8,7,2,3,4,5,12,14,5,6))

我想创建一个带有条形的时间序列，表示该年份标签的相对价值。我可以通过使用

删除value变量来获得类似形状的图

smpl <- data.frame(year=c(1990,1991,1992,1993,1990,1991,1992,1993,1990,1991,1992,1993),
                   label=c(rep("Pear",4),rep("Apple",4),rep("Banana",4)))

ggplot(smpl, aes(x=as.factor(year), fill=label)) + 
  geom_histogram(position="fill")

其中每个堆栈高度由该年度该标签的频率决定。

如何为标签插入离散的value函数？我应该重塑数据框吗？