DATA SET 1 RAYMOND

library(ggplot2) 
dataset1 <- read.csv( 
  "DATA SET 1 REGNON.csv", 
  sep = ";", 
  dec = "," )

ggplot(dataset1, aes(x = X1, y = Y)) + geom_point( color = "seagreen", 
    size = 3, 
    alpha = 0.8 ) + geom_smooth( method = "lm", 
    se = FALSE, color = "darkred", 
    linewidth = 1 ) + labs( title = "Scatter Plot X1 dan Y", 
    x = "X1", y = "Y" ) + theme_minimal()

## `geom_smooth()` using formula = 'y ~ x'

ggplot(dataset1, aes(x = X2, y = Y)) + geom_point( color = "royalblue", 
    size = 3, alpha = 0.8 ) + geom_smooth( method = "lm", 
    se = FALSE, 
    color = "darkorange", 
    linewidth = 1 ) + labs( title = "Scatter Plot X2 dan Y", 
    x = "X2", y = "Y" ) + theme_minimal()

## `geom_smooth()` using formula = 'y ~ x'

ggplot(dataset1, aes(x = X3, y = Y)) + geom_point( color = "deeppink", 
    size = 3, alpha = 0.8 ) + geom_smooth( method = "lm", 
    se = FALSE, color = "darkgreen", 
    linewidth = 1 ) + labs( title = "Scatter Plot X3 dan Y", 
    x = "X3", y = "Y" ) + theme_minimal()

## `geom_smooth()` using formula = 'y ~ x'