求助，怎么用R画这样的条形图？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

tie46_test.xlsx (163.6 KB)

2017-4-28 13:56:36 上传

如图，表格中每一行代表一个病人，四个变量分别是白细胞，CRP，中性粒细胞和白蛋白，分为low和high的二分类。结局为是否存活。实际病人数有几千例，不止五个。现在我想画出一个条形图（如图二所示），横坐标是这四个指标，每个指标有两个柱子，分别代表高浓度和低浓度。柱子都是一样高的，并且能看出死亡率。这该怎么画呢？用R怎么做（不好意思又发了一次，这次附上了原始数据）？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：条形图 High 不好意思 原始数据 怎么做

1. library(tidyverse)
   
2. dat <- readxl::read_xlsx('tie46_test.xlsx')
   
3. 
   
4. p <- dat %>%
   
5.   gather(key = type, value = val, -death, -patient_id) %>%
   
6.   group_by(type, val) %>%
   
7.   summarise(p = sum(death)/n())
   
8. 
   
9. p %>% ggplot(aes(type, p, fill = val)) +
   
10.   geom_bar(stat = 'identity', position = 'dodge')

复制代码

Eric1028 发表于 2017-4-28 18:58

按照你的方法，我画出来的图形，每个柱子的颜色都不一样，这该怎么调整呢？

Eric1028 发表于 2017-4-28 18:58

另外，我还有一列数据没有放上来，就是病人的病情严重程度severity，分为0，1，2。那么我怎么根据病情严重程度画出三个这样的图呢？查了下资料说是要用facet，这该怎么做呢？

*
顏色是根據fill = 的那個變數而決定，像是val有high跟low兩種值，所以有兩個顏色
*
那在整資料的時候，要先group_by這個security --> group_by(security, type, val)，然後畫圖的時候最後再+facet_wrap(~security)

与你描述的不太一样

Mutually_Sincer 发表于 2017-4-29 13:19
与你描述的不太一样

圈圈里的比例是怎么放上去的呢？还有，能不能根据low和high分出两个柱子？

我这个是用excel画的，只需要把你需要的各个数字统计出来就可以了。

Mutually_Sincer 发表于 2017-4-29 15:03
我这个是用excel画的，只需要把你需要的各个数字统计出来就可以了。

长知识了，谢谢！