I made my first script in R with Rstudio. Is a sible correlation.
The result of the code is the image below. I don't know how to move the trend line inside of the "point cloud" and how to change the color of trend line.

![enter image description here](https://i.stack.imgur.com/geV2t.png) 

```
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

```