[R] 視覺化呈現 treemap

資料內容如下

R script如下：

library(treemap)

#read data

data = read.csv("data.csv",sep=",", header = T)

#treemap

treemap(data, index = "title", vSize = "cntuser", vColor = "cntuser", type = "value", sortID = "-size")

結果呈現如下：

[R] 動態Map視覺化呈現

透過leaflet package可套用OpenStreetMap圖資將資料視覺化呈現於網頁上


R Script如下：

library(leaflet)
setwd("C:/Users/chienhung0304/Desktop")
data = read.csv("geo.csv",header=T,sep=",")  
map = leaflet(data) %>% addTiles()
map %>% addCircles(radius = ~NT_CN, lat = ~y, lng = ~x, color = "red", weight = 1, popup = ~city, fillOpacity = 1)


透過Shiny可變成Web UI介面

Shiny Script如下：

UI:
library(shiny)

shinyUI(pageWithSidebar(

  # Application title
  headerPanel("google map"),

  # Sidebar with a slider input for number of zoom
  sidebarPanel(
    sliderInput("zoom",
                "Number of zoom:",
                min = 1,
                max = 12,
                value = 11)
  ),

  # Show a plot of the generated distribution
  mainPanel(
    plotOutput("geoPlot")
  )
))

Server:
library(shiny)
library(leaflet)

shinyServer(function(input, output) {

  output$geoPlot <- p="" renderplot=""> setwd("C:/Users/chienhung0304/Desktop")
data = read.csv("geo.csv",header=T,sep=",")
 
map = leaflet(data) %>% addTiles()
map %>% addCircles(radius = ~NT_CN, lat = ~y, lng = ~x, color = "red", weight = 1, popup = ~city, fillOpacity = 1)
#map %>% addCircleMarkers(radius = ~NT_CN*0.1, fill = FALSE, lat = ~y, lng = ~x, color = "red")

  })
})

Ref: https://rstudio.github.io/leaflet/shapes.html

[R] 於Google map 上視覺化呈現資料

資料內容如下：

x	y	NT_CN
121.564003	25.0359	184
121.5149994	25.0451	110
121.5500031	25.0992	102
121.564003	25.0404	91
121.5049973	25.0452	86

R Script如下：

#change directory

setwd("C:/Users/chienhung0304/Desktop")

#read data

data = read.csv("geo.csv",header=T,sep=",")

#import package

library(ggplot2)

library(ggmap)

#center 中心點

#zoom 調整圖資深淺度

#maptype 圖資類型"terrain","satellite", "roadmap", and "hybrid"

#size 調整圖資大小

ggmap(get_googlemap(center='taipei city', zoom=12, maptype='roadmap', size = c(680,680), scale = 4), extent='device') + geom_point(data=data, aes(x=x, y=y), colour='red', size=data$NT_CN*0.1, shape = 19)

呈現結果如下：

[R] 內政部 景點 - 觀光資訊資料庫OpenData

無法查看此摘要。請 按這裡查看文章。

[R] 透過Google map轉地址經緯度

無法查看此摘要。請 按這裡查看文章。