переверните оси ggplot вверх и вправо, используя theme ()

Мне нужно перевернуть числа (и деления) по оси Y и оси X вправо и вверх соответственно (вместо того, где они сейчас). И я бы хотел, чтобы они ВНУТРИ карты, а не снаружи. В конечном итоге это будет небольшая карта-врезка (без ключа или белого поля) на другой карте большего размера.

Моя карта сейчас:

Мой код:

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"), но получаю сообщение об ошибке:

Scale for 'y' is already present. Adding another scale for 'y', which will replace the existing scale.               
Scale for 'x' is already present. Adding another scale for 'x', which will replace the existing scale.

Есть ли способ сделать это с помощью theme()?

Плохой результат: