maps Kutuphanelerini Kullanarak Harita
require(maps)
## Loading required package: maps
map("usa") #map komutu harita ve poligon çizimi için kullanılıyor

Eğer Fransa haritası eyaletlerine bölünmüş olarak çizdirmek istiyorsanız, map komutunun içine maps kütüphanesinin içinde yer alan county seçeneğini kullanabilirsiniz.

map("county")

Amerika’daki eyaletlerin işsizlik oranlarının, oranların büyüklüğüne göre renklendirilmiş haritada gösterilmesi.

data(unemp) #data komutu yardımıyla R’ın içerisinde yer alan dataları enviromentimizie yüklüyoruz. data(county.fips)

head(unemp) #datamızın ilk 6 satırını görmek için head komutunu kullanıyoruz. 
##   fips   pop unemp
## 1 1001 23288   9.7
## 2 1003 81706   9.1
## 3 1005  9703  13.4
## 4 1007  8475  12.1
## 5 1009 25306   9.9
## 6 1011  3527  16.4
head(county.fips)
##   fips        polyname
## 1 1001 alabama,autauga
## 2 1003 alabama,baldwin
## 3 1005 alabama,barbour
## 4 1007    alabama,bibb
## 5 1009  alabama,blount
## 6 1011 alabama,bullock
colors = c("#F1EEF6", "#D4B9DA", "#C994C7", "#DF65B0", "#DD1C77", "#980043")
unemp$colorBuckets <- as.numeric(cut(unemp$unemp, c(0, 2, 4, 6, 8, 10, 100)))
head(unemp)
##   fips   pop unemp colorBuckets
## 1 1001 23288   9.7            5
## 2 1003 81706   9.1            5
## 3 1005  9703  13.4            6
## 4 1007  8475  12.1            6
## 5 1009 25306   9.9            5
## 6 1011  3527  16.4            6
colorsmatched <- unemp$colorBuckets[match(county.fips$fips, unemp$fips)]
map("county", col = colors[colorsmatched], fill = TRUE, resolution = 0, lty = 0, projection = "polyconic")
# Add border around each State
map("state", col = "white", fill = FALSE, add = TRUE, lty = 1, lwd = 0.2, projection = "polyconic")
title("Eyaletlerin işsizlik oranı / Amerika, 2009")
leg.txt <- c("<2%", "2-4%", "4-6%", "6-8%", "8-10%", ">10%")
legend("topright", leg.txt, horiz = TRUE, fill = colors)