> quick.hist <- ggplot(ufo.us,aes(x = DateOccurred)) +
+   geom_histogram() + 
+   scale_x_date(major = "50 years")

产生

Error in continuous_scale(aesthetics,"date",identity,breaks = breaks,: unused argument(s) (major = "50 years")

和

> ggsave(plot = quick.hist,+        filename = "C:\test.png",+        height = 6,+        width = 8)

产生

Error in inherits(plot,"ggplot") : object 'quick.hist' not found

我使用的是R版本2.14.2.和ggplot2库.提前感谢任何帮助.

解决了

对我来说,一个快速的解决方案是消除引用标签的每一行的“scale_x_date(major =”50年“)”部分.生成直方图的最终代码是这样的：

> quick.hist <- ggplot(ufo.us,aes(x = DateOccurred)) +
+   geom_histogram()

我想在某些时候向图表添加标签,但现在,该解决方案可以与新版本的ggplot2一起使用.

更好的解决方案：
在通过本书的动手实例的时候遇到类似的问题.我在这里发布完整的片段,用于制作这本书中的最后情节(这不是原来在这个问题上引用的情节,但它也暴露了同样的问题).
此修复程序解决了问题

> scale_x_date上的旧语法(感谢Jonas Heidelberg)
>需要明确引用比例库(谢谢B0WSER)
> legend =的弃用语法(由guide =替换)
> opts()的替代语法(由labs()替换)

图书摘要的更改如下图所示：

库(GGPLOT2)
库(秤)
state.plot< -
ggplot(all.sightings,aes(x = YearMonth,y = Sightings))
geom_line(AES(颜色= “darkblue”))
facet_wrap(〜State,nrow = 10,ncol = 5)
theme_bw()
scale_color_manual(values = c(“darkblue”=“darkblue”),guide =“none”)
scale_x_date(breaks = date_breaks(width =“5 years”),
labels = date_format(“％Y”))
xlab(“Time”)ylab(“Nb of Sightings”)
实验室(标题=“月 – 年和美国的不明飞行物观察的铌(1990-2000)”)

打印(state.plot)