Изменить порядок дискретной шкалы х

Question

Я делаю точечную гистограмму, используя ggplot с дискретной шкалой x, ось x теперь расположена в алфавитном порядке, но мне нужно изменить ее так, чтобы она упорядочивалась по значению оси y (т. Е.самый высокий столбец будет расположен слева).

Я пробовал упорядочивать или сортировать, но в результате получаю сортировку по оси X, но не столбцы соответственно.

Что я сделал не так?

Answer 1

Лучшим способом для меня было использование вектора с категориями, чтобы мне нужно было указать limits в качестве параметра scale_x_discrete. Я думаю, что это довольно простое и понятное решение.

ggplot(mtcars, aes(factor(cyl))) + 
  geom_bar() + 
  scale_x_discrete(limits=c(8,4,6))

Answer 2

Попробуйте вручную установить уровни коэффициента по оси X.Например:

library(ggplot2)
# Automatic levels
ggplot(mtcars, aes(factor(cyl))) + geom_bar()    

# Manual levels
cyl_table <- table(mtcars$cyl)
cyl_levels <- names(cyl_table)[order(cyl_table)]
mtcars$cyl2 <- factor(mtcars$cyl, levels = cyl_levels)
# Just to be clear, the above line is no different than:
# mtcars$cyl2 <- factor(mtcars$cyl, levels = c("6","4","8"))
# You can manually set the levels in whatever order you please. 
ggplot(mtcars, aes(cyl2)) + geom_bar()

Как указал Джеймс в своем ответе, reorderидиоматический способ переупорядочения уровней факторов.

mtcars$cyl3 <- with(mtcars, reorder(cyl, cyl, function(x) -length(x)))
ggplot(mtcars, aes(cyl3)) + geom_bar()

Answer 3

Вы можете использовать reorder:

qplot(reorder(factor(cyl),factor(cyl),length),data=mtcars,geom="bar")

Edit:

Чтобы иметь самый высокий бар слева, вы должны использовать немного клуджа:

qplot(reorder(factor(cyl),factor(cyl),function(x) length(x)*-1),
   data=mtcars,geom="bar")

Я бы ожидал, что это также будет иметь отрицательную высоту, но это не так, поэтому работает!

Answer 4

Хэдли разрабатывает пакет под названием forcats.Этот пакет делает задачу намного проще.Вы можете использовать fct_infreq(), если хотите изменить порядок оси X на частоту фактора.В случае примера mtcars в этом посте вы хотите изменить порядок уровней cyl по частоте каждого уровня.Уровень, который появляется чаще всего, остается слева.Все, что вам нужно, это fct_infreq().

library(ggplot2)
library(forcats)

ggplot(mtcars, aes(fct_infreq(factor(cyl)))) +
geom_bar() +
labs(x = "cyl")

Если вы хотите пойти другим путем, вы можете использовать fct_rev() вместе с fct_infreq().

ggplot(mtcars, aes(fct_rev(fct_infreq(factor(cyl))))) +
geom_bar() +
labs(x = "cyl") 

Answer 5

Я понимаю, что это старая, но, может быть, эта функция, которую я создал, будет полезна кому-то там:

order_axis<-function(data, axis, column)
{
  # for interactivity with ggplot2
  arguments <- as.list(match.call())
  col <- eval(arguments$column, data)
  ax <- eval(arguments$axis, data)

  # evaluated factors
  a<-reorder(with(data, ax), 
             with(data, col))

  #new_data
  df<-cbind.data.frame(data)
  # define new var
  within(df, 
         do.call("<-",list(paste0(as.character(arguments$axis),"_o"), a)))
}

Теперь с помощью этой функции вы можете в интерактивном режиме построить график с помощью ggplot2, например:

ggplot(order_axis(df, AXIS_X, COLUMN_Y), 
       aes(x = AXIS_X_o, y = COLUMN_Y)) +
        geom_bar(stat = "identity")

Как видно, функция order_axis создает другой фрейм данных с новым столбцом с таким же именем, но с _o в конце. Этот новый столбец имеет уровни в порядке возрастания, поэтому ggplot2 автоматически строит графики в этом порядке.

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