R ggplot2 |在轴中绘制方向经纬度坐标数据和in

library(ggplot2)
library(arrow)

# 创建数据框
data <- data.frame(lon = c(120, 121, 122),
                   lat = c(30, 31, 32),
                   direction = c(45, 135, 225))

# 绘制散点图
ggplot(data, aes(x = lon, y = lat)) +
  geom_point() +
  geom_segment(aes(xend = lon + sin(direction), yend = lat + cos(direction)),
               arrow = arrow(length = unit(0.2, "cm")))

library(ggplot2)
library(sf)

# 创建sf对象
data <- data.frame(lon = c(120, 121, 122),
                   lat = c(30, 31, 32),
                   direction = c(45, 135, 225))
data_sf <- st_as_sf(data, coords = c("lon", "lat"))

# 绘制地理数据
ggplot() +
  geom_sf(data = data_sf) +
  geom_segment(data = data_sf,
               aes(x = lon, y = lat, xend = lon + sin(direction), yend = lat + cos(direction)),
               arrow = arrow(length = unit(0.2, "cm")))