r - 使用 gganimate 显示动物 GPS 运动
问题描述
我想显示研究地点内动物运动的 GPS 位置。我必须使用 gganimate 显示 GPS 位置(.csv 文件):
p <- ggplot(data1, aes(x = Long, y = Lat)) +
geom_point(aes(colour=Number), show.legend=FALSE)
p
plot(p)
anim <- p +
transition_states(Number,
transition_length = 2,
state_length = 1)
但我无法将研究站点的栅格(.tif 文件)设置为背景。任何想法?
还。该transition_states
函数只运行 100 帧,我想运行 663 帧(所有 GPS 位置),似乎使用 (nframes=663, fps=24) 不起作用。
解决方案
我也有同样的挑战。为了设置学习背景,我首先使用该ggmap()
功能将地形图设置为情节背景。此方法不适用于上传您自己的图片,但使用了来自 Google 的卫星图片。您应该可以使用以下代码执行此操作:
library(ggmap)
bbox <- make_bbox(lon = data1$Long, lat = data1$Lat, f = .1)
terrain <- get_map(location = bbox, maptype = "satellite")
p <- ggmap(terrain) +
geom_point(data = data1, aes(x = Long, y = Lat, colour = Number), show.legend = FALSE)
anim <- p + transition_states(Number, transition_length = 2, state_length = 1)
make_bbox()
给定来自的输入,为您的研究地点生成边界data1
推荐阅读
- docker - 使用 JDBC 输入插件在 Docker 上的 Logstash 不会从 SQL Server 获取所有行
- flutter - 如何突出显示我在字符串中搜索的确切单词,而不仅仅是字符串的开头?
- flutter - 如何实时获取文档长度
- javascript - Reactjs 从获取请求中返回一个对象
- javascript - Nginx 正在尝试打开文件而不是重定向到代理
- python - _joint_log_likelihood 给我错误的值
- sql - 如何按日期获取最后一件商品的价格
- python-3.x - 定期执行功能而不停止其他操作
- r - 使用 R 从 PDF 表单到数据框的文本挖掘
- r - 如果 r 中出现错误,则转到 lapply() 的下一次迭代