Just do the reordering in the original plot's 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")