似乎还是有一点点问题，在书中作出了图，显示year(date)只有四个水平：1970，1980，1990，2000,而按您方法，显示的year(economics$date)却是1967，1967，1967，。。。，1968，1968，。。。。这是为什么？

这个我也没法明白，期待高人帮忙！
看一下下面的命令能否发现什么规律吗？
set.seed(1410) # Make the sample reproducible
dsmall <- economics[sample(nrow(economics), 5), ]
year <- function(x) as.POSIXlt(x)$year + 1900
qplot(unemploy / pop, uempmed, data = dsmall,
  geom = "path", colour = year(date)) + scale_area()
上述命令生成图1，

set.seed(1410) # Make the sample reproducible
dsmall <- economics[sample(nrow(economics), 100), ]
year <- function(x) as.POSIXlt(x)$year + 1900
qplot(unemploy / pop, uempmed, data = dsmall,
  geom = "path", colour = year(date)) + scale_area()

上述命令生成图2，

set.seed(1410) # Make the sample reproducible
dsmall <- economics[sample(nrow(economics), 5), ]
year <- function(x)  as.factor(as.POSIXlt(x)$year + 1900)
qplot(unemploy / pop, uempmed, data = dsmall,
  geom = c("path","point"), group=1,colour = year(date))





set.seed(1410) # Make the sample reproducible
dsmall <- economics[sample(nrow(economics), 100), ]
year <- function(x)  as.POSIXlt(x)$year + 1900
qplot(unemploy / pop, uempmed, data = dsmall,
  geom = c("path","point"), colour = year(date))+scale_area()

set.seed(1410) # Make the sample reproducible
dsmall <- economics[sample(nrow(economics), 100), ]
year <- function(x) as.POSIXlt(x)$year + 1900
qplot(unemploy / pop, uempmed, data = dsmall,
  geom = "path", colour = year(date)) + scale_colour_gradient(breaks = c(1970,1980,1990,2000))

    多谢firelife 朋友，但我看不明白上面两楼的内容。
    我原来是问：year <- function(x) as.POSIXlt(x)$year + 1900有色部分是什么意思，二楼已经明确回答了，现在的问题是，如果二楼的解释正确，为什么year(economics$date)显示的是每一个年份，而图上的图例显示，year(date)只有四个水平，1970，1980，1990，2000。
    您明白了我的问题吗？

这个可能和连续性变量 maping到  颜色的机制有关，page33有个图演示分类变量的mapping

可以去ggplot2 group问一声看
http://groups.google.com/group/ggplot2
我经常去问问题的

直接用我上面演示的第三种方法好了，这个最方便控制了

转到图例问题，感觉这样设计也有一定的缺陷。比如命令：
set.seed(1410) # Make the sample reproducible
dsmall <- economics[sample(nrow(economics), 100), ]
year <- function(x) as.POSIXlt(x)$year + 1900
qplot(unemploy / pop, uempmed, data = dsmall,
  geom = "path", colour = year(date)) + scale_colour_gradient(breaks = c(2000))

会生成图形：



这样感觉再要图例意义不大。需要人工设计比较完美的图例。

我只会简单的html也

学习了

有点复杂，没看懂。