私はこのチャートを持っています - 各ラベルに、観察数を表すテキストN=xx
を追加したいと思います。私はこれを行う方法を知っており、私は面がないチャートでこれを行っています。私はそれが動作しませんでした多面的なチャート上で、という試みた各ファセットのx軸ラベルを変更します
(私はすべての3つのチャート上でオープンダニに同じNを得た、制限付きの同じNなど)
は、私は誰かがことを願ってソリューションへの道を指し、どのファセット上の要素を制御するのですか?
library(ggplot2)
library(scales)
stat_sum_single <- function(fun, geom="point", ...) {
stat_summary(fun.y=fun, fill="red", geom=geom, size = 5, shape=24)
}
set.seed(1)
data1 <- data.frame(Physicians_In=sample(1:3,100,replace=T),Physicians_Out=sample(1:3,100,replace=T),share=runif(100,0,1))
data1$Physicians_In <- factor(data1$Physicians_In,levels=c(1,2,3),labels=c("Open","Restricted","Closed"))
data1$Physicians_Out <- factor(data1$Physicians_Out,levels=c(1,2,3),labels=c("Open","Restricted","Closed"))
access_ch3 <- ggplot(data1,aes(x=Physicians_In,y=share,fill=Physicians_In))+geom_boxplot()+stat_sum_single(mean)
access_ch3 <- access_ch3 +geom_jitter(position = position_jitter(width = .2),color="blue")+theme_bw()
access_ch3 <- access_ch3 + theme(legend.position="none") +scale_y_continuous("Gammagard Share",labels=percent)
gpo_labs5 <- paste(gsub("/","-\n",names(table(data1$Physicians_Out)),fixed=T),"\n(N=",table(data1$Physicians_Out),")",sep="")
access_ch3 <- access_ch3 + scale_x_discrete("Physician Access (In Hospital)",labels=gpo_labs5)
access_ch3 <- access_ch3 +facet_grid(.~Physicians_Out,labeller=label_both)
access_ch3
私はそれはまた、問題が解決しなかったので、ちょうど最初の3をリサイクルすることを、9枚のラベルを作成し、scale_x_discrete
要素にそのベクトルを渡してみました。同じデータを持つ
ですが明確ではありません。軸ティックやファセットラベルを変更しますか? – agstudy
軸の目盛りのラベル - 最初のファセットでOpenの場合は6つの観測があり、2つ目のOpenで9が開いている(N = 9)場合は「Open(N = 6) – user1617979