개요

R로, 2축의 그래프 묘화를 실시합니다.

내용은 다음과 같습니다.
· 샘플 데이터 작성
· 일반 그리기
・2축으로 그리기

샘플 데이터 작성

우선, 샘플 데이터를 작성합니다.
이번에는 30일분의 매출과 구매자수, 구매일이 있는 3열의 데이터를 작성합니다.

##まずはサンプルデータ作成

#購入金額データ
purchase <- rnorm(n=30, mean=400000, sd=50000) %>%
  as.integer() 

#購入者数データ
usr_num <- rnorm(n=30, mean=200, sd=50) %>%
  as.integer()

#上で作成したデータをデータフレームにし、購入日列の追加
data <-data.frame(purchase, usr_num) %>% 
  mutate(date = seq(1:length(purchase))) 

purchase (구매 금액 합계), usr_num (구매자 수), date (구입일)
3열로 구성된 샘플 데이터가 생성되었습니다.

일반 그리기

일반적으로 구매 금액 합계와 구매자 수와 같은 단위가 크게 다른 두 개
하나의 그래프에 정리하려고 하면, 아래의 그래프와 같이,
단위의 작은 구매자 수는 증감의 파도가 없어 보입니다.

두 축으로 그려 보자.

1. 우선 그래프 파라미터 설정에서

통상, 1축의 메모리를 두는 것만의 공간 밖에 없기 때문에, 그래프 파라미터를 변경해,
2축째를 두는 곳이 생기는 여백을 만듭니다.

##グラフパラメータを変更する
#パラメータを元に戻せるよう、デフォルト値を保持しておく
default_mai <-par()

#グラフパラメータの設定
mai <- par()$mai

#余白サイズの設定(上下と左右の幅を揃える)
mai[4] <- mai[1] 

#指定した余白サイズの適用
par(mai = mai)

2. 첫 번째 그래프를 그리자

이것은 항상 그렇습니다.

##1つ目のグラフの描画
plot(
  data$usr_num,
  type = "l", #"l"で折れ線グラフの指定
  ylab = "usr_num", #y軸の表示
  col = "blue" #線の色の指定
  ) 

앞서 여백을 만들어 두었기 때문에 평소보다 오른쪽이 있습니다.

3. 두 번째 그래프를 그리자

여기에서가 프로덕션입니다!

##2つ目のグラフの表示
par(new = T) #現在のplotに上描きの設定

plot(
  data$purchase, #plotしたいものを指定
  type = "l", 
  axes = FALSE, #axes=Fの指定をしないと既存の軸の上に軸が乗ってしまう
  ylab = "", #空にしておかないと既存の表示の上に重なってしまう 
  col="red" 
  )

#2軸目を表示
axis(4) #どこにメモリを置くか(1なら下,2なら左,3なら上,4なら右)

#2軸目のラベル設定
mtext("purchase", #2軸目のラベル名
      side = 4, #どこにラベルを置くか(1なら下,2なら左,3なら上,4なら右)
      line = 2 #グラフの枠からの距離
      )

완성＼ (＠＾0＾＠) ／
구매자 수와 금액 증감의 파도는 어느 정도 관계가 있는 것처럼 보입니다.
그리는 그래프에 따라 새로운 발견이 있는 경우가 많습니다.

4. 마지막으로

먼저 변경한 그래프 파라미터를 되돌려 둡시다.

#グラフパラメータの余白をデフォルト値に戻す
par(mai = default_mai$mai)