ルビスコくん空を飛ぶ

博士学生(D1)の日記です.

パッケージ'plotflow'を使って2軸表示したときのバグ

以前「'plotflow'パッケージを使えばggplot2で2軸表示ができる」という記事を書いたのですが,よくわからないバグ(?)が発生するようになってしまいました。以前にはなかったのですが。

#データフレームの準備

dd <- 1:10 * 10
ee <- 1:10 / 20
ff <- 1:10
ddf <- data.frame(dd, ee, ff)

#左軸のデータ

TwoGGP_l <- ggplot(ddf, aes(ff))
leftplot <- TwoGGP_l + geom_point(aes(y = dd)) + labs("leaf") + theme(plot.margin = grid::unit(c(.5, 1, .5, 0), "cm")) + ylim(0, 100)

#右軸のデータ

TwoGGP_r <- ggplot(ddf, aes(ff))
rightplot <- TwoGGP_r + geom_point(aes(y = ee), colour = "red") + labs("right") + theme(plot.margin = grid::unit(c(.5, 1, .5, 0), "cm")) + ylim(0, 1)

#最後にプロット

ggdual_axis(leftplot, rightplot)

右軸のタイトルが表示されないうえに,右上によくわからない「x軸の残骸」みたいなのが入り込んでしまいます。どうやっても取り除けません。以前の記事で紹介したのと全く同じコードで書いても同じような結果になるので,ggplot2のアップデートに対応していないのかもしれません(あくまで憶測)。

f:id:pam715:20161228105104p:plain

どうやら,ggplot2のデフォルトでも2軸設定ができるようなったようです。なので,plotflowを使うのはやめにして少々面倒ではありますがそのやり方でやろうと思います。こちらの記事を参考にさせてもらいます。わかりやすいです。