r - Y軸が異なる縦棒グラフと折れ線グラフの組み合わせ

Question

Excelのように、Y軸が異なる縦棒グラフと折れ線グラフを組み合わせて作成することはできますか？折れ線グラフが良い-悪い比率であり、棒グラフが別の変数の特定の間隔に対する宇宙のパーセントであるグラフの作成を自動化したいと思います。左のY軸は良い-悪い比率を表し、右のY軸はユニバースのパーセントになります。ラティスでこれを実行したいのですが、推奨事項をいただければ幸いです。

Answer 1

require(plotrix)  # followed by a slight variation of the first example of twoord.plot
twoord.plot(2:10,seq(3,7,by=0.5)+rnorm(9), type=c("bar", "l"),
   1:15,rev(60:74)+rnorm(15),xlab="Sequence",
   ylab="Ascending values",rylab="Descending values",
   main="Plot with two ordinates - points and lines")

コメントのフォーマットに問題があるようですので、ここにもコードを入れています。rxおよびlxベクトルは数値である必要がありますが、xticklab引数を使用して正しくラベル付けできます。

twoord.plot(lx=1:10, ly= df$Pct, rx=1:10, ry= df$Rate, type=c('bar','l'), 
xticklab=df$Segment, xlab='Segment', ylab='Percent of Good', rylab='Good Rate')

Answer 2

この質問にはすでに受け入れられた回答があることは知っていますが、別のオプションを追加したかっただけです。「ベース」R以外の選択肢が限られている状況に陥った場合（たとえば、異なるチームで作業していて、可能な限り最高のコード互換性が必要な場合、最近私が見つけた状況）、いつでも可能です。使用

par(new=TRUE)

あるプロットを別のプロットの上にプロットするコマンド-つまり、棒グラフと折れ線グラフ。ここでの秘訣は（この投稿のおかげで）折れ線グラフと棒グラフの両方に「plot」を使用することです。「type ='h'」と「lend」および「lwd」オプションを使用して、折れ線グラフから棒グラフを作成します。 。

これは、「ベース」関数のみを使用して、上記のコードを複製します。

## Set up data
line.x <- 2:10
bar.x <- 2:10
bar.y <- seq(3,7,by=0.5)+rnorm(9)
bar.x <- 1:15
bar.x <- 2:10
line.x <- 1:15
line.y <- rev(60:74)+rnorm(15)
x.range <- range(bar.x, line.x)

## Plot the data
par(mar=c(5,4,4,4)+0.1)    ## Make enough room for both labels
plot(y=bar.y, x=bar.x, type='h', lwd=25, lend=4, xlim=x.range, xlab="Sequence", ylab="", main="Plot with two ordinates - points and lines")
par(new=TRUE)
plot(y=line.y, x=line.x, col='red', type='l', xlim=x.range, axes=FALSE, xlab='', ylab='')

## Set up the axes and labels
axis(side=4, col='red', labels=FALSE)
at = axTicks(4)
mtext(side = 4, text = at, at = at, col = "red", line = 1) 
## Add x-axis labels; this allows customization of the how far out labels are
mtext(text='Descending values', side=4, line=2, col='red')
mtext(text='Ascending values', side=2, line=2)

Answer 3

これを手動で実行する場合は、TeachingDemosパッケージのupdateusr関数を確認してください。

これはベースグラフィックスでのみ機能し、ラティスでは機能しません。