Bui Uyen

# Su dung bo du lieu iris
data(iris)
# Lay cot Sepal.Width
sw <- iris$Sepal.Width
# Tinh trung binh
mean_sw <- mean(sw)
# Tinh phuong sai
var_sw <- var(sw)
# Tinh do lech chuan
sd_sw <- sd(sw)
# Hien thi ket qua
mean_sw

## [1] 3.057333

var_sw

## [1] 0.1899794

sd_sw

## [1] 0.4358663

# Nap thu vien ggplot2
library(ggplot2)

# Ve bieu do scatter
ggplot(iris, aes(x = Petal.Length,
                 y = Petal.Width,
                 color = Species)) +
  geom_point(size = 2) +
  labs(title = "Scatter plot Petal.Length va Petal.Width",
       x = "Petal Length",
       y = "Petal Width") +
  theme_minimal()