2013-12-13 44 views
0

我用Rstudio在R中創建了我的第一個腳本。是一個可靠的關聯。 代碼的結果如下圖所示。我不知道如何移動「點雲」內部的趨勢線,以及如何改變趨勢線的顏色。R中的簡單相關

enter image description here

summary(Landsat_7$Pixel_Value) 
summary(Landsat_8$Pixel_Value) 
Landsat7<-(Landsat_7) 
Landsat8<-(Landsat_8) 
head(cbind(Landsat7, Landsat8)) 
Landsat7 = Landsat_7$Pixel_Value # Landsat 7 
Landsat8 = Landsat_8$Pixel_Value # Landsat 8 
plot(Landsat7, Landsat8, 
    xlab= "Landsat 7",    # x−axis label 
    ylab= "Landsat 8")    # y−axis label 
abline(lm(Landsat7 ~ Landsat8))  # trend line 
+0

你會在這裏提供你的數據?我猜你沒有使用正確的語法或命令 –

+1

你只需要在你的'lm()':'abline(lm(Landsat8〜Landsat7),col =「red」)中切換'7'和'8' ' –

+0

尊重...給你我的朋友。非常感謝你這很簡單。 – Vassilis

回答

4

我不知道你是怎麼繪製原來的線路,但這將幫助您繪製最小二乘行:

x=runif(100,1,5) 
y=2*x+rnorm(100) 

plot(x,y) 
fit=lm(y~x) 
abline(fit,col=2) 
+1

或者如果您想要使用顯式獲得的迴歸參數執行相同的操作:'abline(fit $係數[1],擬合係數[2])' –

2

您還可以指定在同一公式在lm()函數中使用plot()函數:

plot(Landsat7 ~ Landsat8) 
abline(lm(Landsat7 ~ Landsat8))