Tugas 1 (Regresi NonParametrik)

#Mengimport Data
Data.Obesitas.Fixx <- read.csv("C:/Users/Asus/Downloads/Data Obesitas Fixx.csv", sep=";")
View(Data.Obesitas.Fixx)

library(ggplot2)
#Visualisasi Scatter Plot Tinggi Badan dan Berat Badan
ggplot(Data.Obesitas.Fixx,aes(x=Height, y=Weight)) + geom_point() + geom_smooth(method = lm, se = F) +
  scale_x_continuous(breaks = seq(0.00, 1.99, by = 0.05)) + scale_y_continuous(breaks = seq(20, 180, by = 10))

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

#Visualisasi Scatter Plot Umur dan Berat Badan
ggplot(Data.Obesitas.Fixx,aes(x=Age, y=Weight)) + geom_point() + geom_smooth(method = lm, se = F) + 
  scale_x_continuous(breaks = seq(10, 60, by = 2)) + scale_y_continuous(breaks = seq(20, 180, by = 10)) 

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

#Visualisasi Scatter Plot Umur dan Tinggi Badan
ggplot(Data.Obesitas.Fixx,aes(x=Age, y=Height)) + geom_point() + geom_smooth(method = lm, se = F) + 
  scale_x_continuous(breaks = seq(10, 60, by = 2)) + scale_y_continuous(breaks = seq(0.00, 1.99, by = 0.04)) 

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