提问



我有一个图,其中x轴是标签很长的因子。虽然可能不是一个理想的可视化,但现在我想简单地将这些标签旋转为垂直。我已经用下面的代码想出了这一部分,但正如你所看到的,标签并非完全可见。


data(diamonds)
diamonds$cut <- paste("Super Dee-Duper",as.character(diamonds$cut))
q <- qplot(cut,carat,data=diamonds,geom="boxplot")
q + opts(axis.text.x=theme_text(angle=-90))


[14]

最佳参考


将最后一行更改为


q + theme(axis.text.x = element_text(angle = 90, hjust = 1))


默认情况下,即使旋转,轴也会在文本的中心对齐。旋转+/- 90度时,通常希望它在边缘对齐:





上面的图片来自这篇博文。[15]

其它参考1


要使刻度标签上的文本完全可见并以与y轴标签相同的方向读取,请将最后一行更改为


q + theme(axis.text.x=element_text(angle=90, hjust=1))

其它参考2


使用+ coord_flip()



在R for Data Science中,Wickham和Grolemund谈到了这个确切的问题。在第3.8章位置调整中,他们写道:



  coord_flip()切换x和y轴。如果您想要水平箱图,这很有用(例如)。它对于长标签也很有用:很难让它们适应而不会在x轴上重叠。



将此应用于您的绘图,我们只需将+ coord_flip()添加到ggplot:


data(diamonds)
diamonds$cut <- paste("Super Dee-Duper",as.character(diamonds$cut))

qplot(cut,carat,data = diamonds, geom = "boxplot") +
  coord_flip()


[16]


现在,超长标题横向展开,非常容易阅读!

其它参考3


我想提供一个替代解决方案,因为引入了画布旋转功能,所以在ggtern的最新版本中需要类似于我要提出的强大解决方案。[17]


基本上,您需要使用三角函数确定相对位置,方法是建立一个返回element_text对象的函数,给定角度(即度数)和定位(即x,y,top或right之一)信息。


#Load Required Libraries
library(ggplot2)
library(gridExtra)

#Build Function to Return Element Text Object
rotatedAxisElementText = function(angle,position='x'){
  angle     = angle[1]; 
  position  = position[1]
  positions = list(x=0,y=90,top=180,right=270)
  if(!position %in% names(positions))
    stop(sprintf("'position' must be one of [%s]",paste(names(positions),collapse=", ")),call.=FALSE)
  if(!is.numeric(angle))
    stop("'angle' must be numeric",call.=FALSE)
  rads  = (angle - positions[** position **])*pi/180
  hjust = 0.5*(1 - sin(rads))
  vjust = 0.5*(1 + cos(rads))
  element_text(angle=angle,vjust=vjust,hjust=hjust)
}


坦率地说,在我看来,我认为应该在ggplot2 hjustvjust参数中提供自动选项,当指定角度时,无论如何,让我们演示如何以上作品。


#Demonstrate Usage for a Variety of Rotations
df    = data.frame(x=0.5,y=0.5)
plots = lapply(seq(0,90,length.out=4),function(a){
  ggplot(df,aes(x,y)) + 
    geom_point() + 
    theme(axis.text.x = rotatedAxisElementText(a,'x'),
          axis.text.y = rotatedAxisElementText(a,'y')) +
    labs(title = sprintf("Rotated %s",a))
})
grid.arrange(grobs=plots)


其中产生以下内容:


[18]