ggplot - добавление нижнего индекса и второй строки к меткам оси x

Question

Я пытаюсь создать метки для отметок по оси X, которые содержат оба индекса и второй ряд. Я могу создать вторую строку, а также одну строку с подписками. Тем не менее, я не могу создать оба. Попытка добавить «n \» в код (ы) метки приводит к ошибкам.

Короче говоря, я хочу создать первую строку меток меток оси x с добавленным нижним индексом И затем добавить вторую строку к меткам меток.

Следующий код создает фрейм данных

    `
    n=50
    data <- function(ids) {
    obs.data <- data.frame(expand.grid(ids),Route=rbinom(n,1,.5),Cohort = sample(1:3, n, 
    replace=T),Cohorts = sample(4:6, n, replace=T), Result= runif(n, 25000, 75000))
    names(obs.data) <- c("ID","Sex","Cohort","Cohorts","Result")
    obs.data<-obs.data[order(obs.data$ID),]
    return(obs.data)
    }
    test<-data(ids=1:n)
    test$Cohorts<-ifelse(test$Cohorts==4,"Cohort 1, 2, 3",ifelse(test$Cohorts==5,"Cohort 2, 
    3","Cohort 3"))
    test$Parameter<-ifelse(test$Cohorts== "Cohort 1, 2, 3","X14",ifelse(test$Cohorts=="Cohort 2, 
    3","X43","X84"))

`

Следующий код создает метки с двумя линиями, которые я желаю

` AUClabels <- c ("XYZ0-14 \ n Cohort 1 , 2, 3 "," XYZ0-43 \ n Когорта 2, 3 "," XYZ0-84 \ n Когорта 3 ") </p>

testp1<-ggplot(test, aes(x=as.factor(Parameter), y = Result), group=interaction(Cohort,Cohorts,Sex))+
geom_point(aes(colour=factor(Sex), fill=factor(Sex),shape=factor(Sex)),size=2.75)+
scale_x_discrete(labels = AUClabels)+
scale_shape_manual(values=c(19, 1))+
scale_fill_manual(values=c("black","black"))+
scale_color_manual(values=c("black","black"))+
scale_y_continuous(limit = c(20000, 80000))+
ggtitle("")+
ylab("")+
theme(axis.title.x = element_blank())+
theme(legend.position="")+
theme(legend.title=element_blank())
testp1

`

Этот код создает индекс

'AUClabels2 <- c (выражение (XYZ [0-14]), выражение (XYZ [0-43]), выражение (XYZ [0 -84])) </p>

testp2<-ggplot(test, aes(x=as.factor(Parameter), y = Result), group=interaction(Cohort,Cohorts,Sex))+
geom_point(aes(colour=factor(Sex), fill=factor(Sex),shape=factor(Sex)),size=2.75)+
scale_x_discrete(labels = AUClabels2)+
scale_shape_manual(values=c(19, 1))+
scale_fill_manual(values=c("black","black"))+
scale_color_manual(values=c("black","black"))+
scale_y_continuous(limit = c(20000, 80000))+
ggtitle("")+
ylab("")+
theme(axis.title.x = element_blank())+
theme(legend.position="")+
theme(legend.title=element_blank())
testp2

'