我创建数据框:
crime <- c("Zakłócanie porządku", "Przemoc", "Przestępstwa narkotykowe", "Przestępstwa przeciw mieniu", "Inne przestępstwa")
percentage <- c(62.2, 61.7, 66.7, 73.8, 64.7)
df.prison2 <- data.frame(crime, percentage)
colnames(df.prison2) <- c("Rodzaj przestępstwa", "Odsetek recydywistów (w %)")
我得到情节:
plot.prison <- ggplot(data=df.prison2, aes(x=crime, y=percentage)) +
geom_bar(stat="identity") +
xlab("") +
ylab(colnames(df.prison2)[2]) +
coord_flip() +
ggtitle("Przestępstwa popełniane przez recydywistów")
酒吧是以alfabetically订购的,但我希望按百分比排序。所以我订购了数据框:
df.prison2 <- transform(df.prison2, crime = reorder(crime, percentage))
现在情节看起来不错,条形图已订购,但一个轴的名称已更改。 ("Odsetek recydywistów (w %)"
- &gt; "Odsetek.recydywistów..w..."
。我不知道原因是什么。我会对任何建议表示感谢。
答案 0 :(得分:1)
只需在原始情节aes()
中重新排序:
plot.prison <- ggplot(data=df.prison2, aes(x=reorder(crime, percentage), y=percentage)) +
geom_bar(stat="identity") +
xlab("") +
ylab(colnames(df.prison2)[2]) +
coord_flip() +
ggtitle("Przestępstwa popełniane przez recydywistów")