楼主先试着绘制一个折柱混合图，然而不知道为撒主Y轴的范围跟次Y轴一样，代码如下： library(ggplot2) library(data.table) data(diamonds) diamonds.new <- as.data.table(diamonds) diamonds.new2 <- diamonds.new[, by = .(cut), .(y1 = median(carat), y2 = median(price))] ggplot(data = diamonds.new2, aes(x = cut)) + geom_bar(aes(y = y1), stat = 'identity', position = 'dodge') + geom_line(aes(y = y2), group = 1) + scale_y_continuous( name = "主Y轴", sec.axis = sec_axis(~ . , name = "次Y轴") ) 接着又试着干脆画两个双Y轴的柱状图，然后也不知为撒，只剩下一种柱子，代码如下： ggplot(data = diamonds.new2, aes(x = cut)) + geom_bar(aes(y = y1, fill = 'red'), stat = 'identity', position = 'dodge') + geom_bar(aes(y = y2, fill = 'green'), stat = 'identity', position = 'dodge') + scale_y_continuous(name = "主Y轴", sec.axis = sec_axis( ~ . , name = "次Y轴"))

第二个Y轴的值太小了，需要参考主Y轴做一定的变换，比如这样 coeff <- max(diamonds.new2$y1) / max(diamonds.new2$y2) ggplot(data = diamonds.new2, aes(x = cut)) + geom_bar(aes(y = y1), stat = 'identity', position = 'dodge') + geom_line(aes(y = y2 * coeff), group = 1) + scale_y_continuous( name = "主Y轴", sec.axis = sec_axis(~ . / coeff, name = "次Y轴") )

第二个双柱的图， position = 'dodge' 要求数据是长表的格式，两个geom_bar加上dodge并不能使柱子错开，具体可以参考下position_dodge的帮助文档试了下，不用dodge，用 just 和 width 参数控制也可以 ggplot(data = diamonds.new2, aes(x = cut)) + geom_bar(aes(y = y1), fill = 'red', just = -0.1, width = 0.3, stat = 'identity') + geom_bar(aes(y = y2 * coeff), fill = 'green', just = 1.1, width = 0.3, stat = 'identity') + scale_y_continuous(name = "主Y轴", sec.axis = sec_axis( ~ . / coeff, name = "次Y轴"))

meeeeeeeeo 啊，谢谢你，我来试试。话说，ggplot2 的文档实在太长了，函数又多，真是看得一头雾水。

yuanfan 函数又多，真是看得一头雾水我写了个 ggplot2 入门，入门之后，就不会雾水了。至于，实际工作中需要的各种自定义不难的，ggplot2 资源十分丰富，经过搜索、查找、修改，我感觉绝大部分都可以满足。

meeeeeeeeo 话说关于对主Y轴和次Y轴坐标轴范围的变换，为撒不能改成下面这样呢？ coeff <- max(diamonds.new2$y2) / max(diamonds.new2$y1) ggplot(data = diamonds.new2, aes(x = cut)) + geom_bar(aes(y = y1), stat = 'identity', position = 'dodge') + geom_line(aes(y = y2 * coeff), group = 1) + scale_y_continuous(name = "主Y轴", sec.axis = sec_axis( ~ . * coeff, name = "次Y轴")) 我以为在 sec.axis = sec_axis( ~ . * coeff, name = "次Y轴") 这里面的这部分 ~ . * coeff ，这个 . 是指主 Y 轴的范围，那么除以一个极小的数不就等于乘以一个很大的数吗？俺找到原因了，如下是正常的。但是不明白为撒画图的时候要把次 Y 轴的数据先缩小到跟主 Y 轴一个范围，设置具体坐标轴范围时又重新放大？ coeff <- max(diamonds.new2$y2) / max(diamonds.new2$y1) ggplot(data = diamonds.new2, aes(x = cut)) + geom_bar(aes(y = y1), stat = 'identity', position = 'dodge') + geom_line(aes(y = y2 / coeff), group = 1) + scale_y_continuous(name = "主Y轴", sec.axis = sec_axis( ~ . * coeff, name = "次Y轴"))

Cloud2016 我今天还翻了翻你写的 ggplot2 食谱和作图经验，我现在学习 ggplot2 就像两年前学 echarts4r 一样从绘制柱状图开始，令我雾水的地方的在于，echarts4r 把图形分成了各种组件，比如修改 X Y 轴就是在 e_x_axis 和 e_y_axix 里面改参数，修改图例、标题就是在 e_title 和 e_legend 里面改参数, 操作起来就像是一个西瓜劈两半，两半互相之间没有关联，挨个啃即可；而 ggplot2 把图形的元素怎么划分的规律我还没搞明白，感觉 echarts4r 里面的组件概念换到 ggplot2 里面互相之间有关联，比如与坐标轴相关的函数就有好几个，每个函数只负责一部分。

yuanfan 而 ggplot2 把图形的元素怎么划分的规律我还没搞明白就是一个一个的图层，把基础的搞明白，其它的很类似，多用用就会感受到这种规律了。

Cloud2016 另外，其实我学 ggplot2 的时候并不觉得难，就是函数多，感到繁杂无头绪，还没有梳理出来一条清晰的学习线路。而且选择学 ggplot2 是因为列出了好几个想学的，挑了认为最容易入门的，反正学到后面一定会由量变带来质变的……

Cloud2016 俺就是觉得图层的概念太抽象了，很容易误以为像是一层层图形元素的叠加。

yuanfan 不知道你有没有用过 PS？我当年是先学的 PS，后接触的 ggplot2，因为图层的概念是相通的，所以我当时理解起来中间没有沟壑，只是，函数不熟悉。一层加数据、一层上色、一层加标签、一层调刻度等等，按一定顺序叠加在一起就行了。当然，每一层里面还有图形元素和数据的映射。

怎样使用 ggplot2 绘制双 Y 轴的图形

yuanfan

Cloud2016
嗯，有道理，回头我再抽空把税收数据拿出来鼓捣鼓捣。谢谢你。

« 上一页