如何将一个图表分成不同的新图表？

Question

我有一个数据库,其中包括1985 - 2012年间不同年份的法律.我想为每年制作不同的17个图(因此,制作一个函数),包括它的'值和前几年,并为每个图保持相同的x和y轴设计,如你所见在如下图所示:

这就是我在1985年至2012年间制作上图的方式:

> v <- ddply(leg.by.melt, .(year), summarise, count = sum(value))
> v
   year count

    1  1985     2
    2  1987     5
    3  1988     9
    4  1989    12
    5  1990    14
    6  1991    11
    7  1992    16
    8  1993    23
    9  1994    25
    10 1995    10
    11 1996    11
    12 1997    24
    13 1998    35
    14 1999    32
    15 2000    24
    16 2001    22
    17 2002    65
    18 2003    42
    19 2004    56
    20 2005    42
    21 2006    47
    22 2007    36
    23 2008    16
    24 2009    54
    25 2011    28

> ggplot(v, aes(x = year, y = count)) 
+ theme_bw() 
+ geom_contour(colour = "black", lty = 3, lend = 2, lwd = 1, stat = "identity") 
+ scale_x_continuous(breaks = round(seq(min(v$year), max(v$year), by = 1),1)) 
+ scale_y_continuous(breaks = round(seq(min(v$count), max(v$count), by = 3),1)) 
+ theme(axis.text.x = element_text(angle = 0, vjust = 0.2))

正如我之前写的那样,我希望有一个不同的17个图 - 1985年,1985年+ 1986年,1985年+ 1986年+ 1987年等等,并且依旧设计x和y轴(x轴来自1985:2012年和y轴从2到65).

我怎样才能实现它的功能呢？

Answer 1

如果您调用了情节p,我会做以下事情,

plyr::l_ply(v$year, function(.year) p %+% subset(v, year <= .year), .print=TRUE)