Sintaks Output Tugas Regnon Dataset 1

library(ggplot2)
data1 <- read.csv("Dataset 1.csv")

 ggplot(data1, aes(x = X1, y = Y)) +
  geom_point(color = "blue", size = 3) +
  geom_smooth(method = "lm", se = FALSE, color = "pink") +
  labs(
    title = "Scatter Plot Y terhadap X1",
    x = "X1",
    y = "Y"
    ) +
  theme_minimal()

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

ggplot(data1, aes(x = X2, y = Y)) +
  geom_point(color = "blue", size = 3) +
  geom_smooth(method = "lm", se = FALSE, color = "pink") +
  labs(
    title = "Scatter Plot Y terhadap X2",
    x = "X2",
    y = "Y"
  ) +
  theme_minimal()

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

ggplot(data1, aes(x = X3, y = Y)) +
  geom_point(color = "blue", size = 3) +
  geom_smooth(method = "lm", se = FALSE, color = "pink") +
  labs(
    title = "Scatter Plot Y terhadap X3",
    x = "X3",
    y = "Y"
  ) +
  theme_minimal()

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