Question

我的自定义ggplot2主题有问题。在我定制的主题中，所有文本都将具有angle = 0，这是描述主题时的必需选项。但是，y轴标签也是水平定向的，而我想在角度= 90时，因为它不适合绘图。我的自定义主题代码是：

windowsFonts(Courier=windowsFont("Courier"))
my_theme<-function (base_size = 12, base_family = "")
{

    theme(text = element_text(size = base_size, family = "Courier", face
                              = "plain",
                              colour = "black", hjust = 0.5, vjust = 0.5,
                              angle = 0, lineheight = 0.9),
          axis.text  = element_text(size = rel(0.8)),
          axis.ticks = element_line(colour = "black"),
          axis.title.y = element_text(vjust=0.1,angle=90),
          legend.key = element_rect(colour = "grey80"),
          plot.title = element_text(size = rel(2), colour = "blue",face="bold"),
          legend.title = element_text(size = rel(1), colour = "blue"),
          panel.background = element_rect(fill = "white",colour = NA),
          panel.border = element_rect(fill = NA, colour = "grey50"),
          panel.grid.major = element_line(colour = "grey50", size = 0.33,linetype="dashed"),
          panel.grid.minor = element_blank(),
          strip.background = element_rect(fill = "grey80", colour = "grey50"),
          strip.background = element_rect(fill = "grey80", colour = "grey50"))
}

这里我添加了axis.title.y = element_text（vjust = 0.1，angle = 90），但是当我绘制时，图仍然是在角度= 0。然后我再次手动添加它：

p <- ggplot(data, aes(x=variable))
p + geom_histogram()+ 
   labs(title = "Plot title",x = "X title", y="Y title")+
   my_theme()+theme(axis.title.y=element_text(angle=90))

但仍然没有运气。当我绘制没有我的主题的情节时，一切都还可以，所以我猜这是text = element_text（...）中的“角度”选项，用于修复绘图中任何文本的角度。任何选项如何在使用我的主题时让y轴标题旋转？任何建议都非常感谢：）

UPD：使用ggplot2包中的钻石db的示例：数据集负责人：

   carat price color clarity
1   0.23   326     E     SI2
2   0.21   326     E     SI1
3   0.23   327     E     VS1
4   0.29   334     I     VS2
5   0.31   335     J     SI2
6   0.24   336     J    VVS2
7   0.24   336     I    VVS1
8   0.26   337     H     SI1
9   0.22   337     E     VS2
10  0.23   338     H     VS1

如图所示，该图未显示在左侧裁剪的完整标题

data(diamonds)
p <- ggplot(data=diamonds, aes(x=clarity, y=price, fill=clarity)) 
p+geom_bar(width=.7, stat="identity") + 
+     guides(fill=FALSE)+my_theme()+theme(
+         axis.title.y=element_text(angle=90))+
+     xlab("X title")+ylab("Y title")+
+     ggtitle("The big title")

enter image description here

ggplot2自定义主题：轴标题方向问题

0 个答案: