Visualisasi.R

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

# Melihat data
View(data)

library(ggplot2)
# 1. Umur vs Tinggi
plot(data$Age, data$Height,
     main = "Scatter Plot Umur vs Tinggi",
     xlab = "Umur",
     ylab = "Tinggi",
     pch = 19)

abline(lm(Height ~ Age, data = data),
       col = "red",
       lwd = 3)

# 2. Umur vs Berat
plot(data$Age, data$Weight,
     main = "Scatter Plot Umur vs Berat",
     xlab = "Umur",
     ylab = "Berat",
     pch = 19)

abline(lm(Weight ~ Age, data = data),
       col = "red",
       lwd = 3)

# 3. Tinggi vs Berat
plot(data$Height, data$Weight,
     main = "Scatter Plot Tinggi vs Berat",
     xlab = "Tinggi",
     ylab = "Berat",
     pch = 19)

abline(lm(Weight ~ Height, data = data),
       col = "red",
       lwd = 3)