Application

RStudio

R拡張統合環境ソフト

RStudioは、R（統計計算およびグラフィックス用のプログラミング言語）の統合開発環境です。

R言語とRStudioがインストールされています。
起動方法 WindowsメニューからRStudioを選択
公式

R公式ページ

RStudio公式ページ(Posit)

Rstudioの起動方法

＃　アプリを開く

＃Windowsメニューから、Rstudioフォルダーの中のRstudioのアイコンを選択。

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

＃　Source editorを開く

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

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

  1. install.packages('openxlsx')

    #エクセルシートを読み込むパッケージをインストール

  2. #【Ctrl】 + 【Enter】で展開。

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

＃　ライブラリを読み込む

  1. library(openxlsx)」

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

  2. #【Ctrl】 + 【Enter】で実行。

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

＃　エクセルのパスを指定

  1. #【session】→【Set Working Directory】→【Choose Directory】

    #または、

    setwd("C:/■■■/■■■/■■■/R_manual/test.xlsx エクセルのパス")

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

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

  2. #【Ctrl】 + 【Enter】で実行。

＃　エクセルを読み込む

  1. read.xlsx("test.xlsx")

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

  2. #【Ctrl】 + 【Enter】で展開。

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

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

＃　新しいスクリプトを開く

  1. #【File】→【New File】→【R script】

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

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

  1. install.packages("tidyverse")
    install.packages("rnaturalearth")
    install.packages("devtools")
  2. #【Ctrl】 + 【Enter】で展開。

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

  1. devtools::install_github("ropensci/rnaturalearthhires")
  2. #【Ctrl】 + 【Enter】で展開。

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

＃ パッケージの読み込み

  1. library(tidyverse)
    library(rnaturalearth)
    library(rnaturalearthhires)

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

  2. #【Ctrl】 + 【Enter】で実行。

＃　変数を指定

  1. #世界全体のデータをworldという変数に入れます。

    #scaleは地図の細かさを指定します。

    #'small'、'medium'、'large'がありますが、今回は'large'を指定します。

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

＃　世界地図

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

＃　北海道地図

  1. #世界地図から、北海道の緯度経度を指定するイメージ。
  2. ggplot(data = world) +
    geom_sf(color="black",fill="gray50") +
    coord_sf(xlim=c(138,149),ylim=c(41,46),expand=TRUE)
  3. ＃　北海道が描けました！

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

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

  1. install.packages("ggspatial")

＃　パッケージの読み込み

  1. library(ggspatial)

＃　変数を指定

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

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

  1. #北海道地図 +
    ggplot(data = world) +
    geom_sf(color="black",fill="gray") + coord_sf(xlim=c(138,149),ylim=c(41,46),expand=TRUE) +
  2. #スケール +
    annotation_scale(location = "bl", width_hint = 0.4) +
  3. #北向きコンパス
    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)
  4. ＃　描けました！

ＴＯＰ