Untitled

Cai dat ggplot2 va gridExtra

ob=read.csv("D:\\phan mem\\Phan mem R software\\Dataset thuc hanh\\Obesity data.csv")
head(ob)

##   id gender height weight  bmi age  bmc  bmd   fat  lean pcfat
## 1  1      F    150     49 21.8  53 1312 0.88 17802 28600  37.3
## 2  2      M    165     52 19.1  65 1309 0.84  8381 40229  16.8
## 3  3      F    157     57 23.1  64 1230 0.84 19221 36057  34.0
## 4  4      F    156     53 21.8  56 1171 0.80 17472 33094  33.8
## 5  5      M    160     51 19.9  54 1681 0.98  7336 40621  14.8
## 6  6      F    153     47 20.1  52 1358 0.91 14904 30068  32.2

library(ggplot2); library(gridExtra)

Ve bieu do phan do Histogram theo tan so

p=ggplot(data=ob, aes(x=pcfat))+geom_histogram(fill="blue", col="white")
p

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

#Ve bieu do phan bo theo xac suat (density)

p1=ggplot(data=ob, aes(x=pcfat))+geom_histogram(aes(y=..density..),fill="blue", color="white") +geom_density(col="red")
p1

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

Ve 2 bieu do tren mot do thi

grid.arrange(p, p1, ncol=2)

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.