Je me suis battu pour commander et tracer un graphique simple sous forme de graphique à barres dans ggplot2.
Je souhaite tracer les données telles qu'elles apparaissent, de sorte que les valeurs (variable 'nombre') des catégories correspondantes (par exemple, 'homme', 'homme') soient tracées de haut en bas.
J'ai suivi d'autres discussions sur ce site en posant des questions similaires, mais cela ne fonctionne pas!
## Dataset (mesh2)
#Category Count
#Humans 62
#Male 40
#Female 38
#Adult 37
#Middle Aged 30
#Liver/anatomy & histology 29
#Organ Size 29
#Adolescent 28
#Child 21
#Liver/radiography* 20
#Liver Transplantation* 20
#Tomography, X-Ray Computed 20
#Body Weight 18
#Child, Preschool 18
#Living Donors* 18
#Infant 16
#Aged 14
#Body Surface Area 14
#Regression Analysis 11
#Hepatectomy 10
## read in data (mesh2) as object (mesh2)
mesh2 <- read.csv("mesh2.csv", header = T)
## order data by count of mesh variable
mesh2$cat2 <- order(mesh2$Category, mesh2$Count, decreasing=TRUE)
## Barplot created in ggplot2
library(ggplot2)
mesh2p <- ggplot(mesh2, aes(x=cat2, y=Count)) + geom_bar (stat="identity") + scale_x_continuous(breaks=c(1:20), labels=c("Humans", "Male", "Female", "Adult", "MAged", "Liver anat & hist", "Organ Size", "Adolescent", "Child", "Liver radiog", "Liver Transplnt", "Tomog X-Ray Computed", "Body Weight", "Child Preschool", "Living Donors", "Infant", "Aged", "BSA", "Regression Analysis", "Hepatectomy"))+ theme (axis.text.x=element_text(angle=45, hjust=1))
Vous voulez reorder()
. Voici un exemple avec des données factices
set.seed(42)
df <- data.frame(Category = sample(LETTERS), Count = rpois(26, 6))
require("ggplot2")
p1 <- ggplot(df, aes(x = Category, y = Count)) +
geom_bar(stat = "identity")
p2 <- ggplot(df, aes(x = reorder(Category, -Count), y = Count)) +
geom_bar(stat = "identity")
require("gridExtra")
grid.arrange(arrangeGrob(p1, p2))
Donnant:
Utilisez reorder(Category, Count)
pour avoir Category
commandé de bas en haut.