R中用ggplot2画百分比柱状图
1.导入数据
library(tidyverse)
dfdemo <- read_csv("/Users/cpf/Documents/paper/R_programming/Rprocess/mydata/dfdemo.csv")
head(dfdemo)
## # A tibble: 6 x 8
## CASENUM WEATHHER VENO AGE AGE1 SEX REST_USE INJ_SEV
## <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 201700316865 0 1 49 2 1 1 0
## 2 201700316865 0 2 16 0 1 1 0
## 3 201600777740 0 1 18 0 1 1 1
## 4 201600777740 0 2 38 1 0 1 1
## 5 201801320571 2 1 71 3 1 1 0
## 6 201801320571 2 2 64 3 1 1 2
# 根据天气和事故严重程度做分组计数
group = dfdemo %>% count(WEATHHER, INJ_SEV)
group
## # A tibble: 9 x 3
## WEATHHER INJ_SEV n
## <dbl> <dbl> <int>
## 1 0 0 59
## 2 0 1 13
## 3 0 2 5
## 4 0 3 3
## 5 1 0 7
## 6 1 1 1
## 7 2 0 10
## 8 2 1 1
## 9 2 2 1
2. 用ggplot2画百分比柱状图
## 添加字体
library(showtext)
## 为了使ggplot中有中文字体,可根据自己电脑里字体的位置自行添加。
font_add("kt", "/Users/cpf/Library/Fonts/楷体_GB2312.ttf")
showtext_auto()
# stacked + percent
group %>% drop_na() %>% #去掉所有空值,避免出错ggplot(aes(fill=INJ_SEV, y= n, x = WEATHHER)) + geom_bar(position="fill", stat = "identity") +scale_y_continuous(labels = scales::percent) + #纵坐标变为百分比labs(y = "受伤严重程度") +theme_gray()
R中用ggplot2画百分比柱状图相关推荐
- R语言ggplot2可视化百分比显示实战:纵轴显示为百分比、在柱状图上显示百分比、按照因子变量绘制分组子图(纵轴显示为百分比)、可视化图中显示数据百分比
R语言ggplot2可视化百分比显示实战:纵轴显示为百分比.在柱状图上显示百分比.按照因子变量绘制分组子图(纵轴显示为百分比).可视化图中显示数据百分比 目录
- R语言ggplot2可视化改变柱状图(条形图)的填充色实战:默认的颜色为灰色、改变柱状图(条形图)的填充色、设置每个柱子(条形)使用不同的色彩
R语言ggplot2可视化改变柱状图(条形图)的填充色实战:默认的颜色为灰色.改变柱状图(条形图)的填充色.设置每个柱子(条形)使用不同的色彩 目录
- R软件-ggplot2 画火山图
R软件 ggplot2 1 导入包 # 帮助文档链接:http://docs.ggplot2.org/current/ library(ggplot2) 2.改变工作路径,将工作路径改变到数据存放的文 ...
- ggplot2画频数柱状图
两种数据对应两种情况: 1.只有一列数据,统计频数: set.seed(42) df<- data.frame(x = rpois(50, 5)) df 上面的数据只有一列,是一个泊松分布样本, ...
- R语言ggplot2画个月饼送给你
library(ggimage) library(ggplot2) library(patchwork) ggplot()+geom_image(aes(x=1,y=1)
- r语言ggplot2一夜多图_跟着Nature microbiology学画图~R语言ggplot2画直方图
今天要模仿的图片来自于论文 Core gut microbial communities are maintained by beneficial interactions and strain va ...
- R语言ggplot2画一幅漂亮的哑铃图
在找资料的时候偶然发现的这个图,这个图来源于论文 Russian periphery is dying in movement: a cohort assessment of internal you ...
- R语言ggplot2可视化创建堆叠的柱状图(stacked barplot)并且每个堆叠的柱状图都缩放到总和为100%实战:最后所有的堆叠的柱子都一样高、Y轴以百分比的形式来显示
R语言ggplot2可视化创建堆叠的柱状图(stacked barplot)并且每个堆叠的柱状图都缩放到总和为100%实战:最后所有的堆叠的柱子都一样高.Y轴以百分比的形式来显示 目录
- 基于R的ggplot2使用指南整理(一)——柱状图画法(含代码)
可视化第一期:在R平台使用ggplot2 欢迎查询ggplot2使用指南 什么是ggplot2? 基本结构 图形类别geom_function 坐标系coord_function 分面facet_fu ...
最新文章
- SpringBoot巧用 @Async 提升API接口并发能力
- AI造假 vs AI打假 终结“猫鼠游戏”不能只靠技术
- python turtle循环图案-有趣的Python turtle绘图
- python运维脚本部署jdk_基于Java/Python搭建Web UI自动化环境
- 修改tomcat的conf/server.xml解决网页乱码
- 深度学习《CGAN模型》
- oracle fileline换行,Java中的换行符line.separator及file的separator
- 计算机应用技术在医院的应用,计算机管理技术在医院的应用
- C语言打开微信提示找不到文件,系统弹出提示:windows找不到文件 c:\user\admini~1\temp\appdata\xlliveud。。。什么原因?...
- 大唐杯 5G协议与信令 任务六、任务七(24:30-35:00)
- u-boot之ARM920T的start.S分析
- Shopee卖家如何布局产品合理定价,新手必知的定价策略
- [教程] 使用魔影工厂和Nero 10制作DVD光盘
- Halcon union_straight_contours_xld详解
- MySQL数据库【习题训练】②
- 视频监控平台-GB28181-语音对讲功能
- 1_linux简介基础
- 基于STM32之控制步进电机,学到即赚到!(含主代码)
- 原创SpringMvc+Mybatis+Redis框架
- Python课程设计项目-基于机器学习的糖尿病风险预警分析系统
热门文章
- BSOJ3806 TYVJ 2032 升降梯上
- SCARA四轴机器人丝杆花键_SCARA机器人专用滚珠丝杆花键
- 安卓系统的导航仪怎么设置导航启动路径为高德地图_界面功能焕然一新!高德地图10.0新版体验...
- [iOS]将数字、日期转为中文
- slf4j绑定log4j使用
- 基于模糊PID控制的电加热炉温度控制系统设计
- vector 中元素的删除
- 超级电脑病毒入侵伊朗核电厂
- 2022年第三届“大湾区杯”粤港澳金融数学数学建模竞赛
- 【游戏】泡泡堂街机版(不需模拟器)