作者热门文章
- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
关于上一个问题 How to subset or aggregate large amounts of data so I can make separate pie charts
我已经制作了下面的饼图,这很棒,但是有人知道我可以根据 Trip_Set 填充饼图的方法吗?即,大多数 Trip_Set 只有一只雄性或一只雌性,因此它们应该完全是粉红色或蓝色。因为一个有 3 个 (271_6),所以将那个(最高的)作为默认值,所以其他馅饼有空白空间。我知道,如果我在条形图中这样做,我可以添加 scales = "free"
,但这不适用于非笛卡尔坐标系统...
这是我的数据:
Trip_Set sex
119_4 hembra
119_4 hembra
119_7 hembra
161_7 macho
193_8 hembra
255_7 macho
271_6 hembra
271_6 macho
271_6 hembra
328_7 hembra
403_3 hembra
428_2 hembra
655_4 hembra
这是我的代码:
pie <- ggplot(dframe2, aes(x=1, y='Trip_Set', fill=sex)) +
geom_bar(width = 1, stat="identity") +
ggtitle("Sex ratio per line") +
coord_polar(theta='y') +
facet_wrap(~Trip_Set, ncol = 5)
最佳答案
看看这是否是您要找的:
# transform the data
library(dplyr)
dframe2_new = dframe2 %>% group_by(Trip_Set, sex) %>% tally()
# to plot
ggplot(data=dframe2_new, aes(x=factor(1), y=n, fill=sex)) +
geom_bar(stat="identity", position=position_fill(width=1)) +
coord_polar(theta="y") +
facet_wrap(~Trip_Set, ncol=5)
如果你不想要坐标等,你可以试试下面的代码
# to plot
ggplot(data=dframe2_new, aes(x=factor(1), y=n, fill=sex)) +
geom_bar(stat="identity", position=position_fill(width=1)) +
coord_polar(theta="y") +
facet_wrap(~Trip_Set, ncol=5) +
theme(axis.text = element_blank(),
axis.ticks = element_blank(),
panel.grid = element_blank()) +
xlab("") +
ylab("Trip_Set")
关于r - 如何在不使用 scale = free 的情况下在 facet wraps 中填充整个饼图,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/27446511/
我是一名优秀的程序员,十分优秀!