我有一个图，其中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))
当前回答
我想提供另一种解决方案，一种与我即将提出的解决方案类似的健壮解决方案，自从引入画布旋转功能以来，最新版本的ggtern就需要这种解决方案。
基本上，您需要使用三角法来确定相对位置，方法是构建一个函数，该函数返回一个element_text对象、给定角度（即角度）和位置（即x、y、顶部或右侧之一）信息。
#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参数提供一个“自动”选项，在指定角度时，无论如何，让我们来演示一下上面的工作原理。
#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)
产生以下结果：
其他回答
将最后一行更改为
q + theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1))
默认情况下，即使旋转，轴也会在文本中心对齐。旋转+/-90度时，通常希望它在边缘对齐：
上图来自这篇博客文章。
同样使用ggplot2 3.3+，我们可以制作没有coord_flip（）的水平图，因为它支持双向几何图形，只需交换x轴和y轴。https://cmdlinetips.com/2020/03/ggplot2-2-3-0-is-here-two-new-features-you-must-know/
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软件包（v0.2.1）于2018-11-06创建
通过GitHub搜索相关参数名称找到：https://github.com/search?l=R&q=element_text+角度+90+vjust+org%3cran&type=代码
我想提供另一种解决方案，一种与我即将提出的解决方案类似的健壮解决方案，自从引入画布旋转功能以来，最新版本的ggtern就需要这种解决方案。
基本上，您需要使用三角法来确定相对位置，方法是构建一个函数，该函数返回一个element_text对象、给定角度（即角度）和位置（即x、y、顶部或右侧之一）信息。
#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参数提供一个“自动”选项，在指定角度时，无论如何，让我们来演示一下上面的工作原理。
#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)
产生以下结果：
要使记号标签上的文本完全可见，并以与y轴标签相同的方向读取，请将最后一行更改为
q + theme(axis.text.x=element_text(angle=90, hjust=1))
