带R的Gps热图

我想用R和我的gps数据复制一张这样的热图

我有一个活动数据库：lat、long和ID。 目前，我的解决方案是：

  heatmap <- ggplot(db) + geom_path(aes(lon,lat, group=id, colour = "white"), db %>% dplyr::filter(lon > 7.15, lon < 7.40, lat > 44.11, lat < 45.28), alpha = 0.3,size = 0.3, lineend = "round") + coord_map() + theme_black() + guides(colour=F)

---

您正试图指定一种颜色，而数据中有多个组。这就是为什么你的颜色=白色不被采用的原因。作为一种“黑客”，我用id上色，然后将颜色范围从白色改为白色。为了清晰起见，我将dplyr部分从该部分中删除。另外，我没有你的theme_black功能，所以我只是手动添加了黑色背景：

db_plot <- db %>% filter(lon > 7.15, lon < 7.40, lat > 44.11, lat < 45.28)
ggplot(db_plot, aes(lon,lat, group = id, col = id)) + 
  geom_path(alpha = 0.3, size = 0.5, lineend = "round") +
  coord_map() +
  guides(colour=F) +
  theme(panel.background=element_rect(fill="black"), panel.grid.minor=element_blank(),
        panel.grid.major=element_blank()) +
  scale_color_continuous(low = "white", high = "white")

---

您发布的图像似乎具有不同的颜色范围，这取决于路径的使用次数。为了实现这一点，我认为您需要按点的频率对数据进行分组。然后，您可以使用该组进行着色，并具有从红色到白色的连续范围。

您可以发布一些样本数据，以便我们可以复制它吗？您可以使用dputdb并在此处发布输出。添加了示例数据。我删除了时间变量，因为我认为它没有用。希望能有帮助，非常感谢您抽出时间

db_plot <- db %>% filter(lon > 7.15, lon < 7.40, lat > 44.11, lat < 45.28)
ggplot(db_plot, aes(lon,lat, group = id, col = id)) + 
  geom_path(alpha = 0.3, size = 0.5, lineend = "round") +
  coord_map() +
  guides(colour=F) +
  theme(panel.background=element_rect(fill="black"), panel.grid.minor=element_blank(),
        panel.grid.major=element_blank()) +
  scale_color_continuous(low = "white", high = "white")