# Scatter Plot
library(ggplot2)

Pada bagian ini, kita mengimpor pustaka “ggplot2” yang digunakan untuk membuat plot visualisasi data.

ggplt <- ggplot(Orange,aes(x=circumference,y=age))+
        geom_point()+
        theme_classic()

Pada bagian ini, kita membuat objek ggplt yang akan digunakan untuk membangun plot. Kita menggunakan fungsi ggplot() dengan argumen Orange untuk mendefinisikan sumber data. Kemudian, kita menggunakan aes() untuk menentukan variabel x dan y dalam plot, yaitu circumference dan age. Selanjutnya, kita menggunakan geom_point() untuk menambahkan titik-titik pada plot berdasarkan data yang diberikan. Terakhir, kita menggunakan theme_classic() untuk memberikan tampilan plot dengan gaya klasik.

ggplt

bagian ini berfungsi uunutuk mencetak plot scatter yang telah dibuat menggunakan ggplt

# Plotting a single Regression Line
ggplt+geom_smooth(method=lm,se=FALSE,fullrange=TRUE)
## `geom_smooth()` using formula = 'y ~ x'

Pada bagian ini, kita menambahkan garis regresi pada plot yang telah dibuat menggunakan ggplt. Kita menggunakan geom_smooth() dengan argumen method=lm untuk menunjukkan bahwa kita ingin menampilkan garis regresi berdasarkan model regresi linier. se=FALSE digunakan untuk menonaktifkan interval kepercayaan pada garis regresi. fullrange=TRUE digunakan untuk menampilkan garis regresi yang melintasi seluruh rentang data. Dengan menambahkan geom_smooth() ke ggplt, kita dapat melihat scatter plot dengan garis regresi.

Dalam keseluruhan program, kita mengimpor pustaka “ggplot2”, membuat scatter plot menggunakan fungsi ggplot() dan geom_point(), serta menambahkan garis regresi menggunakan geom_smooth(). Hasil plot dicetak ke layar.