我有這個圖表 - 我想添加到每個標籤的文本N=xx
來表示觀察的數量。我知道如何做到這一點,並且我已經在沒有方面的圖表上做過。修改每個方面的x軸標籤
當我嘗試了多面的圖表沒有工作的,(我得到了相同的N上開蜱在所有3個圖表,相同的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
我試圖創建9個標籤和傳遞一個向量的scale_x_discrete
元素,只是回收第3,所以它也沒有解決問題。
是不明確的。你想修改軸刻度或刻面標籤嗎? – agstudy
軸刻度標籤 - 如果在Open的第一個面上有6個觀察結果,我希望它顯示「Open(N = 6)」,如果在第二個Open上有9個觀察結果,那麼它將是「開放的(N = 9)」 – user1617979