Phân tích liệu với R Chương _ phần Phân tích liệu biểu đồ Các hàm R Biểu đồ phân bố (histogram) Biểu đồ hộp (box plot) Biểu đồ (bar plot) Biểu đồ tương quan (scatter plot) Đọc liệu > setwd("D:/") > ob = read.csv ("salary.csv", header = T) > attach(ob) > head(ob) id salbeg sex time age salnow edlevel work jobcat minority sexrace 6900 79 28.00 16080 15 3.17 1 5400 67 28.75 14100 15 0.50 1 5040 96 27.42 12420 15 1.17 1 11 6300 84 33.50 15720 15 6.00 1 12 6000 88 54.33 8880 12 27.00 1 18 6900 72 32.67 10380 15 6.92 1 Mục đích Muốn mô tả phân bố biến salnow Phân bố salnow có khác nam nữ (sex) Biểu đồ phân bố Hàm hist () Hist(var, xlab, ylab, main, xlim, ylim, col, border, prob) Hist(salnow) 50 100 Frequency 200 Histogram of salnow 10000 30000 salnow 50000 > hist(salnow, col= "blue", border = "white") 100 50 Frequency 150 200 Histogram of salnow 10000 20000 30000 salnow 40000 50000 hist(salnow, col= "blue", Phân bố mức luong nhân viên border = "white", xlab = e -0 "lương ($)", ylab = "tỉ e -0 0e+00 nhân viên") tỉ lệ bố mức lương e -0 e -0 lệ", prob = T, main = "Phân 10000 20000 30000 luong ($) 40000 50000 Biểu đồ hộp Hàm boxplot Boxplot(var, xlab, ylab, main, xlim, ylim, col, border, horizontal) Boxplot(var ~ group, xlab, ylab, main, xlim, ylim, col, border, horizontal) boxplot(salnow) boxplot (salnow, xlab ="lương tại", main = "lương tại", col = "blue") boxplot (salnow, notch = T, xlab ="lương tại", main = "lương hiên tại", col = "blue") boxplot (salnow, notch = T, xlab ="lương tại", main = "lương hiên tại", col = "blue", horizontal=T) boxplot (salnow~sex, notch = T, xlab ="lương tại", main = "lương hiên tại", col = "blue", horizontal=T) boxplot (salnow~sex, notch = T, xlab ="lương tại", main = "lương hiên tại", col = c("blue","red"), horizontal=T) Biểu đồ Hàm barplot table (groupA, GroupB) means = with(data,tapply(var,group, mean)) barplot(table, horiz) barplot(mean, horiz) f = table(sex) barplot(f) barplot(means, horiz = T, xlab ="số nhân viên", ylab = "nhóm nghề") Biểu đồ tương quan Hàm plot() plot(varx~vary, pch, main, xlab, ylab, xlim, ylim, col, lwd) abline(lm(varX~varY),col = , lwd) plot(salnow~edlevel,ch =16, col = "blue") abline(lm(salnow~edlevel),col ="red" , lwd=2)