如何用ggplot2绘制一个旋风图

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

TYPE	CA	COUNTRY
草地	45633.78	CN
耕地	3250981	CN
建设用地	165136.3	CN
林地	1832954	CN
其它	157.95	CN
湿地	295790.1	CN
水体	271418	CN
草地	575991.8	RU
耕地	702245.7	RU
建设用地	227573.6	RU
林地	10242925	RU
其它	160360.6	RU
湿地	1016432	RU
水体	589802.3	RU

数据如上，我现在使用ggplot2做了一个柱状图：

1. library(ggplot2)
   
2. library(readxl)
   
3. CAdata <- read_excel(path = "CA.xlsx", sheet = 2, col_names = T)
   
4. ggplot(CAdata, aes(TYPE, CA, fill=COUNTRY))+
   
5.   geom_bar(stat = "identity")

复制代码

但是我感觉这个柱状图对于两国之间的对比不够明显，想转换成旋风图的那种形式，类似下图那种，请问如何做呢？

扫码加我 拉你入群

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

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

分享0 收藏3 回帖

请参考：
https://bbs.pinggu.org/thread-6948513-1-1.html

cheetahfly 发表于 2019-9-25 13:20
请参考：
https://bbs.pinggu.org/thread-6948513-1-1.html

感谢指点，初步做出来了，在这里给分享一下

1. ggplot(CAdata, aes(x = TYPE,
   
2.                    y = ifelse(COUNTRY== 'RU', CA, -CA),
   
3.                    fill=COUNTRY))+
   
4.   geom_bar(stat = "identity") +
   
5.   coord_flip()

复制代码