子集中的 R 序列答案

【问题标题】：R sequence in subset子集中的 R 序列
【发布时间】：2012-12-27 06:18:00
【问题描述】：

我有一个如下所示的数据框：

现在我想绘制mean(subset(data, data$in < x)$out) 的情节。我尝试生成一个这样的绘图序列：

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

但是第二行给了我一个警告“更长的对象长度不是更短的对象长度的倍数”并且plot(x, y) 导致错误。同时，如果我输入一个数字而不是x，它就可以工作。谁能指出这种方法有什么问题？

【问题讨论】：

【解决方案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)

【讨论】：