在R/ ggplot中将直线添加到中心点(经度/经度)

library(ggplot2)

# 创建一个数据框，包含中心点的经度和纬度
data <- data.frame(
  longitude = c(120, 121),
  latitude = c(30, 31)
)

# 创建一个空的ggplot对象
p <- ggplot() +
  # 添加地图背景
  borders("world", colour = "gray50", fill = "white") +
  coord_quickmap()

# 添加中心点
p <- p + geom_point(data = data, aes(x = longitude, y = latitude), color = "red", size = 3)

# 添加直线
p <- p + geom_segment(data = data, aes(x = longitude[1], y = latitude[1], xend = longitude[2], yend = latitude[2]), color = "blue", size = 1)

# 显示图形
print(p)