技术标签: r语言 # Tidy Tuesday (2018) 数据挖掘
所有作品合集传送门: Tidy Tuesday
2018 年合集传送门: 2018
欢迎来到ggplot2
的世界!
ggplot2
是一个用来绘制统计图形的 R 软件包。它可以绘制出很多精美的图形,同时能避免诸多的繁琐细节,例如添加图例等。
用 ggplot2 绘制图形时,图形的每个部分可以依次进行构建,之后还可以进行编辑。ggplot2 精心挑选了一系列的预设图形,因此在大部分情形下可以快速地绘制出许多高质量的图形。如果在格式上还有额外的需求,也可以利用 ggplot2 中的主题系统来进行定制, 无需花费太多时间来调整图形的外观,而可以更加专注地用图形来展现你的数据。
# 设置为国内镜像, 方便快速安装模块
options("repos" = c(CRAN = "https://mirrors.tuna.tsinghua.edu.cn/CRAN/"))
wkdir <- '/home/user/R_workdir/TidyTuesday/2018/2018-05-29_Comic_book_characters/src-c'
setwd(wkdir)
library(tidyverse)
# 导入字体设置包
library(showtext)
# font_add_google() showtext 中从谷歌字体下载并导入字体的函数
# name 中的是字体名称, 用于检索, 必须严格对应想要字体的名字
# family 后面的是代码后面引用时的名称, 自己随便起
# 需要能访问 Google, 也可以注释掉下面这行, 影响不大
# font_families_google() 列出所有支持的字体, 支持的汉字不多
# http://www.googlefonts.net/
font_add_google(name = "Karantina", family = "ka")
font_add_google(name = "Cutive", family = "albert")
font_add_google(name = "ZCOOL XiaoWei", family = "zxw")
# 后面字体均可以使用导入的字体
showtext_auto()
df_input <- readr::read_csv("../data/week9_comic_characters.csv", show_col_types = FALSE)
# 简要查看数据内容
glimpse(df_input)
## Rows: 23,272
## Columns: 17
## $ ...1 <dbl> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16…
## $ publisher <chr> "Marvel", "Marvel", "Marvel", "Marvel", "Marvel", "Ma…
## $ page_id <dbl> 1678, 7139, 64786, 1868, 2460, 2458, 2166, 1833, 2948…
## $ name <chr> "Spider-Man (Peter Parker)", "Captain America (Steven…
## $ urlslug <chr> "\\/Spider-Man_(Peter_Parker)", "\\/Captain_America_(…
## $ id <chr> "Secret Identity", "Public Identity", "Public Identit…
## $ align <chr> "Good Characters", "Good Characters", NA, "Good Chara…
## $ eye <chr> "Hazel Eyes", "Blue Eyes", "Blue Eyes", "Blue Eyes", …
## $ hair <chr> "Brown Hair", "White Hair", "Black Hair", "Black Hair…
## $ sex <chr> "Male Characters", "Male Characters", "Male Character…
## $ gsm <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, N…
## $ alive <chr> "Living Characters", "Living Characters", "Living Cha…
## $ appearances <dbl> 4043, 3360, 3061, 2961, 2258, 2255, 2072, 2017, 1955,…
## $ first_appearance <chr> "1962, August", "1941, March", "1974, October", "1963…
## $ month <chr> "August", "March", "October", "March", "November", "N…
## $ year <dbl> 1962, 1941, 1974, 1963, 1950, 1961, 1961, 1962, 1963,…
## $ date <date> 1962-08-01, 1941-03-01, 1974-10-01, 1963-03-01, 1950…
# 检查数据的列名
colnames(df_input)
## [1] "...1" "publisher" "page_id" "name"
## [5] "urlslug" "id" "align" "eye"
## [9] "hair" "sex" "gsm" "alive"
## [13] "appearances" "first_appearance" "month" "year"
## [17] "date"
publisher. = c("DC电影宇宙", "漫威漫画公司")
df_albert <- df_input %>%
# group_by() 以指定的列进行分组
group_by(publisher, year) %>%
# summarise() 用于对数据进行统计描述, 这里根据上一步分组进行计数
summarise(count = n()) %>%
# ungroup() 取消分组
ungroup() %>%
# 因子化 publisher 列
mutate(publisher = factor(publisher, labels = publisher.))
# 去除缺失值
df_plot <- na.omit(df_albert)
# 简要查看数据内容
glimpse(df_plot)
## Rows: 154
## Columns: 3
## $ publisher <fct> DC电影宇宙, DC电影宇宙, DC电影宇宙, DC电影宇宙, DC电影宇宙, …
## $ year <dbl> 1935, 1936, 1937, 1938, 1939, 1940, 1941, 1942, 1943, 1944, …
## $ count <int> 1, 9, 4, 10, 18, 64, 61, 52, 14, 15, 7, 9, 20, 20, 6, 9, 12,…
# PS: 方便讲解, 我这里进行了拆解, 具体使用时可以组合在一起
gg <- df_plot %>% ggplot(aes(x = year, y = count, fill = publisher))
gg <- gg + geom_bar(stat = "identity")
# scale_x_continuous() 对连续变量设置坐标轴显示范围
gg <- gg + scale_x_continuous(labels = c(1940, "'60", "'80", 2000), breaks = seq(1940, 2000, 20))
# scale_y_continuous() 对连续变量设置坐标轴显示范围
gg <- gg + scale_y_continuous(labels = seq(0, 500, 100), breaks = seq(0, 500, 100))
# scale_fill_manual() 采取的是手动赋值的方法, 也就是直接把颜色序列赋值给它的参数 value
gg <- gg + scale_fill_manual(values = c("#0000FF", "#FF0000"))
# labs() 对图形添加注释和标签(包含标题 title、子标题 subtitle、坐标轴 x & y 和引用 caption 等注释)
gg <- gg + labs(title = "每年推出的新漫画书人物数量 (1936-2013)",
subtitle = NULL,
x = NULL,
y = NULL,
caption = "资料来源: FiveThirtyEight.com · graph by 萤火之森 · 2022-10-17")
# theme_minimal() 去坐标轴边框的最小化主题
gg <- gg + theme_minimal()
# theme() 实现对非数据元素的调整, 对结果进行进一步渲染, 使之更加美观
gg <- gg + theme(
# panel.border 面板背景 数据上面
panel.border = element_blank(),
# plot.background 图片背景
plot.background = element_blank(),
# plot.margin 调整图像边距, 上-右-下-左
plot.margin = margin(12, 10, 2, 15),
# plot.title 主标题
plot.title = element_text(hjust = 0., color = "black", size = 32, face = "bold", family = 'zxw'),
# plot.subtitle 次要标题
plot.subtitle = element_text(hjust = 0., color = "black", size = 24, face = "bold"),
# strip.text.x 自定义分面图每个分面标题的文字
strip.text.x = element_text(size = 24, hjust = 0.5, face = "bold", family = 'zxw', color = 'red'),
# text 设置文本格式
text = element_text(size = 18, hjust = 0, face = "bold", color = 'black'),
# axis.text 坐标轴刻度文本
axis.text = element_text(size = 24, hjust = 0, face = "bold", color = 'black', family = 'ka'),
# legend.direction 设置图例的方向, horizontal 表示水平方向摆放
legend.direction = 'horizontal',
# legend.title 设置图例标题
legend.title = element_blank(),
# legend.position 设置图例位置, "none" 表示不显示图例
legend.position = 'none')
gg + theme(legend.position = c(0.31234, 0.834))
filename = '20180529-C-01'
ggsave(filename = paste0(filename, ".pdf"), width = 11.2, height = 6.2, device = cairo_pdf)
ggsave(filename = paste0(filename, ".png"), width = 11.2, height = 6.2, dpi = 100, device = "png", bg = 'white')
gg + facet_wrap(~ publisher)
filename = '20180529-C-02'
ggsave(filename = paste0(filename, ".pdf"), width = 11.2, height = 6.2, device = cairo_pdf)
ggsave(filename = paste0(filename, ".png"), width = 11.2, height = 6.2, dpi = 100, device = "png", bg = 'white')
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] showtext_0.9-5 showtextdb_3.0 sysfonts_0.8.8 forcats_0.5.2
## [5] stringr_1.4.1 dplyr_1.0.10 purrr_0.3.4 readr_2.1.2
## [9] tidyr_1.2.1 tibble_3.1.8 ggplot2_3.3.6 tidyverse_1.3.2
##
## loaded via a namespace (and not attached):
## [1] lubridate_1.8.0 assertthat_0.2.1 digest_0.6.29
## [4] utf8_1.2.2 R6_2.5.1 cellranger_1.1.0
## [7] backports_1.4.1 reprex_2.0.2 evaluate_0.16
## [10] highr_0.9 httr_1.4.4 pillar_1.8.1
## [13] rlang_1.0.6 curl_4.3.2 googlesheets4_1.0.1
## [16] readxl_1.4.1 rstudioapi_0.14 jquerylib_0.1.4
## [19] rmarkdown_2.16 textshaping_0.3.6 googledrive_2.0.0
## [22] bit_4.0.4 munsell_0.5.0 broom_1.0.1
## [25] compiler_4.2.1 modelr_0.1.9 xfun_0.32
## [28] systemfonts_1.0.4 pkgconfig_2.0.3 htmltools_0.5.3
## [31] tidyselect_1.1.2 fansi_1.0.3 crayon_1.5.1
## [34] tzdb_0.3.0 dbplyr_2.2.1 withr_2.5.0
## [37] grid_4.2.1 jsonlite_1.8.2 gtable_0.3.1
## [40] lifecycle_1.0.3 DBI_1.1.3 magrittr_2.0.3
## [43] scales_1.2.1 vroom_1.5.7 cli_3.4.1
## [46] stringi_1.7.8 cachem_1.0.6 farver_2.1.1
## [49] fs_1.5.2 xml2_1.3.3 bslib_0.4.0
## [52] ragg_1.2.3 ellipsis_0.3.2 generics_0.1.3
## [55] vctrs_0.4.2 tools_4.2.1 bit64_4.0.5
## [58] glue_1.6.2 hms_1.1.2 parallel_4.2.1
## [61] fastmap_1.1.0 yaml_2.3.5 colorspace_2.0-3
## [64] gargle_1.2.1 rvest_1.0.3 knitr_1.40
## [67] haven_2.5.1 sass_0.4.2
配套数据下载:Comic book characters
文章浏览阅读1.6k次。安装配置gi、安装数据库软件、dbca建库见下:http://blog.csdn.net/kadwf123/article/details/784299611、检查集群节点及状态:[root@rac2 ~]# olsnodes -srac1 Activerac2 Activerac3 Activerac4 Active[root@rac2 ~]_12c查看crs状态
文章浏览阅读1.3w次,点赞45次,收藏99次。我个人用的是anaconda3的一个python集成环境,自带jupyter notebook,但在我打开jupyter notebook界面后,却找不到对应的虚拟环境,原来是jupyter notebook只是通用于下载anaconda时自带的环境,其他环境要想使用必须手动下载一些库:1.首先进入到自己创建的虚拟环境(pytorch是虚拟环境的名字)activate pytorch2.在该环境下下载这个库conda install ipykernelconda install nb__jupyter没有pytorch环境
文章浏览阅读5.2k次,点赞19次,收藏28次。选择scoop纯属意外,也是无奈,因为电脑用户被锁了管理员权限,所有exe安装程序都无法安装,只可以用绿色软件,最后被我发现scoop,省去了到处下载XXX绿色版的烦恼,当然scoop里需要管理员权限的软件也跟我无缘了(譬如everything)。推荐添加dorado这个bucket镜像,里面很多中文软件,但是部分国外的软件下载地址在github,可能无法下载。以上两个是官方bucket的国内镜像,所有软件建议优先从这里下载。上面可以看到很多bucket以及软件数。如果官网登陆不了可以试一下以下方式。_scoop-cn
文章浏览阅读4.5k次,点赞2次,收藏3次。首先要有一个color-picker组件 <el-color-picker v-model="headcolor"></el-color-picker>在data里面data() { return {headcolor: ’ #278add ’ //这里可以选择一个默认的颜色} }然后在你想要改变颜色的地方用v-bind绑定就好了,例如:这里的:sty..._vue el-color-picker
文章浏览阅读640次。基于芯片日益增长的问题,所以内核开发者们引入了新的方法,就是在内核中只保留函数,而数据则不包含,由用户(应用程序员)自己把数据按照规定的格式编写,并放在约定的地方,为了不占用过多的内存,还要求数据以根精简的方式编写。boot启动时,传参给内核,告诉内核设备树文件和kernel的位置,内核启动时根据地址去找到设备树文件,再利用专用的编译器去反编译dtb文件,将dtb还原成数据结构,以供驱动的函数去调用。firmware是三星的一个固件的设备信息,因为找不到固件,所以内核启动不成功。_exynos 4412 刷机
文章浏览阅读2w次,点赞24次,收藏42次。Linux系统配置jdkLinux学习教程,Linux入门教程(超详细)_linux配置jdk
文章浏览阅读3.3k次,点赞5次,收藏19次。xlabel('\delta');ylabel('AUC');具体符号的对照表参照下图:_matlab微米怎么输入
文章浏览阅读119次。顺序读写指的是按照文件中数据的顺序进行读取或写入。对于文本文件,可以使用fgets、fputs、fscanf、fprintf等函数进行顺序读写。在C语言中,对文件的操作通常涉及文件的打开、读写以及关闭。文件的打开使用fopen函数,而关闭则使用fclose函数。在C语言中,可以使用fread和fwrite函数进行二进制读写。 Biaoge 于2024-03-09 23:51发布 阅读量:7 ️文章类型:【 C语言程序设计 】在C语言中,用于打开文件的函数是____,用于关闭文件的函数是____。
文章浏览阅读3.4k次,点赞2次,收藏13次。跟随鼠标移动的粒子以grid(SOP)为partical(SOP)的资源模板,调整后连接【Geo组合+point spirit(MAT)】,在连接【feedback组合】适当调整。影响粒子动态的节点【metaball(SOP)+force(SOP)】添加mouse in(CHOP)鼠标位置到metaball的坐标,实现鼠标影响。..._touchdesigner怎么让一个模型跟着鼠标移动
文章浏览阅读178次。项目运行环境配置:Jdk1.8 + Tomcat7.0 + Mysql + HBuilderX(Webstorm也行)+ Eclispe(IntelliJ IDEA,Eclispe,MyEclispe,Sts都支持)。项目技术:Springboot + mybatis + Maven +mysql5.7或8.0+html+css+js等等组成,B/S模式 + Maven管理等等。环境需要1.运行环境:最好是java jdk 1.8,我们在这个平台上运行的。其他版本理论上也可以。_基于java技术的停车场管理系统实现与设计
文章浏览阅读3.5k次。前言对于MediaPlayer播放器的源码分析内容相对来说比较多,会从Java-&amp;gt;Jni-&amp;gt;C/C++慢慢分析,后面会慢慢更新。另外,博客只作为自己学习记录的一种方式,对于其他的不过多的评论。MediaPlayerDemopublic class MainActivity extends AppCompatActivity implements SurfaceHolder.Cal..._android多媒体播放源码分析 时序图
文章浏览阅读2.4k次,点赞41次,收藏13次。java 数据结构与算法 ——快速排序法_快速排序法