Saya perlu membalik angka (dan tanda centang) dari sumbu y dan sumbu x masing-masing ke kanan dan atas (bukan di tempatnya sekarang). Dan saya ingin mereka DI DALAM peta, bukan di luar. Ini pada akhirnya akan menjadi peta sisipan kecil (tanpa kunci atau spasi putih apa pun) di peta lain yang lebih besar.
Kode saya:
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)))
Contoh data di 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
Saya telah mencoba menambahkan scale_y_continuous(position = "right")
dan scale_x_continuous(position = "top")
tetapi saya mendapatkan pesan kesalahan:
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.
Apakah ada cara untuk mencapai hal ini menggunakan tema()?
Akibat buruknya: