要使用R語言繪制多個線性回歸圖，可以使用ggplot2包和lm()函數。以下是一種基本的方法：

1. 安裝和加載ggplot2包：

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

2. 創建一個數據集，包含多個自變量和一個因變量。例如，假設我們有一個名為data的數據集，包含兩個自變量x1和x2，以及一個因變量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))

3. 使用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]

4. 創建一個空白的ggplot圖形對象：

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

5. 使用geom_abline()函數添加第一個線性回歸線：

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

6. 使用geom_abline()函數添加第二個線性回歸線：

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

7. 可選：使用facet_wrap()函數將圖形分割為多個子圖，每個子圖對應一個自變量：

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

8. 顯示圖形：

plot

通過以上步驟，您將得到一個包含多個線性回歸圖的圖形對象。您可以根據需要進一步自定義圖形，例如添加標題、調整坐標軸標簽等。