Cara melakukan pemulusan lemah di r (langkah demi langkah)
Dalam statistik, istilah lowess mengacu pada “penghalusan titik awan berbobot lokal” – proses menghasilkan kurva mulus yang sesuai dengan titik data di titik awan.
Untuk melakukan pemulusan terendah di R, kita dapat menggunakan fungsi lowess() , yang menggunakan sintaks berikut:
lebih rendah (x, y, f = 2/3)
Emas:
- x: vektor numerik nilai x.
- y: vektor numerik nilai y.
- f : nilai yang paling halus. Hal ini memberikan proporsi titik dalam plot yang mempengaruhi pemulusan pada setiap nilai. Nilai yang lebih tinggi menghasilkan lebih banyak kehalusan.
Contoh langkah demi langkah berikut menunjukkan cara melakukan pemulusan lemah untuk kumpulan data tertentu di R.
Langkah 1: Buat datanya
Pertama, mari buat kumpulan data palsu:
df <- data. frame (x=c(1, 1, 2, 2, 3, 4, 6, 6, 7, 8, 10, 11, 11, 12, 13, 14), y=c(4, 7, 9, 10, 14, 15, 19, 16, 17, 21, 22, 34, 44, 40, 43, 45))
Langkah 2: Plot datanya
Selanjutnya, mari kita plot nilai x dan y dari dataset:
plot(df$x, df$y)
Langkah 3: Gambarkan Kurva Minimum
Selanjutnya, mari kita gambarkan kurva pemulusan terlemah pada titik-titik di plot sebar:
#create scatterplot plot(df$x, df$y) #add lowess smoothing curve to plot lines(lowess(df$x, df$y), col=' red ')
Langkah 4: Sesuaikan Jangkauan Lebih Lembut (Opsional)
Kita juga dapat menyesuaikan argumen f di fungsi lowess() untuk menambah atau mengurangi nilai yang digunakan agar lebih lancar.
Perhatikan bahwa semakin besar nilai yang kami berikan, kurva bawahnya akan semakin mulus.
#create scatterplot plot(df$x, df$y) #add lowess smoothing curves lines(lowess(df$x, df$y), col=' red ') lines(lowess(df$x, df$y, f=0.3), col=' purple ') lines(lowess(df$x, df$y, f=3), col=' steelblue ') #add legend to plot legend(' topleft ', col = c(' red ', ' purple ', ' steelblue '), lwd = 2, c(' Smoother = 1 ', ' Smoother = 0.3 ', ' Smoother = 3 '))
Sumber daya tambahan
Cara memplot banyak garis dalam grafik di R
Cara membuat scatterplot dengan garis regresi di R
Bagaimana melakukan regresi polinomial di R