Метки о оси вращения и расстояния в GGPLOT2
Вопрос
У меня есть сюжет, где ось 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))
Решение
Изменить последнюю строку на
q + theme(axis.text.x = element_text(angle = 90, hjust = 1))
По умолчанию оси выровнены в центре текста, даже при повороте. Когда вы вращаетесь +/- 90 градусов, вы обычно хотите, чтобы он был выровнен на краю:
Изображение выше из этот пост в блоге.
Другие советы
Чтобы сделать текст на метках, полностью видимыми и прочитав в том же направлении, что и этикетка оси Y, измените последнюю строку на
q + theme(axis.text.x=element_text(angle=90, hjust=1))
Использовать coord_flip()
data(diamonds)
diamonds$cut <- paste("Super Dee-Duper",as.character(diamonds$cut))
qplot(cut,carat,data = diamonds, geom = "boxplot") +
coord_flip()
В Ch 3.9 R для науки о данных, Уикхем и Гролеманд говорят с этим точным вопросом:
coord_flip()
переключает оси x и y. Это полезно (например,), если вам нужны горизонтальные ящики. Это также полезно для длинных ярлыков: их трудно подходить, не перекрываясь по оси X.
Я хотел бы предоставить альтернативное решение, надежное решение, похожее на то, что я собираюсь предложить, требовалось в последней версии GGENTER, с момента введения функции вращения холста.
По сути, вам необходимо определить относительные положения с использованием тригонометрии, создав функцию, которая возвращает 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)
Который производит следующее:
А 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()
Создан на 2018-11-06 Reprex Package (v0.2.1)
Найдено в поиске GitHub соответствующих имен аргументов: https://github.com/search?l=R&q=Element_text+Angle+90+Vjust+org%3Acran&type=code