左侧是我的甜甜圈图当前的外观,右侧是它的外观:
有什么方法可以使用R分解甜甜圈图吗?
这是我的代码:
ggplot(dat, aes(fill = goalGroups, ymax = ymax, ymin = ymin, xmax = 4.8, xmin = 3)) +
geom_rect(color = "white") +
coord_polar(theta="y", direction = -1) +
xlim(c(0, 8)) +
theme_bw() +
theme(panel.grid=element_blank()) +
theme(axis.text=element_blank()) +
theme(axis.ticks=element_blank()) +
theme(axis.title.x = element_blank()) +
theme(axis.title.y = element_blank()) +
theme(panel.border = element_blank())
我非常感谢您的帮助!
最佳答案
您可以尝试为每个类别创建xlim
和ylim
例如
数据
dat = data.frame(count=c(30, 10), category=c("A", "C"),stringsAsFactors = F)
附加计算
dat$fraction = dat$count / sum(dat$count)
dat = dat[order(dat$fraction), ]
dat$ymax = cumsum(dat$fraction)-0.01
dat$ymin = c(0, head(dat$ymax, n=-1))+0.01
dat$all_=length(unique(dat$category))
dat$x1=dat$all_-(1:nrow(dat))*0.5+1
dat$x2=dat$all_-(1:nrow(dat))*0.5+2
阴谋
p2=ggplot()+aes(ymin=0)+geom_rect(data=dat,aes(fill=category,ymax=ymax, ymin=ymin, xmax=x1, xmin=x2),color = "white")+
ylim(0,1)+
xlim(c(0,3+length(unique(dat$category))))+
coord_polar(theta="y", direction = -1) +
theme_bw() +
theme(panel.grid=element_blank()) +
theme(axis.text=element_blank()) +
theme(axis.ticks=element_blank()) +
theme(axis.title.x = element_blank()) +
theme(axis.title.y = element_blank()) +
theme(panel.border = element_blank())
p2
同样适用于两个以上的类别
dat = data.frame(count=c(30,15, 10), category=c("A", "B", "C"),stringsAsFactors = F)
关于r - 如何使用R分解甜甜圈图切片(ggplot2),我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/35175606/