[问答] 这个图怎么做的 求指点 [推广有奖]

代码收藏了。非常感谢分享

非常感谢分享

我还没明白里面怎么做的啊 有些错误如果直接复制代码  不会改 你可以发个txt格式或者word的给我吗 如果你实验成功了的话  谢谢

如果中间没有圈的话，用ggplot是很简单的。
假设dd是数据框，有dn,dx,dy3列数据，
   dn dx dy
1   A 11 131
2   B 11  60
3   C  8  63
4   D 23 142
5   E 43  73
6   F 44 138
7   G 33  63
8   H 41 131
9   I 37  65
10  J 23 144
11  K 36  54
12  L 17 104

则可以：
ddd<-melt(dd,id="dn")
gg<-ggplot(ddd,aes(x=dn,y=value,fill=variable))
gg+geom_bar(stat="identity",position="dodge")+coord_polar()

关键在于用coord_polar()把坐标系设为极坐标

十分感谢