例えば…エクセルの読み込み方

Source editorを開く

【File】→【New File】→【R script】

パッケージのインストール

「 install.packages('openxlsx') 」　
エクセルシートを読み込むパッケージをインストール

【Ctrl】 + 【Enter】で展開。

（パッケージのインストールは次回から不要。）

ライブラリを読み込む

「library(openxlsx)」

エクセルを読み込む為のライブラリを実行。

【Ctrl】 + 【Enter】で実行。

ライブラリは毎回読み込みが必要です。

エクセルのパスを指定

【session】→【Set Working Directory】→【Choose Directory】
または、
「setwd("C:/■■■/■■■/■■■/R_manual/test.xlsx エクセルのパス")」

【Ctrl】 + 【Enter】で実行。

今回は、デスクトップの『 R_manual 』というフォルダーの中にある『 test.xlsx 』を開きます。

エクセルを読み込む

「 read.xlsx("test.xlsx") 」

【Ctrl】 + 【Enter】で展開。

エクセルが読み込まれました！

続いて…北海道地図を描いてみよう

新しいスクリプトを開く

【File】→【New File】→【R script】

隣に新しいSource editorが作られました！

パッケージのインストール

install.packages("tidyverse")
install.packages("rnaturalearth")
install.packages("devtools")

【Ctrl】 + 【Enter】で展開。

"devtools"の"rnaturalearthhires"をインストール

devtools::install_github("ropensci/rnaturalearthhires")

【Ctrl】 + 【Enter】で展開。

（パッケージのインストールは次回から不要。）

パッケージの読み込み

library(tidyverse)
library(rnaturalearth)
library(rnaturalearthhires)

【Ctrl】 + 【Enter】で実行。

ライブラリは毎回読み込みが必要です。

変数を指定

世界全体のデータをworldという変数に入れます。
#scaleは地図の細かさを指定します。
#'small'、'medium'、'large' がありますが、今回は'large'を指定します。

world <- ne_countries(scale="large" , returnclass="sf" )

世界地図

ggplot(data = world) +
geom_sf(color="black",fill="gray50")

北海道地図

世界地図から、北海道の緯度経度を指定するイメージ。

ggplot(data = world) +
geom_sf(color="black",fill="gray50") +
coord_sf(xlim=c(138,149),ylim=c(41,46),expand=TRUE)

北海道が描けました！

おまけ…北海道地図にスケールとコンパスを追加

パッケージのインストール

install.packages("ggspatial")

パッケージの読み込み

library(ggspatial)

変数を指定

world <- ne_countries(scale="large" , returnclass="sf" )

北海道地図 + スケール + コンパス

#北海道地図 +
ggplot(data = world) +
geom_sf(color="black",fill="gray") + coord_sf(xlim=c(138,149),ylim=c(41,46),expand=TRUE) +

#スケール +
annotation_scale(location = "bl", width_hint = 0.4) +

#北向きコンパス
annotation_north_arrow(location = "bl",which_north = "true",
pad_x = unit(0.75, "in"),pad_y = unit(0.25, "in"),
style = north_arrow_fancy_orienteering)

描けました！