#Library

library(ggplot2)
library(readxl)

#Import Data

dataset1 <- readxl::read_excel(file.choose())
dataset1
## # A tibble: 9 × 4
##       Y    X1    X2    X3
##   <dbl> <dbl> <dbl> <dbl>
## 1  57.5    78  2.75  29.5
## 2  52.8    69  2.15  26.3
## 3  61.3    77  4.41  32.2
## 4  67      88  5.52  36.5
## 5  53.5    67  3.21  27.2
## 6  62.7    80  4.32  27.7
## 7  56.2    74  2.31  28.3
## 8  68.5    94  4.3   30.3
## 9  69.2   102  3.71  28.7

#Scatter Plot X1 dan Y

ggplot(dataset1, aes(x = X1, y = Y)) +
  geom_point() +
  geom_smooth(method = "lm", se = FALSE) +
  labs(
    title = "Scatter Plot X1 terhadap Y",
    x = "X1",
    y = "Y"
  ) +
  theme_minimal()
## `geom_smooth()` using formula = 'y ~ x'

#Scatter Plot X2 dan Y

ggplot(dataset1, aes(x = X2, y = Y)) +
  geom_point() +
  geom_smooth(method = "lm", se = FALSE) +
  labs(
    title = "Scatter Plot X2 terhadap Y",
    x = "X2",
    y = "Y"
  ) +
  theme_minimal()
## `geom_smooth()` using formula = 'y ~ x'

#Scatter Plot X3 dan Y

ggplot(dataset1, aes(x = X3, y = Y)) +
  geom_point() +
  geom_smooth(method = "lm", se = FALSE) +
  labs(
    title = "Scatter Plot X3 terhadap Y",
    x = "X3",
    y = "Y"
  ) +
  theme_minimal()
## `geom_smooth()` using formula = 'y ~ x'