私のサンプルデータとプロット:
library(data.table)
library(ggplot2)
dt2 <- fread('
risk group counts
low A 178
High A 1
low B 4
High B 100
low C 45
High C 83
low D 50
High D 2
')
# ggplot(dt2, aes(x=group,y=counts,fill=risk)) + geom_bar(stat='identity')
dt2[,rel1:=counts/sum(counts),by=group]
# ggplot(dt2, aes(x=group,y=rel1,fill=risk)) + geom_bar(stat='identity')
dt2[,grpSize:=sum(counts),by=group]
ggplot(dt2, aes(x=group,y=rel1,fill=risk,width = grpSize/200)) + geom_bar(stat='identity')
必要に応じて、バーの幅はグループのサイズに比例し、各サブグループの高さ(低/高)はこのサブグループのサイズに比例します。しかし、変更width
するとバー間のギャップが変更されます-これを回避してバー間の距離を一定に保つにはどうすればよいですか?
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加