Tugas 3 (RegresiNonParametrik)

#Mengimport Data
library(readxl)
Dataset2 <- read_excel("C:/Users/Asus/Downloads/Dataset2.xlsx")
View(Dataset2)

library(ggplot2)
ggplot(Dataset2,aes(x=X1, y=Y)) + geom_point() + geom_smooth(method = lm, se = F, colour = "red")

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

ggplot(Dataset2,aes(x=X2, y=Y)) + geom_point() + geom_smooth(method = lm, se = F, colour = "red")

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

ggplot(Dataset2,aes(x=X3, y=Y)) + geom_point() + geom_smooth(method = lm, se = F, colour = "red")

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

ggplot(Dataset2,aes(x=X4, y=Y)) + geom_point() + geom_smooth(method = lm, se = F, colour = "red")

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

ggplot(Dataset2,aes(x=X5, y=Y)) + geom_point() + geom_smooth(method = lm, se = F, colour = "red")

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

ggplot(Dataset2,aes(x=X6, y=Y)) + geom_point() + geom_smooth(method = lm, se = F, colour = "red")

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