だから私は曲線をプロットし、私の本とスタックの両方を見てきましたが、Rに70 xの曲線に沿ったときにyの値を教えてくれるように指示するコードを見つけることができないようです.
curve(
20*1.05^x,
from=0, to=140,
xlab='Time passed since 1890',
ylab='Population of Salmon',
main='Growth of Salmon since 1890'
)
つまり、R に 70 歳のサケの数を教えてもらう方法と、それ以外の時期のサケの数を教えてほしいということです。
編集: 明確にするために、5 ずつ増加して X の複数の Y 値を表示するように R に命令する方法に興味がありました。
曲線は関数 20*1.05^x をプロットしているので、x の代わりにその関数に必要な値を差し込むだけです。
> 20*1.05^70
[1] 608.5285
>
20*1.05^(seq(from=0, to=70, by=10))
Ed が R に関数を直接入力できることを返信するまで忘れていました。
salmon <- data.frame(curve(
20*1.05^x,
from=0, to=140,
xlab='Time passed since 1890',
ylab='Population of Salmon',
main='Growth of Salmon since 1890'
))
salmon$y[salmon$x==70]
1 608.5285
このsalmondata.frame は、すべてのデータを提供します。
head(salmon)
x y 1 0.0 20.00000 2 1.4 21.41386 3 2.8 22.92768 4 4.2 24.54851 5 5.6 26.28392 6 7.0 28.14201
上記の構文を使用して、不等式を使用して、指定された範囲内のサケの数を確認することもできます。
このオブジェクトを使用して、質問の 2 番目の部分に簡単に答えることができます。
salmon$z <- salmon$y*5 # I am using * instead of + to make the plot more clear
plot(x=salmon$x,y=salmon$z, xlab='Time passed since 1890', ylab='Population of Salmon',type="l")
lines(salmon$x,salmon$y, col="blue")
