gpt4 book ai didi

r - 点阵图 - 通过 y 值的平均值添加线

转载 作者:行者123 更新时间:2023-12-01 11:28:00 24 4
gpt4 key购买 nike

我想用分组的点和线打印 lattice::xyplot,但我有多个 y 值用于每个组中的许多单独的 x 值。我想要打印一条分段线,以便对于每个 x 值,它通过每个组中相关 y 值的平均值。

下面是一个例子:

使用这些数据:

set.seed(1)
d <- data.frame(x=sample(6, 20, replace=TRUE), y=rnorm(20), g=factor(sample(2, 20, replace=TRUE)))
# Shift one group
d$y[d$g==2] = d$y[d$g==2] + 5

我已经移动了一组,因此线条在视觉上更具吸引力。

散点图如下所示:
xyplot(y ~ x, data=d, groups=g)

enter image description here

只是添加行是一个真正的困惑:
xyplot(y ~ x, data=d, groups=g, type=c('p','l'))

enter image description here

如果对 x 值进行排序会好一点,但仍然不是我想要的:
xyplot(y ~ x, data=d[order(d$x),], groups=g, type=c('p','l'))

enter image description here

最佳答案

我会使用 panel.superpose 然后在组面板函数中进行聚合。例如

xyplot(y ~ x, data=d, groups=g, panel=function(...) {
panel.xyplot(...);
panel.superpose(..., panel.groups=function(x, y, col.line, ...) {
dd <- aggregate(y~x, data.frame(x,y), mean)
panel.xyplot(x=dd$x, y=dd$y, col=col.line, type="l")
})
})

这导致

enter image description here

关于r - 点阵图 - 通过 y 值的平均值添加线,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/35690034/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com