r - 如何将一张图分离到不同的新图？

Question

我有一个数据库，其中包含 1985-2012 年不同年份的法律。我想为每一年制作不同的 17 个图(并因此制作一个函数)，其中包括其值和前几年，并为每个图形保持相同的 x 轴和 y 轴设计，如您所见在 the following figure:



这就是我在 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)