如何解决问题重现黄土动画,也许是膨胀与交叉问题?
我正在尝试重新制作一些非常漂亮的动画,这些动画显示了Variance Explained中的David Robinson提出的黄土行为。当我尝试重新创建动画时,与Robinson展示的组相比,我的组有不同的行为。在动画中,这些点正在以我不期望的方式跳跃。我想知道Guild#memberCount
中的行为是否不同于他在tidyr::crossing
中使用的已弃用的inflate
函数中。对于如何制作下面最后一个情节中的动画的任何建议,我们都表示赞赏。
broom
解决方法
回答自己。我错过了一个group_by
例如
dat <- ethanol %>%
tidyr::crossing(center = unique(ethanol$E)) %>%
group_by(center) %>%
mutate(dist = abs(E - center)) %>%
filter(rank(dist) / n() <= .75) %>%
mutate(weight = (1 - (dist / max(dist)) ^ 3) ^ 3)
p <- ggplot(dat,aes(x=E,y=NOx)) +
geom_point(aes(alpha = weight)) +
geom_smooth(aes(group = center,weight = weight),method = "lm",se = FALSE) +
geom_vline(aes(xintercept = center),lty = 2) +
geom_line(aes(y = .fitted),data = fit,color = "red")
library(gganimate)
p + transition_states(center)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。