Проблемы с изменением размеров шрифта метки оси

Question

У меня фактически очень простой вопрос.

Я использую код ggplot2 для изменения размера шрифта текста оси и надписей. Однако, где бы я ни размещал команду, никакие изменения не видны на осях. Все остальные команды работают, поэтому у меня создается впечатление, что что-то "переопределяет" команду theme (axis.text..., axis.title...).

 ggplot(Cannock, aes(x=Capacity,color=CPType)) + 
   geom_histogram(fill="white",position="identity",binwidth=3,lwd=1) + 
   labs(title="Cannock Chase",x="Capacity", y = "Count") + 
   theme(axis.text=element_text(size=14), axis.title=element_text(size=16,face="bold")) + 
   facet_grid(CPType ~ .) + 
   geom_vline(data=mu1, aes(xintercept=grp.mean, color=CPType), linetype="dashed",size=1) + 
   theme_bw() + 
   theme(axis.line = element_line(colour = "black"),
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank(),
    panel.border = element_blank(),
    panel.background = element_blank()) + 
   theme(legend.position="none") + 
   theme(strip.text.y = element_text(size=8, fac[![enter image description here][1]][1]e="bold"), strip.background = element_rect(colour="white", fill="white")) + 
   coord_cartesian(xlim = c(0,100)) + 
   theme(strip.background = element_blank(), strip.text = element_blank())

Любые указатели на это будут с благодарностью. Большое спасибо!

Answer 1

Я думаю, может быть, ты позвонил theme_bw() после изменения форматирования оси. Любое форматирование, которое вы хотите изменить по умолчанию, должно быть изменено после вызова theme_bw, Кроме того, чтобы быть чище и плотнее, вы можете объединить все свои theme аргументы в одну группу, чтобы легче было отслеживать, что вы меняете. Решает ли приведенный ниже код проблему?

Вы также указываете strip.text а также strip.background дважды, с разными настройками, что, вероятно, не то, что вы хотите сделать.

ggplot(Cannock, aes(x=Capacity,color=CPType)) + 
  geom_histogram(fill="white",position="identity",binwidth=3,lwd=1) + 
  labs(title="Cannock Chase",x="Capacity", y = "Count") + 
  facet_grid(CPType ~ .) + 
  geom_vline(data=mu1, aes(xintercept=grp.mean, color=CPType), linetype="dashed",size=1) + 
  theme_bw() + 
  coord_cartesian(xlim = c(0,100)) +
  theme(axis.text=element_text(size=14), 
        axis.title=element_text(size=16,face="bold"),
        axis.line = element_line(colour = "black"),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        panel.border = element_blank(),
        panel.background = element_blank(),
        legend.position="none",
        strip.text.y = element_text(size=8, face="bold"), 
        strip.text = element_blank(),
        strip.background = element_rect(colour="white", fill="white"),
        strip.background = element_blank())