Erneutes Umsetzen von data.frame vor dem Plotten verbieten

Question

Wenn ich die folgende Zeichnung habe, wie kann ich das Umordnen von Daten vor dem Plotten verbieten? Ich möchte die gleiche Reihenfolge der Daten im Diagramm beibehalten wie im Datenrahmen, den ich zu zeichnen versuche. Jede Hilfe ist sehr geschätzt

df <- data.frame(derma=c(1:14), prevalence=c(1:14)) 

df$derma = c("Spotted melanosis","Diffuse melanosis on palm","Spotted melanosis on trunk","Diffuse melanosis on trunk","Leuco melanosis","Whole body melanosis","Spotted keratosis on palm","Diffuse keratosis on palm","Spotted keratosis on sole","Diffuse keratosis on sole","Dorsal keratosis","Chronic bronchitis","Liver enlargement","Carcinoma") 
df$prevalence = c(16.2,78.6,57.3,20.6,17,8.4,35.4,23.5,66,52.8,39,6,2.4,1) 

g <- ggplot(data=df, aes(x=derma, y=prevalence)) + geom_bar(stat="identity") + coord_flip() 

print(g) 

Answer 1

Wie in den Kommentaren erwähnt, können Sie dies tun, indem der Bestellung der Faktor variabel. Unten ist der Code Beispiel:

df <- data.frame(derma=c(1:14), prevalence=c(1:14)) 

df$derma = c("Spotted melanosis","Diffuse melanosis on palm","Spotted melanosis on trunk","Diffuse melanosis on trunk","Leuco melanosis","Whole body melanosis","Spotted keratosis on palm","Diffuse keratosis on palm","Spotted keratosis on sole","Diffuse keratosis on sole","Dorsal keratosis","Chronic bronchitis","Liver enlargement","Carcinoma") 
df$prevalence = c(16.2,78.6,57.3,20.6,17,8.4,35.4,23.5,66,52.8,39,6,2.4,1) 
df$derma <- factor(df$derma, levels = df$derma, ordered=TRUE) 

g <- ggplot(data=df, aes(x=derma, y=prevalence)) + geom_bar(stat="identity") + coord_flip() 

print(g) 

Sie können mit den Etiketten herumzuspielen und es den Auftrag geben, dass Sie in Ihrem Grundstück möchten. Beispielsweise können Sie die Elemente im Diagramm umkehren, indem Sie einfach die Funktion rev() verwenden. Unten ist der Code für das gleiche:

df <- data.frame(derma=c(1:14), prevalence=c(1:14)) 

df$derma = c("Spotted melanosis","Diffuse melanosis on palm","Spotted melanosis on trunk","Diffuse melanosis on trunk","Leuco melanosis","Whole body melanosis","Spotted keratosis on palm","Diffuse keratosis on palm","Spotted keratosis on sole","Diffuse keratosis on sole","Dorsal keratosis","Chronic bronchitis","Liver enlargement","Carcinoma") 
df$prevalence = c(16.2,78.6,57.3,20.6,17,8.4,35.4,23.5,66,52.8,39,6,2.4,1) 
df$derma <- factor(df$derma, levels = rev(df$derma), ordered=TRUE) 

g <- ggplot(data=df, aes(x=derma, y=prevalence)) + geom_bar(stat="identity") + coord_flip() 

print(g)