year <- function(x) as.POSIXlt(x)$year + 1900的解释

    多谢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
我经常去问问题的

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

firelife 发表于 2012-1-28 20:54
set.seed(1410) # Make the sample reproducible
dsmall

转到图例问题，感觉这样设计也有一定的缺陷。比如命令：
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也

学习了

有点复杂，没看懂。