Differences

This shows you the differences between two versions of the page.

--- r:googlevis [2017/06/07 14:09] – hkimscil
+++ r:googlevis [2017/06/07 17:23] (current) – [Public Parking Places] hkimscil
@@ Line 271: / Line 271: @@
 </code>
+====== Places in Jeju ======
+<code>
+install.packages("googleVis")
+install.packages("ggmap")
+Sys.setlocale("LC_CTYPE", "en_US.UTF-8")
+library(googleVis)
+library(ggmap)
+ft_placelst <- function(place) {
+  temp <- geocode(place)
+  place <- gsub("제주 ","",place)
+  df_lst <- cbind(place,temp)
+  return(df_lst)
+}
+df_placelst <- ft_placelst(readLines("제주여행코스.txt"))
+latlong <- paste(df_placelst$lat,":",df_placelst$lon)
+latlong <- gsub(" ","",latlong)
+df_placelst <- cbind(df_placelst, latlong)
+df_placelst
+placePath <- gvisMap(df_placelst, "latlong" ,"place" ,
+                     options=list(showTip=TRUE, showLine=TRUE,
+                                  enableScrollWheel=TRUE,
+                                  mapType='hybrid',
+                                  useMapTypeControl=TRUE,
+                                  width=800,height=1000))
+plot(placePath)
+</code>
 ====== Population by districts ======