R中的简单相关性

Question

我用Rstudio在R中创建了我的第一个脚本。是一种可靠的相关性。 代码的结果如下图所示。我不知道如何移动“点云”内的趋势线以及如何改变趋势线的颜色。

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

Answer 1

我不知道您是如何绘制原始线的，但这有助于您绘制最小方块线：

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

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

Answer 2

您还可以在plot（）函数中指定与lm（）函数中相同的公式：

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