Differences

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

--- r:googlevis [2017/06/07 14:02] – [Public Parking Places] 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 231: / Line 234: @@
 plot(a)</code>
-<code>library(googleVis)
-demo(googleVis)</code>
 ====== Public Parking Places ======
 <code>
@@ 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 ======
 <code>
- library(ggmap)
+library(ggmap)
- library(grid)
+library(grid)
- pop <- read.csv("지역별인구현황_2014_4월기준.csv",header=T)
+pop <- read.csv("지역별인구현황_2014_4월기준.csv",header=T)
- pop
+pop
- lon <- pop$LON
+lon <- pop$LON
- lat <- pop$LAT
+lat <- pop$LAT
- data <- pop$총인구수
+data <- pop$총인구수
- df <- data.frame(lon,lat,data)
+df <- data.frame(lon,lat,data)
- df
+df
- map1 <- get_map("Jeonju",zoom=7 , maptype='roadmap')
+map1 <- get_map("Jeonju",zoom=7 , maptype='roadmap')
- map1 <- ggmap(map1)
+map1 <- ggmap(map1)
- map1 geom_point(aes(x=lon,y=lat,colour=data,size=data),data=df)
+map1 + geom_point(aes(x=lon,y=lat,colour=data,size=data),data=df)
- ggsave("pop.png",scale=1,width=7,height=4,dpi=500)
+ggsave("pop.png",scale=1,width=7,height=4,dpi=500)
 </code>