R 如何计算每行对应的平均值？

我有一个光栅（矩阵），我想计算每个纬度对应的所有值的平均值

library (raster)
r <- raster(nrows=10, ncols=10)
r <- setValues(r, 1:ncell(r))
extent(r) = extent(c(xmn=-180,xmx=180,ymn=-90,ymx=90))
plot(r)

库（光栅）
r可以分别为直线构造x和y值。y值将只是从光栅的顶部到底部的一个序列：

stepsize = (r@extent@ymax - r@extent@ymin) / r@nrows
yvals = seq(r@extent@ymax - stepsize / 2, r@extent@ymin, -stepsize)

x值将是光栅中每行的平均值：

xvals = rowMeans(as.matrix(r))

然后将其添加到现有绘图中：

plot(r)
lines(xvals, yvals)

或者，您可以将其绘制在新图形上：

plot(xvals, yvals)

您想在光栅上打印还是在新的打印中？谢谢@DavidRobinson。他们两个都喜欢一个小评论。绘制的线应具有对场地坡度？你试过了吗？@hyat更正了（显然我最初在我的代码中看到并更正了这一点，但没有在我的答案中）