Как построить сеть на географической карте в R?

Question

Привет, я хочу получить пространственную сеть, такую ​​как присоединение, но я не знаю, как это сделать, я пробовал ggplot, ggraph, igraph без какого-либо приятного результата.

Может ли кто-нибудь поделиться некоторыми кодами или дать мне несколько советов?

Answer 1

Я пробовал метод ggplot2, но возникла ошибка (Ошибка в FUN (X [[i]], ...): объект 'to.lon' не найден).

ggplot(chicken_QH, 
       aes(x = from.lon, y = from.lat, xend = to.lon, yend = to.lat)) +
  geom_edges(aes(size = chickenBatchs/10000, 
                 alpha = chickenBatchs/10000,
                 color = type),
             curvature = 0.3,
             arrow = arrow(length = unit(10, "pt"), 
                           type = "closed")) +
  geom_nodes(color = "gold", size = 10, alpha = .5) +
  geom_nodes(color = "gold", size = 3) +
  geom_nodetext(aes(label = from), fontface = "bold") +
  scale_linetype_discrete(guide = F) +
  geom_polygon(data = china_blank, 
               aes(x = long, y = lat, group = group),
               fill = "white",
               col = "grey",
               size = rel(.3)) +
  coord_quickmap()

также, с основным методом заговора, хотя он работает, но опрос довольно прост.

map(china_blank, asp = 1)
plot(dg_cattle_QH, 
     edge.color = adjustcolor(qc, alpha.f = .7),
     edge.curved = 0.2,
     edge.width = qw,
     vertex.size = 6,
     vertex.color = adjustcolor("gold", alpha.f = .7),
     layout = as.matrix(xy_province_capital_ch[, 3:4]), 
     add = TRUE, 
     rescale = FALSE)