R nuqtali diagramma

Nuqtali diagrammalar (scatter plot)

Grafik (plot) bobidan plot() funksiyasi sonlarni bir-biriga nisbatan grafikda tasvirlash uchun ishlatilishini bilib oldingiz.

"Scatter plot" (nuqtali diagramma) — ikki sonli o‘zgaruvchi o‘rtasidagi bog‘liqlikni ko‘rsatish uchun ishlatiladigan grafik turi bo‘lib, unda har bir kuzatuv uchun bitta nuqta chiziladi.

Buning uchun bir xil uzunlikdagi ikkita vektor kerak: biri x o‘qi (gorizontal) uchun, ikkinchisi y o‘qi (vertikal) uchun:

Misol

x <- c(5,7,8,7,2,2,9,4,11,12,9,6) y <- c(99,86,87,88,111,103,87,94,78,77,85,86) plot(x, y)

Natija:

O‘zingiz sinab ko‘ring »

Yuqoridagi misoldagi kuzatuv yonimizdan o‘tgan 12 ta avtomobil bo‘yicha natijani ko‘rsatishi kerak.

Grafikni birinchi marta ko‘rayotgan odam uchun bu tushunarsiz bo‘lishi mumkin, shuning uchun nuqtali diagrammani yaxshiroq tavsiflash maqsadida sarlavha va turli yorliqlar qo‘shamiz:

Misol

x <- c(5,7,8,7,2,2,9,4,11,12,9,6) y <- c(99,86,87,88,111,103,87,94,78,77,85,86) plot(x, y, main="Observation of Cars", xlab="Car age", ylab="Car speed")

Natija:

O‘zingiz sinab ko‘ring »

Takrorlab aytganda, yuqoridagi misoldagi kuzatuv yonimizdan o‘tgan 12 ta avtomobil natijasidir.

x o‘qi avtomobilning yoshini ko‘rsatadi.

y o‘qi avtomobilning yonimizdan o‘tayotgandagi tezligini ko‘rsatadi.

Kuzatuvlar o‘rtasida qandaydir bog‘liqlik bormi?

Avtomobil qanchalik yangi bo‘lsa, shunchalik tez yurganga o‘xshaydi, lekin bu tasodif bo‘lishi mumkin — axir biz bor-yo‘g‘i 12 ta avtomobilni qayd etdik.

Grafiklarni taqqoslash

Yuqoridagi misolda avtomobil tezligi va yoshi o‘rtasida bog‘liqlik borga o‘xshaydi, lekin boshqa kungi kuzatuvlarni ham grafikda tasvirlasak-chi? Nuqtali diagramma bizga boshqacha narsani ko‘rsatarmikan?

Grafikni boshqa grafik bilan taqqoslash uchun points() funksiyasidan foydalaning:

Misol

Bitta rasmda ikkita grafik chizing:

# day one, the age and speed of 12 cars: x1 <- c(5,7,8,7,2,2,9,4,11,12,9,6) y1 <- c(99,86,87,88,111,103,87,94,78,77,85,86) # day two, the age and speed of 15 cars: x2 <- c(2,2,8,1,15,8,12,9,7,3,11,4,7,14,12) y2 <- c(100,105,84,105,90,99,90,95,94,100,79,112,91,80,85) plot(x1, y1, main="Observation of Cars", xlab="Car age", ylab="Car speed", col="red", cex=2) points(x2, y2, col="blue", cex=2)

Natija:

O‘zingiz sinab ko‘ring »

Kuzatuv xulosasi: Menimcha, ikki grafikni taqqoslab, ikkalasi ham bizga bir xil xulosani beradi, deb bemalol aytish mumkin: avtomobil qanchalik yangi bo‘lsa, shunchalik tez yuradi.