如何画双向条形图

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请教大家，如何用R语言画这样的双向条形图？

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：条形图 R语言 如何用

帮顶，目前没见过有这样画图的

1. A = c(12,18,22,10,15,16,17)
   
2. B = c(112,186,165,120,100,105,87,200)
   
3. op=par(mar=c(3,2,7,2))
   
4. barplot(A, axes = FALSE,horiz = T,xlim = c(-20,20),ylim = c(0.5,9.2),
   
5.         col = 'skyblue',border ='white')
   
6. barplot(-B/10, add = TRUE,
   
7.         axes = FALSE,horiz = T,col = 'pink',border ='white')
   
8. abline(v = 0,lwd=2,col='red')
   
9. axis(3, lwd = 2, tick = T, at = seq(-20,20,5),col='gray',
   
10.      labels = c(rev(seq(0,200,50)), seq(5,20,5)), las = 1)
    
11. axis(1, lwd = 2, tick = T, at = seq(-20,20,5),col = 'gray',
    
12.      labels = c(rev(seq(0,200,50)), seq(5,20,5)), las = 1)
    
13. legend(-5, 12,c('女','男'),col=c('pink','skyblue'),pch=15,bty='o',
    
14.        horiz = T,xpd=TRUE,box.col='gray')
    
15. text(-3,seq(0.75,9.2,len=8),paste0('指标_',1:8),col='white',font = 2)

复制代码

zhou1_20 发表于 2019-3-18 15:49

学习了。万分感谢！！

zhou1_20 发表于 2019-3-18 15:49

感谢zhou1_20老师指导

zhou1_20 发表于 2019-3-18 15:49

不好意思，点错了

金字塔图
https://liao961120.github.io/2019/02/17/visualize-language-loss.html

cheetahfly 发表于 2019-3-20 08:52
金字塔图
https://liao961120.github.io/2019/02/17/visualize-language-loss.html

谢谢。

利用barplot函数两次绘图的思路很不错！

cheetahfly 发表于 2019-3-20 08:52
金字塔图
https://liao961120.github.io/2019/02/17/visualize-language-loss.html

热心助人，点赞！