20180612-B · FIFA World Cup Audience · knitr kable kableExtra kbl 结构化数据 gtable 表格 · R 语言数据可视化案例源码

本文链接：https://blog.csdn.net/albert_xn/article/details/127469337

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

2018 年合集传送门： 2018

FIFA World Cup Audience

欢迎来到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-06-12_FIFA_World_Cup_Audience/src-b'
setwd(wkdir)

3. 加载 R 包

library(dplyr)
library(formattable)
library(kableExtra)

4. 加载数据

df_input <- readr::read_csv("../data/week11_fifa_audience.csv", show_col_types = FALSE)

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

## Rows: 191
## Columns: 6
## $ ...1               <dbl> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, …
## $ country            <chr> "United States", "Japan", "China", "Germany", "Braz…
## $ confederation      <chr> "CONCACAF", "AFC", "AFC", "UEFA", "CONMEBOL", "UEFA…
## $ population_share   <dbl> 4.5, 1.9, 19.5, 1.2, 2.8, 0.9, 0.9, 0.9, 2.1, 0.7, …
## $ tv_audience_share  <dbl> 4.3, 4.9, 14.8, 2.9, 7.1, 2.1, 2.1, 2.0, 3.1, 1.8, …
## $ gdp_weighted_share <dbl> 11.3, 9.1, 7.3, 6.3, 5.4, 4.2, 4.0, 4.0, 3.5, 3.1, …

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

## [1] "...1"               "country"            "confederation"     
## [4] "population_share"   "tv_audience_share"  "gdp_weighted_share"

5. knitr::kable 实现结构化展示数据

# 这里有一些示例介绍, 可以去看看, 更多了解可以去官网或看帮助文档
# https://haozhu233.github.io/kableExtra/awesome_table_in_html.html

df_input %>% 
  # arrange() 根据 change 列进行排序, 默认是升序; arrange + desc() 表示改为降序排列
  arrange(desc(gdp_weighted_share)) %>% 
  # 选择前十的数据
  top_n(10) %>% 
  knitr::kable(booktabs = TRUE,
               format = "html",
               col.names = c("No.", "国家或地区", "协会",
                             "节目视听众占有率",
                             "收视率",
                             "我也不知道是啥~")) %>% 
  # 添加表头上方内容, 下面表示 前一列空格, 后四列填写文本(合并且居中), 最后列为空格
  add_header_above(c(" " = 1, "数绘小站, QQ: 189059061 ..." = 4, " " = 1)) %>% 
  # 指定一些列进行特殊操作
  column_spec(6, background = "#F0E68C", bold = TRUE) %>% 
  kable_styling(latex_options = c("striped", "hold_position"),
                full_width = FALSE, 
                html_font = "Cambria",
                position = "center")  %>% 
  # 添加脚注信息
  footnote(c("资料来源: FiveThirtyEight.com - graph by 数绘小站 - 2022-10-19"))

在这里插入图片描述

6. kableExtra::kbl 实现结构化展示数据

df_albert <- df_input %>% 
  # arrange() 根据 change 列进行排序, 默认是升序; arrange + desc() 表示改为降序排列
  arrange(desc(gdp_weighted_share)) %>% 
  # 选择前十的数据
  top_n(10) %>%
  # mutate() 主要用于在数据框中添加新的变量, 这些变量是通过对现有的变量进行操作而形成的
  dplyr::mutate(total = gdp_weighted_share + population_share + tv_audience_share) %>%
  # 剔除不需要的列
  select(-1)

# 创建一个彩色列 (population_share)
df_albert$population_share <- color_tile("white", "orange")(df_albert$population_share)

# 指定某一列具体格式 (gdp_weighted_share): 字体旋转, 变色, 居中等等
df_albert$gdp_weighted_share <- cell_spec(df_albert$gdp_weighted_share, 
                                          angle = (1:5)*30,
                                          background = "red", 
                                          color = "white",
                                          align = "center")

# 指定某一列具体格式 (tv_audience_share): 大于 5 时, 加粗变红; 小于等于 5 时, 斜体变蓝
df_albert$tv_audience_share <- ifelse(
  df_albert$tv_audience_share > 5,
  cell_spec(df_albert$tv_audience_share, color = "#FF0000", bold = TRUE),
  cell_spec(df_albert$tv_audience_share, color = "#FF0000", italic = TRUE)
)

# 指定某列创建数值条形图 (total)
df_albert$total <- color_bar("lightgreen")(df_albert$total)


kbl(df_albert, 
    escape = FALSE,
    col.names = c("国家或地区", 
                  "协会",
                  "节目视听众占有率",
                  "收视率", 
                  "我也不知道是啥~", 
                  'TOTAL')) %>%
  kable_paper("hover", full_width = FALSE) %>%
  # 指定一些列进行特殊操作
  column_spec(5, width = "4cm") %>%
  # 添加表头上方内容, 下面表示 前一列空格, 后四列填写文本(合并且居中), 最后列为空格
  add_header_above(c(" " = 1, "数绘小站, QQ: 189059061 ..." = 4, " " = 1)) %>% 
  # 添加脚注信息
  footnote(c("资料来源: FiveThirtyEight.com - graph by 数绘小站 - 2022-10-19"))

在这里插入图片描述

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  formattable_0.2.1 dplyr_1.0.10     
## 
## loaded via a namespace (and not attached):
##  [1] tidyselect_1.1.2       xfun_0.32              bslib_0.4.0           
##  [4] purrr_0.3.4            colorspace_2.0-3       vctrs_0.4.2           
##  [7] generics_0.1.3         htmltools_0.5.3        viridisLite_0.4.1     
## [10] 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            
## [16] DBI_1.1.3              bit64_4.0.5            lifecycle_1.0.3       
## [19] stringr_1.4.1          munsell_0.5.0          rvest_1.0.3           
## [22] htmlwidgets_1.5.4.9000 evaluate_0.16          knitr_1.40            
## [25] tzdb_0.3.0             fastmap_1.1.0          parallel_4.2.1        
## [28] fansi_1.0.3            highr_0.9              readr_2.1.2           
## [31] scales_1.2.1           cachem_1.0.6           vroom_1.5.7           
## [34] webshot_0.5.4          jsonlite_1.8.2         systemfonts_1.0.4     
## [37] bit_4.0.4              hms_1.1.2              digest_0.6.29         
## [40] stringi_1.7.8          cli_3.4.1              tools_4.2.1           
## [43] magrittr_2.0.3         sass_0.4.2             tibble_3.1.8          
## [46] crayon_1.5.2           pkgconfig_2.0.3        ellipsis_0.3.2        
## [49] xml2_1.3.3             assertthat_0.2.1       rmarkdown_2.16        
## [52] svglite_2.1.0          httr_1.4.4             rstudioapi_0.14       
## [55] R6_2.5.1               compiler_4.2.1