У меня есть график, где ось х является фактором, ярлыки которого длинны. Хотя, вероятно, это не идеальная визуализация, на данный момент я хочу просто повернуть эти метки вертикально. Я понял эту часть с кодом ниже, но, как вы можете видеть, метки не полностью видны.
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))
Я хотел бы предоставить альтернативное решение, надежное решение, аналогичное тому, что я собираюсь предложить, было необходимо в последней версии 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)
}
Честно говоря, я считаю, что в параметрах hjust
и vjust
параметр должен быть доступен в ggplot2
, когда указывается угол, давайте продемонстрируем, как это работает.
#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)
Что дает следующее:
rads = (-angle - positions[[ position ]])*pi/180
обеспечило лучшее размещение. Обратите внимание на дополнительный знак минус перед углом. Спасибо за код в любом случае :)
+ coord_flip()
.В "R для науки о данных" Уикхем и Гролеммунд говорят об этой точной проблеме. В главе 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()
И теперь супер-длинные заголовки располагаются горизонтально и очень легко читаются!
q + theme(axis.text.x=element_text(angle = -90, hjust = 0))
theme(axis.text.x=element_text(angle = 90, vjust = 0.5))
. Начиная с ggplot2 0.9.3.1 это кажется решением.