Изменить подзаголовки в решетке / плотности - PullRequest
Новая
       45

Изменить подзаголовки в решетке / плотности

0 голосов
/ 24 апреля 2019

Я работал в решетке / плотностном графике и хочу поменять подзаголовки "in", "out" на "inpatinet", "амбулаторный".Спасибо.Изображение и код ниже: 

colors = c("black", "blue")
lines = c(1,2) #1
points = c(16,17)
key.trans <- list(title="Gender",
                  corner = c(0.90, 0.90),
                  #space="bottom", columns=2, #2
                  text=list(c("Female","Male")),
                  #points=list(pch=points, col=colors),
                  lines=list(col=colors, lty=lines),
                  cex.title=1, cex=.9) 

densityplot(~ Age_yrs|Location_type, groups=Sex,  
            data = subset(all_isolates_inc_ATCC, Age_yrs<100 & 
                   Institution=="P06" 
                   & Organism=="eco" 
                   & Location_type!="unk"), 
            xlab = "Age, years",
            lty=lines, col=colors,
            lwd=2, 
            plot.points = FALSE,
            #jitter=.00005,
            key=key.trans)

enter image description here

1 Ответ

1 голос
/ 20 мая 2019

Имена полос можно изменить в функции с помощью функции strip.custom. Соответствующий вопрос был задан в Изменить текст на полосах в решетчатых графиках . В вашем случае вы бы добавили следующий аргумент к вашему вызову densityplot(): 

   strip = strip.custom(factor.levels = c("In patient", "Out patient"))

Дополнительная информация содержится в справке для strip.default, хотя справка для strip.custom также поможет вам.

...