无法旋转r中ggplot2构面图中的x轴标签

Question

有人可以帮忙吗？我一直在尝试运行一部分在r中创建facet_wrap()图的代码，它对我的​​海豚非常有效，但是x轴标签彼此重叠。我需要将它们旋转45度。我一直在尝试为海豚运行此代码，它确实创建了图形，但是x轴标签没有按预期旋转。

这里是代码：

for (x in unique(clss_perc_factor7$Horto)){
  ggsave(paste('barplot_esp40', x, sep = '_'), 
         ggplot(clss_perc_factor7[clss_perc_factor7$Horto == x,], 
                aes(x = Classe, 
                    y = Freq_perc)) +
           theme(plot.title = element_text(hjust = 0.5), 
                 axis.text.x = element_text(angle = 45, hjust = 1)) +
           theme_bw() +
           geom_bar(stat = 'identity', 
                    colour = 'black', 
                    fill = '#66CC99') +
           facet_wrap(~ CD_TALHAO) +
           labs(x = 'Classe de Espaçamento', 
                y = 'Nº de Indivíduos (%)', 
                title = 'Distribuição do Espaçamento em Classes'),
         dpi = 'retina',
         device = 'png')
}

鉴于：

• clss_perc_factor7是数据框，其中包含一个以上的森林花园（循环中为“ Horto”）。
• 每个森林花园中有不同的生产单位（“ C_TALHAO”-在facet_wrap()中]
• 这就是为什么我使用for循环绘制图形的原因。

OBS：应该将标题对齐居中的部分theme(plot.title = element_text(hjust = 0.5)...也不起作用。

非常感谢你们！

Answer 1

这里是一种方法：

library(ggplot2)
ggplot(mtcars,aes(hp,mpg)) +
  geom_point() + 
  facet_wrap(~cyl) +
  theme(strip.text.x = element_text(angle = 45)) 

祝你好运！