Bai tap N1
Hieu
8/4/2019
Đọc dữ liệu vào R
t=“/Users\MAC\Downloads\Datasets cho thuc hanh CR 8-2019\Obesity data.csv”
R Markdown
t=“/Users\MAC\Downloads\Datasets cho thuc hanh CR 8-2019\Obesity data.csv”
t="/Users\\MAC\\Downloads\\Datasets cho thuc hanh CR 8-2019\\Obesity data.csv"
ob=read.csv(t)
ob$OB[ob$bmi<18.5]="Underweight"
ob$OB[ob$bmi>18.5 & ob$bmi <25]="Normal"
ob$OB[ob$bmi>18.5 & ob$bmi<25]="Normal"
ob$OB[ob$bmi>=25 & ob$bmi<30 ]="Overweight"
ob$OB[ob$bmi> 30 ]="Obesy"
ob$OB[ob$bmi> 30 ]="Obese"
ob$OB=factor(ob$OB,levels=c("Underweight","Normal","Overweight","Obese"))
barplot(table(ob$OB))