Как изменить порядок баров в барплоте?

Question

Мне нужно изменить порядок баров в моем барплоте. По умолчанию алфавитный, который я не хочу. Мне нужно, чтобы были «Начальная школа», «Средняя школа», «Средняя школа».

colors <- c("cornflowerblue","mediumpurple1","coral2",  "azure4")
colorsleg <-c("cornflowerblue","mediumpurple1","coral2",  "azure4")
mytable <- table(century$race, century$type)
mytable2 <- prop.table(mytable, 2) #changes counts to percentages#
M <- c(
"Elementary 
School",
"High 
 School",
"Middle 
   School")

par(mar=c(5, 6, 4.1, 2.1)) #THIS CHANGES THE GRAPHS MARGINS TO MAKE
#ROOM FOR LONG Y LABELS. default margin sizes are mar=c(5.1, 4.1, 4.1, 2.1) 
#

barplot(mytable2, 
col=colors, 
border = NA, 
ylim = range(0,3),
xlim = range(0,1), 

    # #THIS GETS RID OF Y AXIS LINE#
    family="Arial", 
    horiz = T, names.arg= M,
    las=1)`
`
I need the order to Elementary School, Middle School, High School.

Answer 1

Перед шагом table, если мы изменим столбец 'type' на factor с levels, указанными в качестве значений в 'M'

century$type <- factor(century$type, levels = M)

где,

M <- c("Elementary School", "Middle School", "High School")

, а затем выполните table и prop.table шаг

mytable <- table(century$race, century$type)
mytable2 <- prop.table(mytable, 2)

и нанесите график на график

par(mar=c(5.5, 8.5, 5.1, 2.1))
barplot(mytable2, 
 col=colors, 
 border = NA, 
 ylim = range(0,3),
 xlim = range(0,1), 


     family="Arial", 
     horiz = TRUE, names.arg= M,
     las=1)

данные

century <- structure(list(race = structure(c(2L, 2L, 2L, 2L, 2L, 1L, 1L, 
 1L, 1L, 1L), .Label = c("F", "M"), class = "factor"), type = structure(c(3L, 
 2L, 3L, 3L, 3L, 1L, 2L, 3L, 1L, 2L), .Label = c("Elementary School", 
 "High School", "Middle School"), class = "factor")),
  class = "data.frame", row.names = c(NA, -10L))