Kombinieren von geom_ribbon, wenn x ein Faktor ist

Question

Weiterleiten von question.

Ich kann den schattierten Bereich nicht erzeugen, wenn mein x ein Faktor ist. Hier einige Beispieldaten

time <- as.factor(c('A','B','C','D')) 
x <- c(1.00,1.03,1.03,1.06) 
x.upper <- c(0.91,0.92,0.95,0.90) 
x.lower <- c(1.11,1.13,1.17,1.13) 

df <- data.frame(time, x, x.upper, x.lower) 

ggplot(data = df,aes(time,x))+ 
    geom_ribbon(aes(x=time, ymax=x.upper, ymin=x.lower), fill="pink", alpha=.5) + 
    geom_point() 

wenn ich factor in die aes() ersetzen Ich kann immer noch nicht den schraffierten Bereich bekommen. Oder wenn ich das versuche:

ggplot()+ 
    geom_ribbon(data = df, aes(x=time, ymax=x.upper, ymin=x.lower), fill="pink", alpha=.5) + 
    geom_point(data = df, aes(time,x)) 

Ich kann immer noch nicht die Schattierung bekommen. Irgendwelche Ideen, wie man das schafft ...

Answer 1

Ich denke, Aosmith war genau richtig, Sie müssen einfach Ihre Faktor-Variable in numerische konvertieren. Ich denke, dass der folgende Code ist das, was Sie suchen:

ggplot(data = df,aes(as.numeric(time),x))+ 
    geom_ribbon(aes(x=as.numeric(time), ymax=x.upper, ymin=x.lower),  
    fill="pink", alpha=.5) + 
    geom_point() 

die in diesem Plot produziert:

EDIT EDIT: Etiketten ändern x-Achse von hinten auf die ursprünglichen Werte genommen @ Aosmith in den Kommentaren unten:

ggplot(data = df,aes(as.numeric(time),x))+ 
    geom_ribbon(aes(x=as.numeric(time), ymax=x.upper, ymin=x.lower),  
    fill="pink", alpha=.5) + 
    geom_point() + labs(title="My ribbon plot",x="Time",y="Value") + 
    scale_x_continuous(breaks = 1:4, labels = levels(df$time))