Текст команды не работает = текст не отображается или частично отображается

Question

По какой-то странной причине текстовая команда не отображает все слова. Вот мой ДФ и код:

library(reshape) 
library(coda) 
install.packages("coefplot2", 
       repos="http://www.math.mcmaster.ca/bolker/R", 
       type="source") #modified 
library(coefplot2) 

predictor <- c("X1", "X2", "X3", "X4", "X5") 
coef <- c(0.0000000, -0.2253459, -0.7849048, -0.9388088, -1.1509515) 
CI <- c(0.0000000, -0.8570941, -0.6416209, -0.6990803, -0.6287817) 

df <- data.frame(predictor, coef, CI)  
     df$predictor <- as.character(droplevels(df$predictor)) 


par(mfrow = c(5,2)) 
coefplot2(df[, 3], df[, 2], varnames= df[,2], CI=1,h.axis=F 
      , xlim=c(-3.5, 1.5), main="", mar=c(1,6,2,1), cex.var=1, cex.pts=1.5, pch.pts=16, lwd.2=1, frame.plot=T) 

mtext(expression(paste(bold("X"))),cex=0.8, adj=0,line = 2.3) 
text(-3.65,5,"E",cex=0.8,adj = c(0,0.6)); 
text(-3.65,4,"BE",cex=0.8,adj = c(0,0.6)); 
text(-3.65,3,"BC",cex=0.8,adj = c(0,0.6)); 
text(-3.65,2,"AC",cex=0.8,adj = c(0,0.6)); 
text(-3.65,1,"A",cex=0.8,adj = c(0,0.6)); 

Есть более 8 участков они так, что причина, почему пар (mfrow = с (5,2)) кодируется следующим образом. Но почему-то не все буквы показаны. Похоже на ошибку.

Любые идеи, как исправить это?

Answer 1

Я нашел ggplot2 больше, чем подходит для представления результатов.

library(ggplot2) 
sds <- 1 
text.add <- data.frame(text = c("E", "BE", "BC", "AC", "A"), y = c(-3.6), x = 5:1) 

(p1 <- ggplot(df, aes(x = predictor, y = coef)) + 
    theme_bw() + 
    geom_pointrange(aes(ymin = coef - sds * CI, ymax = coef + sds * CI)) + # adds CIs 
    scale_x_discrete(labels = df$coef) + # sets vertical labels 
    geom_text(data = text.add, aes(x = x, y = y, label = text)) + # adds text to the left side 
    theme(axis.text.x = element_blank(), axis.title.x = element_blank(), # clears x axis 
     axis.ticks.x = element_blank()) + 
    coord_flip() # flips everything 
ggsave("onefig.png", width = 4, height = 2)) 

Если у вас есть несколько участков, один путь, чтобы объединить их с помощью grid.arrange (некоторые настройки все еще требуется).

library(gridExtra) 
grid.arrange(p1, p1, p1, p1, ncol = 2)