地図上に円でID番号をつける方法

Question

異なるカテゴリの26のサイトで地図を作成しようとしています。カテゴリごとのサイトを異なる色で円で表示し、このサークルに数字を追加したいと思います。この番号はサイトのリストに関連付けられます。

私はggmapに次のマップを作成する時点まで慣れていますが、サークルに番号を追加する方法はわかりません。私はggmap https://stackoverflow.com/questions/tagged/ggmap?sort=frequentのFAQをチェックしましたが、ここで私の答えは見つかりませんでした。

example_sites <- structure(list(`Site No` = c("1", "2", "3", "4"), 
    latitude = c(46.181608,46.171386, 46.179887, 46.181169), 
    longitude = c(8.78852, 8.803413, 8.767505, 8.842291), 
    `Site group` = c("1", "2", "2", "1")), 
    .Names = c("Site No", "latitude", "longitude", "Site group"), 
    class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, -4L)) 

map <- get_map(location ='Locarno, Switzerland', zoom = 13, 
    maptype = "terrain", color = "bw", source = 'google') 

p <- ggmap(map) 
plot(p) 
p + geom_point(data = example_sites, aes(x = example_sites$longitude, y = example_sites$latitude, colour = example_sites$`Site group`), size = 5) 

これは、次のグラフ与える：私が（彼らの中の数字と異なる色で円）やりたいことが可能である場合

あなたは知っていますし、そうであれば、どのようにしそれ？ ggmapでこれができない場合は、他のパッケージのヒントに感謝します。

Answer 1

私があなたの質問を正しく理解している場合は、プロットのコードにgeom_text（）を追加する必要があります。

p+ 
    geom_point(data=example_sites, 
      aes(x=longitude, y=latitude, colour=`Site group`), size=5) + 
    geom_text(data=example_sites, 
      aes(x=longitude, y=latitude, label = `Site No`)) 

サイドノート：あなたはaesコール内で変数を参照している場合は、dataset$コンポーネントを必要としません。