Rで解析：「ggplot2」パッケージだけで2軸グラフの作成

「ggplot2」パッケージだけで2軸グラフを作成するコマンド例です。「scale_y_continuous」コマンドと「sec.axis」コマンドを利用しています。

「tidyverse」パッケージバージョンは1.3.2。windows11のR version 4.2.2で確認しています。

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

下記コマンドを実行してください。

#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#12452;&#12531;&#12473;&#12488;&#12540;&#12523;
install.packages("tidyverse")

実行コマンドの紹介

詳細はコマンド、パッケージのヘルプを確認してください。

#ggplot2&#12434;&#21547;&#12416;tidyverse&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
library("tidyverse")

###&#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;#####
set.seed(1234)
n <- 50
TestData <- tibble(Group = sample(paste0("Group ", 1:5), n, replace = TRUE),
                   Data = 1:n,
                   Data1 = 1:n,
                   Data2 = rnorm(n))
########

#&#31532;2&#36600;&#35519;&#25972;&#22793;&#25968;
SecondScale <- max(TestData$Data1)/max(TestData$Data2)

ggplot(TestData, aes(x = Data)) +
  #Data1&#12364;&#31532;1&#36600;
  stat_summary(aes(y = Data1, fill = Group), fun = "mean",
               geom = "bar", position = "stack") +
  
  #Data2&#12364;&#31532;2&#36600;
  geom_line(aes(y = Data2*SecondScale), col = "blue", size = 4) +
  
  #2&#36600;&#12398;&#35519;&#25972;
  scale_y_continuous(name = "Data1 = sample(0:26, n, replace = TRUE)",
                     sec.axis = sec_axis(trans = ~./SecondScale,
                                         breaks = seq(-10, 10, by = 1),
                                         name = "Data2 = rnorm(n)")) +
  #&#12486;&#12540;&#12510;&#12391;&#36600;&#12434;&#35519;&#25972;
  theme(
    #&#31532;2&#36600;&#22238;&#12426;
    axis.title.y.right = element_text(color = "red", #&#33394;&#12398;&#25351;&#23450;
                                      angle = -90) #90&#12391;&#31532;1&#36600;&#12392;&#21516;&#12376;&#21521;&#12365;
    )

出力例

少しでも、あなたの解析が楽になりますように！！