使用theme（）将ggplot的轴翻转到顶部和右侧

Question

我需要将y轴和x轴的数字（和刻度线）分别向右和顶部（而不是现在的位置）翻转。我希望他们在地图内，而不是在外面。最终，这将是另一张较大的地图上的小插图插入图（没有键或任何空白边距）。

我现在的地图：

我的代码：

m

baseInset = get_map(location=c(-160.8,18.5,-154.625,22.5), zoom=8, maptype="terrain") mapInset<-ggmap(baseInset) Inset <- mapInset + geom_point(data=CoordInset, aes(x=-Long, y=Lat, fill=Type, shape=Type), color="black", cex=1.4) + scale_fill_manual(values=c("red", "blue"), labels=c("Molokaiense (not geo-referenced)", "Oahuense (not geo-referenced)")) + scale_shape_manual(values = c(21,23), labels=c("Molokaiense (not geo-referenced)", "Oahuense (not geo-referenced)")) + theme(panel.border = element_rect(fill=NA, colour = "black", size=1), plot.margin = unit(c(0.3, 0.3, -1.7, -0.2), 'lines'), axis.line = element_blank(), axis.text.x = element_text(angle=45, hjust=0.9, vjust=2.2, size=8), axis.ticks.length=unit(-0.15,"cm"), axis.text.y = element_text(size=8, margin = margin(r = -18))) 中数据的示例：

CoordInset

我尝试添加Long Lat Type 1 155.2000 19.50000 Not geo-referenced 2 155.2000 19.51600 Not geo-referenced 3 155.3433 19.67571 Not geo-referenced 4 155.4000 19.80000 Not geo-referenced 5 155.4483 19.76015 Not geo-referenced 6 155.5000 19.90000 Not geo-referenced 7 155.5000 19.80000 Not geo-referenced 8 155.6000 20.00000 Not geo-referenced 9 155.6000 19.80000 Not geo-referenced 和scale_y_continuous(position = "right")，但收到错误消息：

scale_x_continuous(position = "top")

是否可以使用theme（）完成此操作？

糟糕的结果：