Differences

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

--- r:googlevis [2017/06/07 14:05] – [Bubble charts] hkimscil
+++ r:googlevis [2017/06/07 17:23] (current) – [Public Parking Places] hkimscil
@@ Line 1: / Line 1: @@
 ====== Worldbank data e.g. ======
-<code>install.packages("googleVis")
+<code>library(googleVis)
+demo(googleVis)</code>
+<code>
+Sys.setlocale(category = "LC_ALL", locale = "us")
+install.packages("googleVis")
 library(googleVis)
 demo(WorldBank)</code>
 {{youtube>nNfT_UBmmu0}}
 <code>
@@ Line 268: / 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 ======