Кіріспе

Бұл есеп iris деректер жиынына негізделген. Мақсатымыз — түрлі гүл түрлері бойынша сепал ұзындығының (Sepal.Length) орташа мәнін есептеп, сепал мен петал ұзындығы арасындағы байланысты график арқылы көрсету.

Деректерді оқу

library(tidyverse)
data(iris)
head(iris)
##   Sepal.Length Sepal.Width Petal.Length Petal.Width Species
## 1          5.1         3.5          1.4         0.2  setosa
## 2          4.9         3.0          1.4         0.2  setosa
## 3          4.7         3.2          1.3         0.2  setosa
## 4          4.6         3.1          1.5         0.2  setosa
## 5          5.0         3.6          1.4         0.2  setosa
## 6          5.4         3.9          1.7         0.4  setosa
avg_sepal <- iris %>%
  group_by(Species) %>%
  summarise(Mean_Sepal_Length = mean(Sepal.Length))
avg_sepal
## # A tibble: 3 × 2
##   Species    Mean_Sepal_Length
##   <fct>                  <dbl>
## 1 setosa                  5.01
## 2 versicolor              5.94
## 3 virginica               6.59
ggplot(iris, aes(x = Sepal.Length, y = Petal.Length, color = Species)) +
  geom_point(size = 3, alpha = 0.7) +
  labs(
    title = "Sepal.Length пен Petal.Length арасындағы байланыс",
    x = "Sepal Length",
    y = "Petal Length"
  ) +
  theme_minimal()