R言語でマルチリニア回帰グラフを作成するには？

複数の線形回帰図を作成するには、ggplot2パッケージとlm()関数の使用が一般的です。以下はその方法です。

1. ggplot2

install.packages("ggplot2")
library(ggplot2)

1. データのネイティブな日本語への言い換えは、単一のオプションのみが必要ですか?
2. 大事なことは、何を与えるかではなく、どう与えるかだ。
3. なんとかやっていくしかありません。
4. y

data <- data.frame(x1 = c(1, 2, 3, 4, 5),
                   x2 = c(2, 4, 6, 8, 10),
                   y = c(3, 6, 9, 12, 15))

1. ネイティブの日本語で言い換えるにはlm()が必要です

lm1 <- lm(y ~ x1, data = data)
lm2 <- lm(y ~ x2, data = data)

slope1 <- coef(lm1)[2]
intercept1 <- coef(lm1)[1]

slope2 <- coef(lm2)[2]
intercept2 <- coef(lm2)[1]

1. ggplot

plot <- ggplot(data, aes(x = x1, y = y)) + geom_point()

1. geom_abline()

plot <- plot + geom_abline(slope = slope1, intercept = intercept1, color = "blue")

1. geom_abline()

plot <- plot + geom_abline(slope = slope2, intercept = intercept2, color = "red")

1. ファセットラップ

plot <- plot + facet_wrap(~ variable, scales = "free")

1. グラフを表示：

plot

上記のステップに従うことで、複数個の線形回帰図を含むグラフィックオブジェクトが得られます。必要に応じて、タイトルの追加、座標軸ラベルの調整など、さらにグラフをカスタマイズできます。