RのXYプロット上の複数の軸/尺度

plot()を使用して、この例のような異なるスケール(紫色の線)に2番目の線をXYプロットでプロットするにはどうすればよいですか?

enter image description here

最初の(赤い)行の私のRコードは次のようなものです:

p <- sqlQuery(ch,"SELECT wl,param1 FROM qryPlot ORDER BY wl")
plot(p$wl,p$param1,axes=T,xlim=c(400,800),ylim=c(0,100),type="l",col="red")
2
@Dwinどこで見つけることができますか?
追加された 著者 waanders,
@DWin確かに、私はR FAQのどこにいたのですか?しかし、ベン・ボルカーはすでにすでに答えている。あなたがた両方に感謝します
追加された 著者 waanders,
コメント=役に立たない
追加された 著者 waanders,
stackoverflow.com/questions/5479822 =別の状況について:1つのグラフに4つの異なるプロット。 stackoverflow.com/questions/6142944 は大丈夫ですが、plot()関数では実現できません
追加された 著者 waanders,
それはR-FAQにもあります。
追加された 著者 42-,
R-FAQはRと一緒に配布されています。私のデバイス上ではヘルプ機能の一部ですが、R FAQのためのGoogle検索の最初のヒットにもなります.... RのようなGoogleの人々。
追加された 著者 42-,
cran.r-project.org/doc/FAQ/… (「r faq y y axes」の検索も便利です)
追加された 著者 Ben Bolker,
それは "2つのy軸"のFAQを検索するのは難しいことではありませんか?
追加された 著者 Ben Bolker,
私はこれも以前に対処されていると思います。他のQ/Asを探してみましょう...
追加された 著者 John Colby,

2 答え

ここに一般的なアイデアがあります:

plot(1:10)
par(new=T)
plot(1:10, rep(50, 10), type='l', axes=F, xlab=NA, ylab=NA)
axis(4)

enter image description here

8
追加された

私は@ johncolbyの答えをこれに少し拡張しました:

x<-1:20
y1<-sqrt(x)
y2<-sqrt(x)*x
plot(x,y1,ylim=c(0,25),col="blue")
par(new=TRUE)
plot(x,y2,ylim=c(0,100),col="red",axes=FALSE)
axis(4)

2番目のplot()コマンドでは axes = FALSE コマンド=ラベルの2番目の軸が左側に印刷されないようにする)

この結果では:

enter image description here

解決すべき問題はほとんどありません。両方のy軸のラベルが左側に印刷されます。

0
追加された