Как изменить размер шрифта по оси x

Question

У меня есть этот код для создания графика штрихов, но я хочу, например, изменить имена по оси x на имена видов, и я хотел бы уменьшить шрифт что я могу вместить все это. Я пробовал использовать функцию cex в различных комбинациях, но не работал. Я был бы благодарен за предложение?

count <-  
    matrix(c(16,102,11,106,15,95,26,87,18,99,21,103,12,110,30,103,10,107,20,87,13,110,17,93),  nrow = 2) 


    barplot(count, beside=T, legend =T, ylim=c(0,130), 
    col=c("darkolivegreen3", "firebrick1"), 
    ylab="Frequency (no. of moths)", las = 3, 
    names = c("tiger\nCo", "tiger\nCr" , "eyes\nCo", "eyes\nCr", "mottled\nCo","mottled\nCr", "pepperL\nCo","pepperL\nCr", "pepperD\nCo","pepperD\nCr", "convol\nCo", "convol\nCr"))   


    legend(6,130, legend=(c("survived","predated")), pch=c(15,22), cex=0.8, col=c("darkolivegreen3","firebrick1")) 

Answer 1

Ну, по ?barplot странице есть cex.names аргумент:.

barplot(count, beside=T, legend =T, ylim=c(0,130), 
    col=c("darkolivegreen3", "firebrick1"), 
    ylab="Frequency (no. of moths)", las = 3, 
    cex.names=0.8, 
    names.arg = c("tiger\nCo", "tiger\nCr" , "eyes\nCo", "eyes\nCr", 
        "mottled\nCo","mottled\nCr", "pepperL\nCo", 
        "pepperL\nCr", "pepperD\nCo","pepperD\nCr", 
        "convol\nCo", "convol\nCr"))   
    legend(6,130, legend=(c("survived","predated")), pch=c(15,22),  
          col=c("darkolivegreen3","firebrick1")) 

Я признаю, что найти правильный CEX * аргумент иногда бывает трудно, а иногда требует отдельных вызовов на ось, но здесь кажется почти тривиальным.