プロットする前にdata.frameのシャッフルを禁止する

Question

次のプロットがある場合、プロットする前にデータの再シャッフルを禁止するにはどうすればよいですか？私はプロットしようとしているデータフレームと同じように、プロット内のデータの順序を維持したいと思います。コメントで述べたようにすべてのヘルプは非常に

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

を高く評価している、あなたは、因子変数を注文することによってこれを行うことができます。以下のサンプルコードです：

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) 

あなたがラベルで遊んで、それにあなたのプロットにしたいという順序を与えることができます。たとえば、単にrev()関数を使用してプロット内の要素を反転することができます。以下は同じコードです：

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)