R2-39 地图作业

redpanda 2018-01-02 21:21:58 阅读: 1012

# 打开不了中文的数据，使用了 google map做了一个图

library(ggplot2)

library(ggmap)

library(maps)

library(mapproj)

library(rworldmap)

map <- getMap(resolution = "low") # 获得世界地图

plot(map, xlim = c(-20, 59), ylim = c(35, 71), asp = 1,main="R2-39 European") #欧洲地图

europe.limits <- geocode(c("Grenoble, France")) #从Google map中获取我现在的地理坐标

europe.limits

points(europe.limits$lon, europe.limits$lat, col = "red", pch=23, cex = .8) # 显示我的地理坐标

legend("left",legend = "Grenoble", text.col="red", bg = NA, box.lty = 0)

邀请讨论

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整评论

受邀请回答

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整回复

发送回复

赞({{item.count_zan}})

踩({{item.count_cai}})

删除

回复关闭