NV5

Nhiệm vụ 5

Ở nhiệm vụ này chúng ta sẽ tự tìm 1 dataset và vẽ 20 đồ thị để mô tả và phân tích cho dữ liệu được chứa trong dataset này.

Ở đây, ta sẽ phân tích dataset CR7, đây là 1 dataset bao gồm thông số những bàn thắng của Cristiano Ronaldo trong sự nghiệp của anh ấy tính tới mùa giải 22/23

Một số thông tin về Dataset

Trước tiên, ta gán dataset vào trong Rstudio

library(csv)

## Warning: package 'csv' was built under R version 4.3.3

Long <- read.csv('D:/R/CR7.csv', header = T)

Sau đó sử dụng lệnh str để xem được các thông số của bộ dữ liệu

str(Long)

## 'data.frame':    710 obs. of  13 variables:
##  $ Season          : chr  "02/03" "02/03" "02/03" "02/03" ...
##  $ Competition     : chr  "Liga Portugal" "Liga Portugal" "Liga Portugal" "Taca de Portugal Placard" ...
##  $ Matchday        : chr  "6" "6" "8" "Fourth Round" ...
##  $ Date            : chr  "10-07-02" "10-07-02" "10/26/02" "11/24/02" ...
##  $ Venue           : chr  "H" "H" "A" "H" ...
##  $ Club            : chr  "Sporting CP" "Sporting CP" "Sporting CP" "Sporting CP" ...
##  $ Opponent        : chr  "Moreirense FC" "Moreirense FC" "Boavista FC" "CD Estarreja" ...
##  $ Result          : chr  "3:00" "3:00" "1:02" "4:01" ...
##  $ Playing_Position: chr  "LW" "LW" "" "" ...
##  $ Minute          : chr  "34" "90+5" "88" "67" ...
##  $ At_score        : chr  "2:00" "3:00" "1:02" "3:00" ...
##  $ Type            : chr  "Solo run" "Header" "Right-footed shot" "Left-footed shot" ...
##  $ Goal_assist     : chr  "" "Rui Jorge" "Carlos Martins" "Cesar Prates" ...

Ở đây, một số thông tin cơ bản ta có thể thấy đó là bộ dữ liệu này có 710 quan sát và 13 cột. Trong đó bao gồm

-Season: Mùa giải

-Competition: Giải đấu

-Matchday: Vòng đấu

-Date: Ngày duễn ra

-Venue: Sân nhà hay khách

-Club: CLB

-Opponent: Đối thủ

-Result: Kết quả

-Playing_Position: Vị trí thi đấu

-Minute: Phút ghi bàn

-At_score: Tỉ số

-Type: Cách ghi bàn

-Goal_assist: Người kiến tạo

Bắt đầu vẽ đồ thị và phân tích

Biểu đồ 1: Tổng số bàn thắng mà CR7 đã ghi bàn cho các CLB mà anh đã thi đấu tính

library(tidyverse)

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.5
## ✔ forcats   1.0.0     ✔ stringr   1.5.1
## ✔ ggplot2   3.5.0     ✔ tibble    3.2.1
## ✔ lubridate 1.9.3     ✔ tidyr     1.3.1
## ✔ purrr     1.0.2     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

library(scales)

## 
## Attaching package: 'scales'
## 
## The following object is masked from 'package:purrr':
## 
##     discard
## 
## The following object is masked from 'package:readr':
## 
##     col_factor

Long %>% group_by(Club) %>% summarise(n = n()) %>%
  ggplot(aes(Club,n)) +
    geom_col(fill='orange') +
    geom_text(aes(label = n),vjust = 2, color = 'black') +
    labs(x = 'Loại', y = 'CLB')

### Biểu đồ 2 : bàn thắng mà CR7 đã ghi bàn theo từng vị trí

Long %>% group_by(Playing_Position) %>% summarise(n = n()) %>%
  ggplot(aes(Playing_Position,n)) +
    geom_col(fill='orange') +
    geom_text(aes(label = n),vjust = 2, color = 'black') +
    labs(x = 'Loại', y = 'CLB')

Biểu đồ 3: bàn thắng mà CR7 đã ghi bàn theo các cách khác nhau

Long %>% group_by(Type) %>% summarise(n = n()) %>%
  ggplot(aes(Type,n)) +
    geom_col(fill='orange') +
    geom_text(aes(label = n),vjust = 2, color = 'black') +
    labs(x = 'Loại', y = 'CLB')

Biểu đồ 4: Hàm mật độ để coi cách thức ghi bàn của Cr7 ở mỗi CLb

Long %>% ggplot(aes(x = Club, fill = Competition)) +
  geom_density()

## Warning: Groups with fewer than two data points have been dropped.
## Groups with fewer than two data points have been dropped.

## Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
## -Inf

## Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
## -Inf

Biểu đồ 5: Hàm mật độ để coi cách thức ghi bàn của Cr7 ở mỗi vị trí

Long %>% ggplot(aes(x = Playing_Position, fill = Competition)) +
  geom_density()

## Warning: Groups with fewer than two data points have been dropped.
## Groups with fewer than two data points have been dropped.
## Groups with fewer than two data points have been dropped.
## Groups with fewer than two data points have been dropped.
## Groups with fewer than two data points have been dropped.
## Groups with fewer than two data points have been dropped.
## Groups with fewer than two data points have been dropped.
## Groups with fewer than two data points have been dropped.

## Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
## -Inf

## Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
## -Inf

## Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
## -Inf

## Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
## -Inf

## Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
## -Inf

## Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
## -Inf

## Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
## -Inf

## Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
## -Inf

Biểu đồ 6: độ trải bàn thắng của Cr7 ở các giải đấu

Long %>% ggplot(aes(x = Type)) +
    geom_bar() +
    labs(x = 'Giải đấu', y = 'Số lượng') +
    coord_flip() 

Laliga chính là giải đấu CR7 ghi nhiều nhất với ngay sau đó là UCL

Biểu đồ 7: hàm mật độ để xem vị trí của CR7 trong các giải đấu

Long %>% ggplot(aes(x = Playing_Position)) +
  geom_density(fill = 'green') +
  facet_wrap(~Type)

## Warning: Groups with fewer than two data points have been dropped.
## Groups with fewer than two data points have been dropped.
## Groups with fewer than two data points have been dropped.
## Groups with fewer than two data points have been dropped.
## Groups with fewer than two data points have been dropped.
## Groups with fewer than two data points have been dropped.
## Groups with fewer than two data points have been dropped.
## Groups with fewer than two data points have been dropped.
## Groups with fewer than two data points have been dropped.
## Groups with fewer than two data points have been dropped.
## Groups with fewer than two data points have been dropped.
## Groups with fewer than two data points have been dropped.
## Groups with fewer than two data points have been dropped.
## Groups with fewer than two data points have been dropped.
## Groups with fewer than two data points have been dropped.

## Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
## -Inf

## Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
## -Inf

## Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
## -Inf

## Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
## -Inf

## Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
## -Inf

## Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
## -Inf

## Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
## -Inf

## Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
## -Inf

## Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
## -Inf

## Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
## -Inf

## Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
## -Inf

## Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
## -Inf

## Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
## -Inf

## Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
## -Inf

## Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
## -Inf

Biểu đồ 8: Biểu đồ cách thức ghi bàn theo màu sắc

Long %>% group_by(Type) %>% summarise(n = n()) %>%
  ggplot(aes(x = '', y = n,fill = Type)) +
    geom_col() +
    geom_text(aes(label = n),position = position_stack(vjust = 2))

Biểu đồ 9: Biểu đồ tròn thể hiện bàn thắng theo giải đấu

Long %>% group_by(Competition) %>% summarise(n = n()) %>%
  ggplot(aes(x = '', y = n,fill = Competition)) +
    geom_col() +
    coord_polar('y')

Biểu đồ 10: biểu đồ mật độ giải đấu theo CLB

Long %>% ggplot(aes(x = Club, fill = Competition)) +
  geom_density()

## Warning: Groups with fewer than two data points have been dropped.
## Groups with fewer than two data points have been dropped.

## Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
## -Inf

## Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
## -Inf

Biểu đồ 11: Hàm mật độ bàn thắng theo từng giải đấu

Long %>% ggplot(aes(x = Club)) +
  geom_density(fill = 'orange') +
  facet_wrap(~Competition)

## Warning: Groups with fewer than two data points have been dropped.
## Groups with fewer than two data points have been dropped.

## Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
## -Inf

## Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
## -Inf

Biểu đồ 12

Long %>% ggplot(aes(x = Club, y = Competition)) +
  geom_point() +
  xlab('CLB') + 
  ylab('Giải đấu')

Biểu đồ 13: Biểu đồ tròn thể hiện bàn thắng của Cr7 ở từng CLB

Long %>% group_by(Club) %>% summarise(n = n()) %>%
  ggplot(aes(x = '', y = n,fill = Club)) +
    geom_col(Club = 'black') +
    coord_polar('y') +
    geom_text(aes(x = 1.3, label = n),position = position_stack(vjust = .5)) +
    theme_void()

## Warning in geom_col(Club = "black"): Ignoring unknown parameters: `Club`

Biểu đồ 14: các bàn thắng được ghi ở những giải đấu

Long %>% group_by(Competition) %>% summarise(n = n()) %>%
  ggplot(aes(Competition,n)) +
    geom_col(fill='orange') +
    geom_text(aes(label = n),vjust = 0, color = 'black') +
    labs(x = 'Giải đấu', y = 'số lượng')

CR7 đã ghi bàn tất cả 17 giải đấu trải dài từ Copa del Ray cho đến Saudi proleague

Một số giải đấu nổi bật: Laliga: 311 bàn Copa del Ray: 22 bàn Premier League: 103 bàn Seria A: 81 bàn UCL: 140 bàn

Biểu đồ 15: các bàn thắng này được CR7 ghi khi chơi ở vị trí nào

Long %>% group_by(Playing_Position) %>% summarise(n = n()) %>%
  ggplot(aes(Playing_Position,n)) +
    geom_col(fill='orange') +
    geom_text(aes(label = n),vjust = 0, color = 'black') +
    labs(x = 'Vị trí', y = 'Số lượng')

Ta có : CF: 212 LW: 361 RW: 79 Còn lại 58 bàn bộ dữ liệu không cho ta biết CR7 ghi bàn ở vị trí nào

Biểu đồ 16: so sánh số bàn thắng CR7 ghi được khi đá sân nhà và sân khách

Long %>% group_by(Club,Venue) %>% summarise(n=n()) %>%
  ggplot(aes(x = Club,y = n)) +
    geom_col(position = 'dodge') +
    facet_wrap(~Venue) +
    geom_text(aes(label = n),vjust = 0, color = 'black') +
    labs(x = 'Loại', y = 'Số lượng')

## `summarise()` has grouped output by 'Club'. You can override using the
## `.groups` argument.

Nhìn vào bảng, ta có thể thấy rằng khi được đá ở sân nhà (H) hiệu suất ghi bàn của CR7 có phần nhỉnh hơn khi phải đá ở sân khách (A)

Biểu đồ 17: so cách thức ghi bàn của CR7 khi được thi đấu ở các vị trị khác nhau

Long %>% group_by(Playing_Position,Type) %>% summarise(n=n()) %>%
  ggplot(aes(x = Playing_Position,y = n)) +
    geom_col(position = 'dodge') +
    facet_wrap(~Type) +
    geom_text(aes(label = n),vjust = 0, color = 'black') +
    labs(x = 'Loại', y = 'Số lượng')

## `summarise()` has grouped output by 'Playing_Position'. You can override using
## the `.groups` argument.

Nhìn vào các bảng số liệu, dễ dàng nhận ra rằng CR7 ghi bàn nhiều nhất khi được đá ở vị trị cánh trái trên hàng tấn công(LW) và cách thức mà CR7 dùng để ghi bàn nhiều nhất là sử dụng chân phải

Biểu đồ 18: xu hướng thi đấu ở mỗi clb của cr7

Long %>% group_by(Club,Playing_Position) %>% summarise(n=n()) %>%
  ggplot(aes(x = Playing_Position,y = n)) +
    geom_col(position = 'dodge') +
    facet_wrap(~Club) +
    geom_text(aes(label = n),vjust = 0, color = 'black') +
    labs(x = 'Loại', y = 'Số lượng')

## `summarise()` has grouped output by 'Club'. You can override using the
## `.groups` argument.

Ta thấy ở real madrid, cr7 đá ở LW là chủ yếu tuy nhiêu CF lại là vị trí mà CR7 thi đấu nhiều hơn sau khi anh rời real

Biểu đồ 19:So sánh 2 vị trí RW và LW của Cr7

Long <- Long %>% group_by(Club, Playing_Position) %>% summarise(n = n())

## `summarise()` has grouped output by 'Club'. You can override using the
## `.groups` argument.

Long %>% ggplot(aes(x = Club, y = n)) +
  geom_col(data = Long %>% filter(Playing_Position == 'RW'), fill = 'red') +
  geom_col(data = Long %>% filter(Playing_Position == 'LW'), fill = 'blue')

Từ bảng ta có thể thấy Cr7 chỉ chủ yếu thi đấu LW và chỉ thay đổi đá RW khi thi đấu ở MU

Biểu đồ 20: So sánh độ trải bàn thắng theo CLB

Long %>% ggplot(aes(x = Club)) +
    geom_bar() +
    labs(x = 'CLB', y = 'Số lượng') +
    coord_flip()