Нужна поддержка с форматированием меток групп на оси x, чтобы они не перекрывались

Question

Я создал надрезанный квадрат из некоторых данных в R, используя пакет ggplot2. У меня проблема, что текст элемента оси x делает метки моих групп перекрытыми, чего я не хочу.

Я также не хочу поворачивать метки. Предпочтительно, чтобы каждая метка была написана горизонтально, но продолжалась по отдельной линии. Так, что два слова (например) метки Carboniferous Lst. появляется как два слова со вторым словом «Известняк», написанным горизонтально ниже карбона. Я не могу уменьшить размер шрифта, так как это будет слишком сложно прочитать.

Кто-нибудь знает, есть ли команда в ggplot R, которая позаботится об этом?

Огромное спасибо

Дамиано

PS: Мой текущий код:

box <- ggplot(AquiProps, aes(Geology, logTRANS)) 

box + geom_boxplot(notch = TRUE) 
    + labs(x = "", y = "Mean log Transmissivity(m2/d)") 
    + theme(axis.title = element_text(face = "bold", size = "12", color = "black"), 
      axis.text = element_text(size = 10, face = "bold", color = "black"), 
      axis.title.y = element_text(vjust = 1), 
      axis.title.x = element_text(vjust = 0.005)) 

Я полагаю, мне нужно что-то изменить в axis.title.x = element_text команды ?! ?!

Answer 1

Нравится?

# create example 
set.seed(1) 
names <- paste("Carboniferous Species:",1:8) 
df <- data.frame(names=rep(names,each=100),values=rnorm(800)) 

library(ggplot2) 
ggplot(df,aes(x=names,y=values))+ 
    geom_boxplot(notch=TRUE)+ 
    scale_x_discrete(labels=gsub("(Carboniferous)","\\1\n",unique(df$names)))+ 
    theme(axis.title = element_text(face = "bold", size = "12", color = "black"), 
     axis.text = element_text(size = 10, face = "bold", color = "black"), 
     axis.title.y = element_text(vjust = 1), 
     axis.title.x = element_text(vjust = 0.005)) 

Код вставки выше линии разбивается на ярлыках оси с помощью scale_x_discrete(labels=...).

Можно также вставить разрывы строк непосредственно в ваши данные, используя например .:

df$names <- gsub("(Carboniferous)","\\1\n",df$names) 

Тогда ваш код, как написано бы тот же график выше.