R中的绘图参数均值

Question

我有一个称为r的大型实数1-d数据集。 我想情节：

mean(log(1+a*r)) vs a, with a > -1 . 

我该怎么做？

Answer 1

您可以使用sapply来评估一组值的功能。

x <- seq(-1,1,length=20) 
y <- sapply(x, function(a) mean(log(1+a*r))) 
plot(x,y, type="l") 

或者，你可以定义一个函数来计算这个量 并使用curve来绘制。 函数必须被矢量化。

r <- runif(100) 
f <- function(a) mean(log(1+a*r)) 
f <- Vectorize(f) 
curve(f, xlim=c(-1,1), las=1)