如何在'wifi zone'图中添加圆圈?

时间:2014-03-18 08:09:44

标签: r plot ggplot2

我是一名大学生,也是编程初学者。 研究时我遇到了问题&ggplot2'封装

我想要情节' wifi区'并在一个情节中添加圆圈,但我不能这样做..并且对于该做什么感到困惑..

我想知道对应于" wifi区域"的point_geom大小。实半径20米'

数据包含纬度,经度和关于什么样的移动机构服务。

我的代码如下:

library(ggmap)

wifi_daejeon <- read.csv("C:/Users/Byeongsoo/Desktop/R markdown/대전와이파이.csv")
wifi_gungdong <- subset(wifi_daejeon, EMD_NM == "궁동")
cent_gungdong <- c(mean(wifi_gungdong$LON), mean(wifi_gungdong$LAT))
bmap_gungdong <- ggmap(get_googlemap(center = cent_gungdong, zoom = 15, maptype = "roadmap"), 
                       extent = "device", 
                       base_layer = ggplot(wifi_gungdong, aes(x = LON, y = LAT, colour = CCB)))
bmap_gungdong + 
  geom_point() + 
  theme(plot.title = element_text(size = 20, colour = "BLUE"), 
  axis.text = (element_text(size=10))) +  
  theme(legend.title = element_text(size = 15)) +
  theme()

不幸的是,我无法上传图片,因为我没有10个声誉..

图片的网址是:

http://postfiles4.naver.net/20140318_99/soccerball1_1395130002602k7k10_PNG/%C4%B8%C3%B3.PNG?type=w3

这是我的问题。感谢您阅读至今。

1 个答案:

答案 0 :(得分:2)

map <- get_map()
g<-ggmap(map, extent = TRUE)
g + geom_point(aes(x=-95.36327,y=29.763284),col='red',size=20,shape=1)