我想提供一个替代解决方案,因为引入了画布旋转功能,所以在最新版本的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, hjust = 0))