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画百分比柱状图相关推荐

  1. R语言ggplot2可视化百分比显示实战:纵轴显示为百分比、在柱状图上显示百分比、按照因子变量绘制分组子图(纵轴显示为百分比)、可视化图中显示数据百分比

    R语言ggplot2可视化百分比显示实战:纵轴显示为百分比.在柱状图上显示百分比.按照因子变量绘制分组子图(纵轴显示为百分比).可视化图中显示数据百分比 目录

  2. R语言ggplot2可视化改变柱状图(条形图)的填充色实战:默认的颜色为灰色、改变柱状图(条形图)的填充色、设置每个柱子(条形)使用不同的色彩

    R语言ggplot2可视化改变柱状图(条形图)的填充色实战:默认的颜色为灰色.改变柱状图(条形图)的填充色.设置每个柱子(条形)使用不同的色彩 目录

  3. R软件-ggplot2 画火山图

    R软件 ggplot2 1 导入包 # 帮助文档链接:http://docs.ggplot2.org/current/ library(ggplot2) 2.改变工作路径,将工作路径改变到数据存放的文 ...

  4. ggplot2画频数柱状图

    两种数据对应两种情况: 1.只有一列数据,统计频数: set.seed(42) df<- data.frame(x = rpois(50, 5)) df 上面的数据只有一列,是一个泊松分布样本, ...

  5. R语言ggplot2画个月饼送给你

    library(ggimage) library(ggplot2) library(patchwork) ggplot()+geom_image(aes(x=1,y=1)

  6. r语言ggplot2一夜多图_跟着Nature microbiology学画图~R语言ggplot2画直方图

    今天要模仿的图片来自于论文 Core gut microbial communities are maintained by beneficial interactions and strain va ...

  7. R语言ggplot2画一幅漂亮的哑铃图

    在找资料的时候偶然发现的这个图,这个图来源于论文 Russian periphery is dying in movement: a cohort assessment of internal you ...

  8. R语言ggplot2可视化创建堆叠的柱状图(stacked barplot)并且每个堆叠的柱状图都缩放到总和为100%实战:最后所有的堆叠的柱子都一样高、Y轴以百分比的形式来显示

    R语言ggplot2可视化创建堆叠的柱状图(stacked barplot)并且每个堆叠的柱状图都缩放到总和为100%实战:最后所有的堆叠的柱子都一样高.Y轴以百分比的形式来显示 目录

  9. 基于R的ggplot2使用指南整理(一)——柱状图画法(含代码)

    可视化第一期:在R平台使用ggplot2 欢迎查询ggplot2使用指南 什么是ggplot2? 基本结构 图形类别geom_function 坐标系coord_function 分面facet_fu ...

最新文章

  1. TinyCrayon-iOS-SDK:强大到使人惊讶的 Mask 及切图工具库
  2. mysql 上级组织参数值_MySQL参数group_replication_consistency说明
  3. thinkphp5 获取当前的域名
  4. halcon11用于C++的HTuple.h头文件,纯手添中文翻译!
  5. python编程基础知识点_12个关于Python编程基础知识的总结
  6. ASR识别(自动语音识别)
  7. Cocos2d-xJson数据解析(读取和写入)
  8. 时差怎么理解_懂的人自然懂,不懂的人再多解释也有时差
  9. STM32 部分重映射和完全重映射
  10. Java实现--身高预测
  11. android系统开机logo定制
  12. java 废弃方法_在Java中使用Deprecated方法或类是错误的吗?
  13. 基本图像变换:线性变换,仿射变换,投影变换
  14. 使用Arduino和蓝牙实现语音控制LED指示灯
  15. 微信小程序获取用户信息(昵称、头像、openid等)
  16. SKU与SPU的区别
  17. VM-CtenOS-8+Linux-8+LANMP环境中安装phpMyAdmin
  18. Genesis创世纪
  19. Mysql的关闭启动与常用操作
  20. Python使用问题锦集

热门文章

  1. 为什么先交钱后用电_先交钱再用电,合理合法吗?
  2. 制作html map工具,那些堪称神器的地图制作工具
  3. UG模具设计:UG部件的自动取整方法
  4. 环球企业家:谷歌中国第二战
  5. objectArx --- 层表、字体样式表
  6. Need BLUETOOTH_PRIVILEGED permission
  7. Numpy闯关100题,我闯了95关,你呢?
  8. (转)Windows7轻松备份--“Windows7一键恢复”简明教程
  9. 金山打字通WINDOWS XP及WINDOWS 2003下安装后普通用户无法使用的问题
  10. 淘宝订单批量核对自动插旗软件(完全免费)