データフレームに表示される降順でデータをプロット

Question

私はggplot2の棒グラフとして単純なデータフレームを注文しプロットすることに挑戦してきました。

対応するカテゴリ（ '人間'、 '男性'など）の値（ 'count'変数）が高い値から低い値にプロットされるように、データを表示する必要があります。私はこのサイトの他のスレッドに似た質問をしてきましたが、これを動作させることはできません！

## 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)) 

私は十分な「評判」がないので、出力を投稿できないようですか？

Answer 1

あなたはreorder()が必要です。

を使用reorder(Category, Count)Categoryが低高から注文しました：ここでは、ダミーデータ与える

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)) 

との一例です。