ggplot2を使用して値軸を破る

Question

私はThinkcellを使いましたが、その特長の1つは、グラフに合うように非常に長いy軸を壊すことです。 ggplot2でこれを行うことができるかどうかはわかりません。私はggplot2の初心者です。だから、私はどんな考えにも感謝します。例えば

は：

：私はこのようになりますグラフをしたい、しかし

：

Series<- c(1:6) 
    Values<-c(899,543,787,35323,121,234) 
    df_val_break<-data.frame(Series,Values) 
    ggplot(data=df_val_break,aes(x=Series,y=Values)) + 
     geom_bar(stat = "identity") 

これは、このようなグラフを作成します

しかし、それはmsは壊れた軸はggplot2でサポートされていません。誤解を招く（ソース：Using ggplot2, can I insert a break in the axis?）。このスレッドは、ファセッティングとテーブルの2つのことを示しています。

私はテーブルが好きですが、私はカテゴリ変数 "シリーズ"が密接に関連しているため、ファセットを好きではありません。また、私はテーブルを描画するためのExcelを好むだろう - それは高速です。

質問1：私が言っていたオプションの一つhttps://stats.stackexchange.com/questions/1764/what-are-alternatives-to-broken-axesである

は、私は2つの質問があります。グラフは です。

スケール問題のため、類似のグラフを複製できません。

質問2：これは私たちがこれを行うのに役立つかもしれない新しいパッケージが導入された場合の小さな問題です。 （上記のリンクされたSOスレッドは5年以上です。）テーブルには他のオプションはありますか？

---

アップデート：私は私の質問には二つの理由で重複しているとは思わない：A）私はすでに指定されたスレッドを経ていて、私は第三のように見える解決策を探していますことを説明ここで参照しています私のポストのグラフ。具体的には、両方のグラフをプロットすることを検討しています.1つはグラフで、もう1つは1/20スケールです。スケールの問題のためにggplot2を使用してこれを行うことができません。どちらのサブグラフも1/nthにスケーリングされるか、そのうちの1つが標準範囲にスケーリングされます。私は、このバージョンが、logとInverse transformationを理解していない非技術的な視聴者にはかなり関係していると思います。

Answer 1

私はこの1つで刺しを取りました。私は初心者ですので、テキストの配置の面でさらに改善できるかどうかはわかりません。私は、高成長率シリーズと低成長率シリーズの両方を、異なるスケールのために1つのグラフに合わせることに苦労しました。だから、私はファセットを使った。

ここでは、コードです： 私が見るかなりの数の問題があります：

A）High_growthレートのグラフは、xにシリーズ2及びシリーズ6を持っている

ggplot(data = df_val_break,aes(x=Series,y=Values)) + 
     geom_bar(stat = "identity") + 
     facet_wrap(~Modified) + 
     geom_text(data = df_val_break[df_val_break$Modified=="HIGH_GROWTH",], aes(label = "x20 growth rate"),hjust=0.5, vjust=0) 
    ggsave("post.png") 

ここでは出力がありますが、我々はそれらを必要としないが、軸である。私はそれらをオフにする方法を知らない。

b）geom_textがバーと重なっています。これは少し迷惑に見えます。

c）y軸がLOW_GROWTHでスケーリングされていないため、特にグラフが少し誤解を招くと思います.2つの異なるy軸を表示することを最初に考えていました。/20であり、他方はスケーリングされていない。