首页 文章

在ggplot2中旋转和间隔轴标签

提问于
浏览 次
509

我有一个图，其中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))

enter image description here

r ggplot2 labels

5 回答

  • 847

    ggpubr包提供了一个默认执行正确操作的快捷方式（右对齐文本，中间对齐文本框以勾选）：

    library(ggplot2)
diamonds$cut <- paste("Super Dee-Duper", as.character(diamonds$cut))
q <- qplot(cut, carat, data = diamonds, geom = "boxplot")
q + ggpubr::rotate_x_text()

    由reprex包创建于2018-11-06（v0.2.1）

    找到GitHub搜索相关参数名称：https://github.com/search?l=R&q=element_text+angle+90+vjust+org%3Acran&type=Code

    回复于
  • 20

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

    q + theme(axis.text.x=element_text(angle=90, hjust=1))
    回复于
  • 69

    使用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()

    enter image description here

    现在，超长 Headers 横向展开，非常容易阅读！

    回复于
  • 55

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

    基本上，您需要使用三角函数确定相对位置，方法是构建一个返回 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 中为 hjust 和 vjust 参数提供'auto'选项，当指定角度时，无论如何，让我们演示上述工作原理 .

    #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)

    其中产生以下内容：

    Example

    回复于
  • 2

    将最后一行更改为

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

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

    alt text

    上图来自this blog post .

    回复于

相关问题