示例代码在此处运行绘图部分：
> 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)
