ggplot框图刻面

问题描述

我正在使用以下代码绘制ggplot框图：

     p <- ggplot(data = five,mapping = aes(x = variable,y = value,fill = variable)) +
      geom_Boxplot(alpha = .3) + 
      geom_jitter(alpha = .3) + 
      labs(title = "Stock Data",x = "Index",y = "Percent Return") + 
      theme_bw() +
      theme(plot.title = element_text(hjust = 0.5)) +
      facet_wrap(vars(variable))
     p 

有什么方法可以从未使用的x轴变量中删除空白？我意识到我可以制作三个单独的图表，然后将它们并排排列，但是很好奇是否可以在同一张图表上完成？

解决方法

scales =“ free”需要添加到facet_wrap参数中。

p <- ggplot(data = five,mapping = aes(x = variable,y = value,fill = variable)) +
      geom_boxplot(alpha = .3) + 
      geom_jitter(alpha = .3) + 
      labs(title = "Stock Data",x = "Index",y = "Percent Return") + 
      theme_bw() +
      theme(plot.title = element_text(hjust = 0.5)) +
      facet_wrap(vars(variable),scales = "free")
    
    p