20180807-A · Airline Safety · ggplot2 knitr kable 实现结构化展示数据表格 gtable HTML 数据处理 · R 语言数据可视化案例源码

本文链接：https://blog.csdn.net/Albert_XN/article/details/127469808

所有作品合集传送门： Tidy Tuesday

2018 年合集传送门： 2018

Airline Safety

欢迎来到ggplot2的世界！

ggplot2是一个用来绘制统计图形的 R 软件包。它可以绘制出很多精美的图形，同时能避免诸多的繁琐细节，例如添加图例等。

用 ggplot2 绘制图形时，图形的每个部分可以依次进行构建，之后还可以进行编辑。ggplot2 精心挑选了一系列的预设图形，因此在大部分情形下可以快速地绘制出许多高质量的图形。如果在格式上还有额外的需求，也可以利用 ggplot2 中的主题系统来进行定制, 无需花费太多时间来调整图形的外观，而可以更加专注地用图形来展现你的数据。

在这里插入图片描述

1. 一些环境设置

# 设置为国内镜像, 方便快速安装模块
options("repos" = c(CRAN = "https://mirrors.tuna.tsinghua.edu.cn/CRAN/"))

2. 设置工作路径

wkdir <- '/home/user/R_workdir/TidyTuesday/2018/2018-08-07_Airline_Safety/src-a'
setwd(wkdir)

3. 加载 R 包

library(knitr)
library(kableExtra)

4. 加载数据

df_input <- readr::read_csv("../data/week19_airline_safety.csv", show_col_types = FALSE) %>% 
  dplyr::select(-...1)

# 简要查看数据内容
dplyr::glimpse(df_input)

## Rows: 336
## Columns: 5
## $ airline                <chr> "Aer Lingus", "Aeroflot*", "Aerolineas Argentin…
## $ avail_seat_km_per_week <dbl> 320906734, 1197672318, 385803648, 596871813, 18…
## $ year_range             <chr> "85_99", "85_99", "85_99", "85_99", "85_99", "8…
## $ type_of_event          <chr> "incidents", "incidents", "incidents", "inciden…
## $ n_events               <dbl> 2, 76, 6, 3, 2, 14, 2, 3, 5, 7, 3, 21, 1, 5, 4,…

# 检查数据的列名
colnames(df_input)

## [1] "airline"                "avail_seat_km_per_week" "year_range"            
## [4] "type_of_event"          "n_events"

5. 数据预处理

df_albert <- df_input %>% 
  # 因为有两个索引列, 合并这两列
  # tidyr::unite() 通过将字符串粘贴在一起将多列合并为一列
  tidyr::unite(airline_km, c("airline", "avail_seat_km_per_week")) %>% 
  tidyr::unite(year_type, c("year_range", "type_of_event")) %>% 
  # spread() 数据裂变、长数据转为宽数据. key 是需要将变量拓展为字段的变量; value 需要分散的值
  tidyr::spread(year_type, n_events) %>% 
  # tidyr::separate() 使用正则表达式或数字位置将字符列分隔为多个列
  tidyr::separate(airline_km, c("airline", "km"), sep = "_") %>% 
  # mutate() 主要用于在数据框中添加新的变量, 这些变量是通过对现有的变量进行操作而形成的
  dplyr::mutate(km = as.numeric(km))

# 简要查看数据内容
dplyr::glimpse(df_albert)

## Rows: 56
## Columns: 8
## $ airline                 <chr> "Aer Lingus", "Aeroflot*", "Aerolineas Argenti…
## $ km                      <dbl> 320906734, 1197672318, 385803648, 596871813, 1…
## $ `00_14_fatal_accidents` <dbl> 0, 1, 0, 0, 0, 2, 1, 1, 1, 0, 0, 3, 0, 0, 0, 0…
## $ `00_14_fatalities`      <dbl> 0, 88, 0, 0, 0, 337, 158, 7, 88, 0, 0, 416, 0,…
## $ `00_14_incidents`       <dbl> 0, 6, 1, 5, 2, 6, 4, 5, 5, 4, 7, 17, 1, 0, 6, …
## $ `85_99_fatal_accidents` <dbl> 0, 14, 0, 1, 0, 4, 1, 0, 0, 2, 1, 5, 0, 3, 0, …
## $ `85_99_fatalities`      <dbl> 0, 128, 0, 64, 0, 79, 329, 0, 0, 50, 1, 101, 0…
## $ `85_99_incidents`       <dbl> 2, 76, 6, 3, 2, 14, 2, 3, 5, 7, 3, 21, 1, 5, 4…

6. 利用 knitr::kable 实现结构化展示数据

options(knitr.table.format = "html")

df_albert[, c(1, 2, 8, 6, 7, 5, 3, 4)] %>% 
  dplyr::mutate(km = round(km / 1e6)) %>% 
  dplyr::top_n(10, km) %>%
  kable(col.names = c("航空公司", "可用的座位/每周",
                      "事件", "致命的事故", "死亡人数",
                      "事件", "致命的事故", "死亡人数")) %>% 
  kable_styling("striped") %>% 
  add_header_above(c(" " = 1,
                     " " = 1,
                     "1985-1999" = 3,
                     "2000-2014" = 3))

在这里插入图片描述

7. session-info

sessionInfo()

## R version 4.2.1 (2022-06-23)
## Platform: x86_64-pc-linux-gnu (64-bit)
## Running under: Ubuntu 20.04.5 LTS
## 
## Matrix products: default
## BLAS:   /usr/lib/x86_64-linux-gnu/openblas-pthread/libblas.so.3
## LAPACK: /usr/lib/x86_64-linux-gnu/openblas-pthread/liblapack.so.3
## 
## locale:
##  [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C              
##  [3] LC_TIME=en_US.UTF-8        LC_COLLATE=en_US.UTF-8    
##  [5] LC_MONETARY=en_US.UTF-8    LC_MESSAGES=en_US.UTF-8   
##  [7] LC_PAPER=en_US.UTF-8       LC_NAME=C                 
##  [9] LC_ADDRESS=C               LC_TELEPHONE=C            
## [11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C       
## 
## attached base packages:
## [1] stats     graphics  grDevices utils     datasets  methods   base     
## 
## other attached packages:
## [1] kableExtra_1.3.4 knitr_1.40      
## 
## loaded via a namespace (and not attached):
##  [1] tidyselect_1.1.2  xfun_0.32         bslib_0.4.0       purrr_0.3.4      
##  [5] colorspace_2.0-3  vctrs_0.4.2       generics_0.1.3    htmltools_0.5.3  
##  [9] viridisLite_0.4.1 yaml_2.3.5        utf8_1.2.2        rlang_1.0.6      
## [13] jquerylib_0.1.4   pillar_1.8.1      glue_1.6.2        DBI_1.1.3        
## [17] bit64_4.0.5       lifecycle_1.0.3   stringr_1.4.1     munsell_0.5.0    
## [21] rvest_1.0.3       evaluate_0.16     tzdb_0.3.0        fastmap_1.1.0    
## [25] parallel_4.2.1    fansi_1.0.3       highr_0.9         readr_2.1.2      
## [29] scales_1.2.1      cachem_1.0.6      vroom_1.5.7       webshot_0.5.4    
## [33] jsonlite_1.8.2    systemfonts_1.0.4 bit_4.0.4         hms_1.1.2        
## [37] digest_0.6.30     stringi_1.7.8     dplyr_1.0.10      cli_3.4.1        
## [41] tools_4.2.1       magrittr_2.0.3    sass_0.4.2        tibble_3.1.8     
## [45] tidyr_1.2.1       crayon_1.5.2      pkgconfig_2.0.3   ellipsis_0.3.2   
## [49] xml2_1.3.3        assertthat_0.2.1  rmarkdown_2.16    svglite_2.1.0    
## [53] httr_1.4.4        rstudioapi_0.14   R6_2.5.1          compiler_4.2.1