如何在ggplot中使用geom_boxplot設置刻度軸文本大小？

Question

I'm沒有成功嘗試增加狀態標籤的尺寸（蜱標籤是/否）下面的箱線圖。

我在做什麼錯？

在此先感謝。

status <- sample(c("yes", "no"), 50, replace=T) 
value <- rnorm(50, mean = 5, sd = 3) 

data <- melt(data.frame(status, value),measure.vars="value") 

p <- ggplot (data, aes(x=status, y=value)) + 
    geom_boxplot(outlier.shape=10, outlier.size=4) + 
    geom_jitter(aes(colour=value), size=3, position = position_jitter(width = .3)) + 
    coord_flip() + 
    scale_colour_gradient(limits=c(min(data$value), max(data$value)),low="#0000FF", high="#FF0000") + 
    labs(title="Title",x="status", y="value", colour="value") 

p + theme(plot.title = element_text(size = rel(5)), 
         axis.title.x =element_text(size=10) 
) 

p 

Answer 1

如果我理解你的問題的權利，你需要使用axis.text而非axis.title。

library(reshape2) 
library(ggplot2) 
status <- sample(c("yes", "no"), 50, replace=T) 
value <- rnorm(50, mean = 5, sd = 3) 

data <- melt(data.frame(status, value),measure.vars="value") 

ggplot(data, aes(x=status, y=value)) + 
    geom_boxplot(, outlier.shape=10, outlier.size=4) + 
    geom_jitter(aes(colour=value), size=3, position = position_jitter(width = .3)) + 
    coord_flip() + 
    scale_colour_gradient(limits=c(min(data$value), max(data$value)),low="#0000FF",  high="#FF0000") + 
    labs(title="Title",x="status", y="value", colour="value")+ 
    theme(plot.title = element_text(size = rel(5)), 
     axis.text.y =element_text(size=20))