Como reordenar os itens de uma legenda?

Estou tentando alterar a ordem em que os itens da legenda aparecem. Passei cerca de uma hora nisso, sem resultados.

Aqui está um exemplo de configuração:

library(ggplot2)
set.seed(0)
d <- data.frame(x = runif(3), y = runif(3), a = c('1', '3', '10'))

E aqui está uma das muitas coisas que tentei:

ggplot(d, aes(x = x, y = y)) + 
    geom_point(size=7, aes(color = a, order = as.numeric(a)))

(Minha ingênua esperança, é claro, era que os itens das legendas fossem mostrados na ordem numérica: 1, 3, 10.)

questionAnswers(2)

yourAnswerToTheQuestion