R：在X和Y轴上使用真实的LON/LAT值

发布于 2025-01-29 13:13:06 字数 1033 浏览 3 评论 0原文

生成以下图表

library(rnaturalearth)
library(rnaturalearthdata)
library(ggplot2)
library(rworldmap)
library(scales)
library(sf)
library(mapdata)
library(maptools)
library(ggthemes)

data(wrld_simpl)

antarctica <- wrld_simpl[wrld_simpl$NAME == "Antarctica", ]
pr <- "+proj=laea +lat_0=-90 +ellps=WGS84 +datum=WGS84 +no_defs +towgs84=0,0,0"
antarctica.laea <- spTransform(antarctica, CRS(pr))

antarctica_plot <- ggplot() +
  geom_polygon(data = antarctica.laea, aes(x=long, y=lat, group=group), fill = '#003f5c') +
  labs( x = "Longitude", y = "Latitude") +
  annotation_scale(location = "bl", width_hint = 0.5) +
  annotation_north_arrow(location = "bl", which_north = "true", 
                         pad_x = unit(0.75, "in"), pad_y = unit(0.5, "in"),
                         style = north_arrow_fancy_orienteering) +
  theme_wsj()

antarctica_plot

我已经使用r：

我如何在轴上显示真实的纬度和经度值？

原文

I've generated the following chart with R:

library(rnaturalearth)
library(rnaturalearthdata)
library(ggplot2)
library(rworldmap)
library(scales)
library(sf)
library(mapdata)
library(maptools)
library(ggthemes)

data(wrld_simpl)

antarctica <- wrld_simpl[wrld_simpl$NAME == "Antarctica", ]
pr <- "+proj=laea +lat_0=-90 +ellps=WGS84 +datum=WGS84 +no_defs +towgs84=0,0,0"
antarctica.laea <- spTransform(antarctica, CRS(pr))

antarctica_plot <- ggplot() +
  geom_polygon(data = antarctica.laea, aes(x=long, y=lat, group=group), fill = '#003f5c') +
  labs( x = "Longitude", y = "Latitude") +
  annotation_scale(location = "bl", width_hint = 0.5) +
  annotation_north_arrow(location = "bl", which_north = "true", 
                         pad_x = unit(0.75, "in"), pad_y = unit(0.5, "in"),
                         style = north_arrow_fancy_orienteering) +
  theme_wsj()

antarctica_plot

How can I display the real latitude and longitude values on my axis?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

庆幸我还是我 2025-02-05 13:13:06

您可以解决此操作，将空间多边形（sp）转换为简单的功能类（sf），并使用geom_sf而不是geom_polygon代码>。我找不到函数annotation_scale和annotation_north_arrow在任何这些软件包中 btw ...

antarctica.laea <- st_as_sf(antarctica.laea)
        
    ggplot(antarctica.laea) +
      geom_sf(aes(), fill = '#003f5c')+
      labs( x = "Longitude", y = "Latitude") +
      theme_wsj()

You can solve this transforming the spatial polygon (sp) to simple feature class (sf) and using the geom_sf instead geom_polygon. I couldnt find the functions annotation_scale and annotation_north_arrow in any of those packages btw...

antarctica.laea <- st_as_sf(antarctica.laea)
        
    ggplot(antarctica.laea) +
      geom_sf(aes(), fill = '#003f5c')+
      labs( x = "Longitude", y = "Latitude") +
      theme_wsj()