web-dev-qa-db-ja.com

ggplot2の棒グラフと折れ線グラフ（二重軸）の組み合わせ

double-y-axisチャートをExcelで作成しました。 Excelでは、基本的なスキルのみが必要です。私がやりたいのは、Rのggplot2ライブラリを使用してこのチャートを複製することです。

enter image description here

すでにこれを行っていますが、2nd-y-axisにResponseをプロットする必要があります。

enter image description here

使用した再現可能なコードを同封します。

#Data generation
Year <- c(2014, 2015, 2016)
Response <- c(1000, 1100, 1200)
Rate <- c(0.75, 0.42, 0.80)

df <- data.frame(Year, Response, Rate)

#Chart
library(ggplot2)

ggplot(df)  + 
  geom_bar(aes(x=Year, y=Response),stat="identity", fill="tan1", colour="sienna3")+
  geom_line(aes(x=Year, y=Rate),stat="identity")+
  geom_text(aes(label=Rate, x=Year, y=Rate), colour="black")+
  geom_text(aes(label=Response, x=Year, y=0.9*Response), colour="black")
rggplot2bar-chartlinechartyaxis
16
AK47

まず、RateをRate*max(df$Response)でスケーリングし、応答テキストの_0.9_スケールを変更します。

次に、scale_y_continuous(sec.axis=...)を介して2番目の軸を含めます。

_ggplot(df)  + 
    geom_bar(aes(x=Year, y=Response),stat="identity", fill="tan1", colour="sienna3")+
    geom_line(aes(x=Year, y=Rate*max(df$Response)),stat="identity")+
    geom_text(aes(label=Rate, x=Year, y=Rate*max(df$Response)), colour="black")+
    geom_text(aes(label=Response, x=Year, y=0.95*Response), colour="black")+
    scale_y_continuous(sec.axis = sec_axis(~./max(df$Response)))
_

どちらが得られますか：

enter image description here

22
setempler