una - personalizar ejes en r

Cómo cambiar el orden de las etiquetas de facetas en ggplot(etiquetas de ajuste de facetas personalizadas)

Question

Hola, tracé una trama faceta usando ggplot en R y aquí está la trama

El problema que tengo es que las facetas (etiquetas) se ordenan alfabéticamente (Ej: E1, E10, E11, E13, E2, E3, I1, I10, I2) pero necesito que sean un pedido personalizado como E1, I1, E2 , I2, E3, E10, I10, E11, E13.

Cómo puedo hacer eso ?

Answer 1

No confíe en el orden predeterminado de los niveles impuestos por factor() o internamente por ggplot si la variable de agrupación que suministra no es un factor. Establezca los niveles explícitamente usted mismo.

dat <- data.frame(x = runif(100), y = runif(100),
Group = gl(5, 20, labels = LETTERS[1:5]))
head(dat)
with(dat, levels(Group))

¿Qué pasa si los quiero en este orden arbitrario?

set.seed(1)
with(dat, sample(levels(Group)))

Para hacer esto, configure los niveles de la manera que desee.

set.seed(1) # reset the seed so I get the random order form above
dat <- within(dat, Group <- factor(Group, levels = sample(levels(Group))))
with(dat, levels(Group))

Ahora podemos usar esto para tener los paneles dibujados en el orden que queremos:

require(ggplot2)
p <- ggplot(dat, aes(x = x)) + geom_bar()
p + facet_wrap( ~ Group)

Que produce:

Answer 2

Solo estoy trabajando en un problema similar. Tengo niveles que se ven así por defecto:

 [1] "A1" "A10" "A2" "A3" "A4" "A5" "A6" "A7" "A8" "A9"
[11] "B1" "B2" "B3" "B4" "B5" "B6" "B7" "B8" "B9"

Tenga en cuenta que el segundo nivel está fuera de lugar debido al orden alfabético.

Esto es lo que estoy haciendo para arreglar el orden:

reorder(factor(fct),
fct %>%
str_replace("([[:alpha:]]+)", "//1|") %>%
str_split("//|") %>%
sapply(function(d) sprintf("%s%02d", d[1], as.integer(d[2]))),
function(x) x[1])

Reemplaza los niveles como "A1" por "A01" y luego los reordena según estos. Estoy seguro de que podrías hacer esto mucho más eficientemente, pero hace el trabajo.

Se podría adaptar para abordar el problema original.