r - サブセットのRシーケンス

Question

次のようなデータフレームがあります。

in    out
3234  1
124   1
323   0
532   1

今、私はのプロットを作りたいと思いますmean(subset(data, data$in < x)$out)。私はこのようにプロットするためのシーケンスを生成しようとします：

x <- seq(0, 10000, by=1)
y <- mean(subset(data, data$in < x)$out)

しかし、2行目では、「オブジェクトの長さが長いほど、オブジェクトの長さが短いの倍数ではない」という警告が表示さplot(x, y)れ、エラーが発生します。その間、私がそれの代わりに数を置くならば、xそれは働きます。誰かがそのようなアプローチの問題を指摘できますか？

Answer 1

関数sapply()を使用して、の各要素の平均を計算できますx。しかし、エラーが発生したため、最初にの列名をに変更inしました。ins

colnames(data)<-c("ins","out")
x <- seq(0, 10000, by=1)
y <- sapply(x,function(x) mean(subset(data, ins < x)$out))
plot(x,y)