fork download
copy 
  1. # 第一個問題(分行政區畫圖)
  2. data <- read.csv("ntp.gis.csv",fileEncoding = "UTF-8", header = TRUE)
  3.  
  4. map <- get_map(location = "Taipei", zoom = 11, language = "zh-TW", color = "bw")
  5. ggmap(map) +
  6. geom_point(aes(x = zip_x, y = zip_y), color="red", data = data) +
  7. facet_wrap(~ district)
  8.  
  9. # 第 2 & 3 個問題(自動取最適合的zoom-in尺度, 經緯度精確度問題)
  10. # 板橋
  11. banqiao <- subset(data,data$district=='板橋區')
  12. map <- get_map(location = c(lon = 121.453220, lat = 25.006734), zoom = 14, language = "zh-TW", color = "bw")
  13. ggmap(map) +
  14. #geom_point(aes(x = zip_x, y = zip_y), color = "red", data = banqiao) +
  15. geom_jitter(aes(x = zip_x, y = zip_y),col="red", position = position_jitter(w=0.0005,h=0.0005),data=banqiao)
  16.  
Success #stdin #stdout #stderr 0.46s 79168KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
Error in file(file, "rt", encoding = fileEncoding) : 
  cannot open the connection
Calls: read.csv -> read.table -> file
In addition: Warning message:
In file(file, "rt", encoding = fileEncoding) :
  cannot open file 'ntp.gis.csv': No such file or directory
Execution halted
https://ideone.com/D6FtYK
language:
R (R 3.5.2)
created:
9 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!