ggplot指定经度/纬度轴折断

library(ggplot2)

# 加载地理数据
data <- map_data("world")

# 绘制地理数据的点
ggplot(data, aes(x = long, y = lat, group = group)) +
  geom_polygon(fill = "lightblue") +
  coord_map() +
  theme_minimal() +
  labs(title = "World Map")

# 指定经度轴的折断
ggplot(data, aes(x = long, y = lat, group = group)) +
  geom_polygon(fill = "lightblue") +
  coord_map() +
  theme_minimal() +
  labs(title = "World Map") +
  scale_x_continuous(limits = c(-180, -90, 0, 90, 180),
                     breaks = c(-180, -90, 0, 90, 180),
                     labels = c("-180", "-90", "0", "90", "180"))

# 指定纬度轴的折断
ggplot(data, aes(x = long, y = lat, group = group)) +
  geom_polygon(fill = "lightblue") +
  coord_map() +
  theme_minimal() +
  labs(title = "World Map") +
  scale_y_continuous(limits = c(-90, -45, 0, 45, 90),
                     breaks = c(-90, -45, 0, 45, 90),
                     labels = c("-90", "-45", "0", "45", "90"))