ggplot visualizzazione dell'espressione nell'asse x

Question

Di seguito, ho il codice R che traccia un grafico a barre raggruppato.

group_name = c('A_1x', 'A_1x', 'A_2x', 'A_2x', 'A_3x', 'A_3x', 'A_4x', 'A_4x') 

mydata2 <- data.frame(mygroup = group_name, 
         mysubgroup = factor(c("Yes", "No"), 
              levels = c("Yes", "No")), 
         value = c(60,40,90,10,55,45,88,12)) 


ggplot(mydata2, aes(mygroup, value, fill = mysubgroup)) + 
    geom_bar(position = "dodge", width = 0.5, stat = "identity")+ 
    coord_flip() 

Attualmente, la trama si presenta come di seguito. Tuttavia, voglio mostrare le espressioni sull'asse x come mostrato nell'immagine sottostante.

Ho provato questo:

group_name = c(expression(A[1*x]),expression(A[1*x]), 
       expression(A[2*x]),expression(A[2*x]), 
       expression(A[3*x]),expression(A[3*x]), 
       expression(A[4*x]),expression(A[4*x])) 

ma dà il seguente errore:

Error in as.data.frame.default(x[[i]], optional = TRUE) : 
    cannot coerce class ""expression"" to a data.frame 

come risolvere il problema?

Answer 1

Ecco un esempio di lavoro: ho modificato lo group_name in 4 elementi anziché 8 e li ho aggiunti manualmente nell'espressione ggplot. Il problema era che il tipo di espressione non può essere un nome di colonna per un data.frame. Questo sfugge a quel problema.

library(ggplot2) 
group_name = c('A_1x', 'A_1x', 'A_2x', 'A_2x', 'A_3x', 'A_3x', 'A_4x', 'A_4x') 
mydata2 <- data.frame(mygroup = group_name, 
         mysubgroup = factor(c("Yes", "No"), 
              levels = c("Yes", "No")), 
         value = c(60,40,90,10,55,45,88,12)) 

group_name = c(expression(A[1*x]), 
       expression(A[2*x]), 
       expression(A[3*x]), 
       expression(A[4*x])) 

ggplot(mydata2, aes(mygroup, value, fill = mysubgroup)) + 
    geom_bar(position = "dodge", width = 0.5, stat = "identity")+ 
    coord_flip() + 
    scale_x_discrete(labels=group_name) # Adding the labels here 

Answer 2

labels può essere una funzione,

group_name = sprintf("A[%i*x]", rep(1:4,each=2)) 

# alternatively, use gsub with your original vector 
# group_name = c('A_1x', 'A_1x', 'A_2x', 'A_2x', 'A_3x', 'A_3x', 'A_4x', 'A_4x') 
# gsub("A_([0-9])x","A[\\1*x]", group_name) 

mydata2 <- data.frame(mygroup = group_name, 
         mysubgroup = factor(c("Yes", "No"), 
              levels = c("Yes", "No")), 
         value = c(60,40,90,10,55,45,88,12)) 


ggplot(mydata2, aes(mygroup, value, fill = mysubgroup)) + 
    geom_bar(position = "dodge", width = 0.5, stat = "identity")+ 
    coord_flip() + scale_x_discrete(labels = function(l) parse(text=l))