Поворотные и интервальные метки на оси ggplot2

r ggplot2 labels

485974 просмотра

5 ответа

У меня есть график, где ось х является фактором, ярлыки которого длинны. Хотя, вероятно, это не идеальная визуализация, на данный момент я хочу просто повернуть эти метки вертикально. Я понял эту часть с приведенным ниже кодом, но, как вы можете видеть, метки не полностью видны.

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

введите описание изображения здесь

Автор: Christopher DuBois Источник Размещён: 17.05.2019 03:52

Ответы (5)


825 плюса

Решение

Измените последнюю строку на

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

По умолчанию оси выровнены по центру текста, даже если они повернуты. Когда вы поворачиваете +/- 90 градусов, вы обычно хотите, чтобы он был выровнен по краю:

alt text

Изображение выше из этого сообщения в блоге .

Автор: Jonathan Chang Размещён: 25.08.2009 10:36

69 плюса

Чтобы текст на ярлыках ярлыков был полностью виден и читался в том же направлении, что и метка оси y, измените последнюю строку на

q + theme(axis.text.x=element_text(angle=90, hjust=1))
Автор: e3bo Размещён: 20.12.2010 04:24

51 плюса

использование 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()

введите описание изображения здесь

И теперь супер-длинные заголовки расположены горизонтально и очень легко читаются!

Автор: Rich Pauloo Размещён: 01.08.2017 02:29

20 плюса

Я хотел бы предоставить альтернативное решение, надежное решение, аналогичное тому, что я собираюсь предложить, было необходимо в последней версии ggtern , начиная с введения функции поворота холста.

В принципе, вам нужно определить относительные позиции с помощью тригонометрии, построив функцию, которая возвращает element_textобъект, заданный угол (то есть градусы) и позиционирование (то есть одну из х, у, верхнюю или правую) информацию.

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

Что дает следующее:

пример

Автор: Nicholas Hamilton Размещён: 02.05.2016 09:32

0 плюса

Пакет 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 (v0.2.1)

Автор: krlmlr Размещён: 06.11.2018 10:23
Вопросы из категории :
32x32