1 データ

1.1 貿易データ

  • origins: USA, Australia, China, New Zealand, Germanyの5カ国
  • destinations: Japanのみ
  • import: 上記5カ国から日本への輸出額
  • longitude.x latitude.x: 輸出国の緯度経度
  • longitude.y latitude.y: 輸入国（日本）の緯度経度。(137.96, 37.54)。
library(readr)
trade <- read_csv("trade.csv")
head(trade)
## # A tibble: 5 × 7
##   origins     destinations import longitude.x latitude.x longitude.y latitude.y
##   <chr>       <chr>         <dbl>       <dbl>      <dbl>       <dbl>      <dbl>
## 1 USA         Japan         17.9       -113.        45.7        138.       37.5
## 2 Australia   Japan          9.32       134.       -25.7        138.       37.5
## 3 China       Japan          5.54       104.        36.6        138.       37.5
## 4 New Zealand Japan          2.51       171.       -41.8        138.       37.5
## 5 Germany     Japan          1.91        10.4       51.1        138.       37.5

1.2 棒グラフによるデータの確認

  • ここで、 「trade$import」は、棒グラフにする変数である輸入額
  • また、 「trade$origins」は、棒グラフの下に表示する国名
barplot(trade$import,names.arg=trade$origins)

2 Leafletの基本

2.1 Leafletのインストール

install.packages("leaflet")

2.2 pipe operator ( %>% )を用いない書き方

library(leaflet)
m <- leaflet()
m <- addTiles(m)
m <- addMarkers(m, lng=174.768, lat=-36.852, popup="The birthplace of R")
 m

2.3 pipe operator ( %>% )を用いる書き方

pipe operatorはcontrol+shift+mを同時に押すことで出ます。

library(leaflet)
m <- leaflet() %>%
addTiles() %>% # Add default OpenStreetMap map tiles
addMarkers(lng=174.768, lat=-36.852, popup="The birthplace of R")
m

2.4 例）地図上に東京駅を示す

leaflet() %>%
  addTiles() %>% #規定の地図背景を使う
  addMarkers(lng=139.76727500369722, lat=35.68207281264243,  popup="Tokyo Station") #ポップアップの経度緯度指定

3 マーカー（addMarkers）

  • trade.csvデータに掲載の輸出国を表示。
library(readr)
trade <- read_csv("trade.csv")

library(leaflet)
x <- leaflet() %>%
  addTiles() %>%  # Add default OpenStreetMap map tiles
  addMarkers(lng=trade$longitude.x, lat=trade$latitude.x, popup=trade$origins) 
x

4 サークル（addCircles）

  • 輸出国の輸出額のサークルを作成する
  • addCircles()でサークルを作れる。
  • weightはサークルの外周の線の太さ。
  • radiusはサークルの大きさ。

4.1 輸出国の輸出額のサークルを作成（パイプ演算子使う方法）

library(readr)
trade <- read_csv("trade.csv")

library(leaflet)
x <- leaflet() %>%
  addTiles() %>%  # Add default OpenStreetMap map tiles
addCircles(lng=trade$longitude.x, lat=trade$latitude.x, weight = 1,
    radius = trade$import*100000, popup=trade$origins)
x

4.2 輸出国の輸出額のサークルを作成（パイプ演算子使わない方法）

library(readr)
trade <- read_csv("trade.csv")

library(leaflet)
x<-leaflet()
x<-addTiles(x)
x<-addCircles(x,lng = trade$longitude.x,lat = trade$latitude.x,radius = trade$import*100000,popup = trade$origins)
x