Как я могу скрыть часть легенды с помощью ggplot2?

Я создаю график, используя приведенный ниже код, и хотел бы скрыть легенду "mag" (размер), но по-прежнему сохранять легенду "глубина" (цвет).

ggplot(quakes, aes(long, lat, size=mag, colour=depth)) + geom_point()