Изменение меток оси x в каждой грани

У меня есть эта диаграмма. Я хотел бы добавить к каждой метке текст 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, так что это тоже не решить эту проблему.

источник

2013-12-11 user1617979

Is не ясно. Вы хотите изменить метки тиков оси или граней? – agstudy

метки осевого тика - если на первом грани для Open есть 6 наблюдений, я хочу, чтобы он показывал «Open (N = 6)», если на втором Open было 9, что один будет «открытым (N = 9)», – user1617979

Это не совсем то, что вы хотите сделать, но я думаю, что это может быть полезным (по крайней мере, хорошее начало)

library(ggplot2) 
library(plyr) 
data1 <- ddply(data1,.(Physicians_Out,Physicians_In),transform,label = length(share)) 
ggplot(data1,aes(x=Physicians_In,y=share,fill=Physicians_In))+ 
    geom_boxplot() + 
    stat_sum_single(mean) + 
    facet_grid(.~Physicians_Out,labeller=label_both,scales='free_x') + 
    stat_summary(fun.y=min,aes(label=paste0('N=',label)),geom='text',col='blue',cex=5)

enter image description here

источник

2013-12-11 18:00:01 agstudy

спасибо за ответ, я хочу добавить количество наблюдений для каждого из ящиков, которые я показываю – user1617979

@ user1617979 Я полностью меняю свой ответ. – agstudy

спасибо, это действительно отлично работает, и мне он нравится, поскольку он позволяет использовать facet_grid. Я смог выровнять их внизу, добавив y = 0 в оператор aes() в stat_summary. Я также узнал, как использовать преобразование в ddply, с которым я не знаком (сэкономит много слияний) – user1617979

С теми же данными я последовал за четыре шага подход ,

Первый: Подменят данные

open <- subset(data1, Physicians_Out == "Open") 
restr <- subset(data1, Physicians_Out == "Restricted") 
closed <- subset(data1, Physicians_Out == "Closed")

Второе: создание этикеток для различных подмножеств

labs.open <- paste(gsub("/","-\n",names(table(open$Physicians_In)),fixed=T), 
       "\n(N=",table(open$Physicians_In),")",sep="") 
labs.restr <- paste(gsub("/","-\n",names(table(restr$Physicians_In)),fixed=T), 
       "\n(N=",table(restr$Physicians_In),")",sep="") 
labs.closed <- paste(gsub("/","-\n",names(table(closed$Physicians_In)),fixed=T), 
       "\n(N=",table(closed$Physicians_In),")",sep="")

Третье: создание темы для удаления оси у метки & текста 2 & 3-е подграфы

mytheme <- theme(
    axis.title.y = element_blank(), 
    axis.text.y = element_blank(), 
    axis.ticks.y = element_blank() 
)

Fin союзник: создание графа

p1 <- ggplot(open,aes(x=Physicians_In,y=share,fill=Physicians_In)) + 
    geom_boxplot() + stat_sum_single(mean) + 
    geom_jitter(position = position_jitter(width = .2),color="blue") + 
    guides(fill=FALSE) + 
    ggtitle(paste("Physician Access (Out): Open\nN = (", nrow(open), ")\n")) + 
    scale_y_continuous("Gammagard Share",labels=percent) + 
    scale_x_discrete("\nPhysician Access (In Hospital)",labels=labs.open) + 
    theme_bw() 

p2 <- ggplot(restr,aes(x=Physicians_In,y=share,fill=Physicians_In)) + 
    geom_boxplot() + stat_sum_single(mean) + 
    geom_jitter(position = position_jitter(width = .2),color="blue") + 
    guides(fill=FALSE) + 
    ggtitle(paste("Physician Access (Out): Restricted\nN = (", nrow(restr), ")\n")) + 
    scale_x_discrete("\nPhysician Access (In Hospital)",labels=labs.restr) + 
    theme_bw() + mytheme 

p3 <- ggplot(closed,aes(x=Physicians_In,y=share,fill=Physicians_In)) + 
    geom_boxplot() + stat_sum_single(mean) + 
    geom_jitter(position = position_jitter(width = .2),color="blue") + 
    guides(fill=FALSE) + 
    ggtitle(paste("Physician Access (Out): Closed\nN = (", nrow(closed), ")\n")) + 
    scale_x_discrete("\nPhysician Access (In Hospital)",labels=labs.closed) + 
    theme_bw() + mytheme 

library(gridExtra) 

grid.arrange(p1, p2, p3, ncol=3)

Что дает следующий результат:

enter image description here

источник

2013-12-11 19:53:33 Jaap

Изменение меток оси x в каждой грани

ответ

Смежные вопросы