Tugas 1 Regnonpar

# Memilih file CSV secara manual
data <- read.csv(file.choose(), sep = ";")
# Melihat data
View(data)

#Library
library(ggplot2)
#Umur vs Tinggi
ggplot(data, aes(x = Age, y = Height)) +
  geom_point(size = 1.5, alpha = 0.5) +
  geom_smooth(method = "lm", se = FALSE,
              color = "blue", linewidth = 1) +
  labs(
    title = "Scatter Plot Umur vs Tinggi",
    x = "Umur",
    y = "Tinggi"
  ) +
  theme_gray()

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

#Umur vs Berat
ggplot(data, aes(x = Age, y = Weight)) +
  geom_point(size = 1.5, alpha = 0.5) +
  geom_smooth(method = "lm", se = FALSE,
              color = "red", linewidth = 1) +
  labs(
    title = "Scatter Plot Umur vs Berat",
    x = "Umur",
    y = "Berat"
  ) +
  theme_gray()

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

#Tinggi vs Berat
ggplot(data, aes(x = Height, y = Weight)) +
  geom_point(size = 1.5, alpha = 0.5) +
  geom_smooth(method = "lm", se = FALSE,
              color = "blue", linewidth = 1) +
  labs(
    title = "Scatter Plot Tinggi vs Berat",
    x = "Tinggi",
    y = "Berat"
  ) +
  theme_gray()

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