示例代码在此处运行绘图部分:
> 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)
解决方法
原文地址:https://www.jb51.cc/css/216613.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。