Перемещение штанги или перемещение вниз по легенде

Question

Я стараюсь сделать мой барплот как можно лучше. Я нашел проблему с ярлыком на xaxis. Он совпадает с именами графиков на графике.

Вот код, который я использую:

tbl_EOD$location_subacon <- gsub("(.*),.*", "\\1", tbl_EOD$location_subacon) 

dataToPlot<-table(tbl_EOD$location_subacon) 
cols <- c("blue", "red", "orange", "yellow", "purple", "green", "black", "pink", "indianred", "brown") 
par(las=2) 
barplot(dataToPlot, col=cols, main="Subcellular localization", 
     xlab="Name of compartment", 
     ylab="Number of identified proteins", 
     cex.names = 0.80) 

и воспроизводимый пример:

> dput(dataToPlot) 
structure(c(927L, 29L, 155L, 8L, 162L, 178L, 91L, 90L, 666L, 
33L), .Dim = 10L, .Dimnames = structure(list(c("cytosol", "endoplasmic reticulum", 
"extracellular", "golgi", "mitochondrion", "nucleus", "peroxisome", 
"plasma membrane", "plastid", "vacuole")), .Names = ""), class = "table") 

И график:

Я пытался играть с cex.names, но я не находите это настолько полезным в моем случае.

Answer 1

Изменить размер маржи с помощью par(mai), а затем оставить метку х-оси заготовки, а затем добавить в метке с использованием оси mtext на соответствующем расстоянии (т.е. line) от участка. Что-то вроде:

par(mai=c(2,1,1,1)) 
barplot(dataToPlot, col=cols, main="Subcellular localization", 
     xlab="", 
     ylab="Number of identified proteins", 
     cex.names = 0.80) 
mtext("Name of compartment", side=1, line = 7, las=1)