如何精确设置轴位置

Question

我需要裁剪图，以便将轴精确设置在已知的x和y线上。 coord_cartesian的行为方式不一样（请参见下文）。因此，例如，在下面的图像中，我希望轴直接位于30或40个标记上。任何想法将不胜感激，因为这给Google带来了麻烦！

编辑：这被标记为重复项，并且该问题可能是重复项，但我得到的答案与标记为重复项的答案有所不同，并且在我看来更简单，更好。

library(ggplot2)
library(cowplot)
library (rgdal)
library (rgeos)
library(maptools)

poly <- readShapePoly("Countries_WGS84/Countries_WGS84.shp")
polygon <- fortify(poly)

map <- ggplot() + 
  geom_polygon(data=polygon, aes(long, lat, group = group)) +
  coord_cartesian(xlim=c(2, 12),c(30,40)) 

save_plot("map.png",map ,base_asp = 1, base_height = 10)