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
追加された
ビュー: 4
源
ru fr es pt de ar
@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, 源
stackoverflow.com/questions/5479822/… stackoverflow.com/questions/6142944/…
追加された 著者 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
追加された
源