Nguyễn Văn Tuấn Garvan Ins)tute of Medical Research, Australia University of Technology Sydney (UTS) and UNSW Australia Ton Duc Thang University, Vietnam TDTU Machine Learning Workshop 3/1/2017 – 12/1/2017 © Tuan V Nguyen Một số biểu đồ khoa học • Biểu đồ phân bố (histogram) • Biểu đồ hộp (box plot) • Biểu đồ thanh (bar plot) • Biểu đồ tương quan (sca]er plot) Biểu đồ phân bố Phân bố liệu: histogram hist(fnbmd) 150 100 50 Frequency 200 250 Histogram of bmd 0.4 0.6 0.8 bmd 1.0 1.2 1.4 Thêm tựa đề hist(fnbmd, main="Distribution of BMD") 150 100 50 Frequency 200 250 Distribution of BMD 0.4 0.6 0.8 bmd 1.0 1.2 1.4 tên trục tung trục hoành hist(fnbmd, main="Distribution of BMD", xlab="Bone mineral density",ylab="Frequency") 150 100 50 Frequency 200 250 Distribution of BMD 0.4 0.6 0.8 1.0 Bone mineral density 1.2 1.4 thêm màu hist(fnbmd, main="Distribution of BMD", xlab="Bone mineral density",ylab="Frequency", col="blue") 150 100 50 Frequency 200 250 Distribution of BMD 0.4 0.6 0.8 1.0 Bone mineral density 1.2 1.4 Biểu đồ (bar plot) Dữ liệu gốc (tần số) School = c("A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "B", "B", "B", "B", "B", "B", "C", "C", "C", "C", "C", "C", "D", "D", "D", "D", "D", "D", "D", "D", "D", "D", "E", "E", "E", "E", "E", "E", "E", "F", "F", "F", "F", "G", "G", "G", "G", "G", "G", "G", "H", "H", "H", "H") Freq = table(School) barplot(Freq) ... Freq = table(School) barplot(Freq) 10 A B C D E F G H 10 > colors = c("red", "yellow", "green", "violet", "orange", "blue", "pink", "cyan") > barplot(Freq, col=colors) A B C D E F G H 10 > barplot(sort(Freq),... col="red") Biểu đồ "tán xạ" (scatter plot) • Package "car" • Mối liên quan giữa x và y • sca]erplot trong package "car" scatterplot(y ~ x | group, ) Biểu đồ đơn giản dùng package "car" 1.0... barplot(sort(Freq), col=colors) F H B C E G A D Biểu đồ tương quan đơn giản Dữ liệu: osteo osteo = read.table("~/Google Drive/TDT Projects/ Workshop 12-2015/Datafiles/osteo data.txt", header=T, na.strings=".")