adicionar legendas dos eixos x e y no ggplot2

Como é que eu mudo as legendas X e y deste gráfico, por favor?

library(Sleuth2)
library(ggplot2)
discharge<-ex1221new$Discharge
area<-ex1221new$Area
nitrogen<-ex1221new$NO3
p <- ggplot(ex1221new, aes(discharge, area), main="Point")
p + geom_point(aes(size= nitrogen)) + 
    scale_area() + 
    opts(title = expression("Weighted Scatterplot of Watershed Area vs. Discharge and Nitrogen Levels (PPM)"), 
         subtitle="n=41")
Author: Sandy Muspratt, 2012-05-04

1 answers

[Nota: editado para modernizar a sintaxe do ggplot]

O teu exemplo não é reprodutível uma vez que não há ex1221new (Há um ex1221 em Sleuth2, por isso acho que foi isso que quiseste dizer). Além disso, você não precisa (e não deve) retirar colunas para enviar para ggplot. Uma vantagem é que ggplot trabalha directamente com data.frame s.

Você pode definir os rótulos com xlab() e ylab(), ou torná-lo parte da chamada scale_*.*.

library("Sleuth2")
library("ggplot2")
ggplot(ex1221, aes(Discharge, Area)) +
  geom_point(aes(size=NO3)) + 
  scale_size_area() + 
  xlab("My x label") +
  ylab("My y label") +
  ggtitle("Weighted Scatterplot of Watershed Area vs. Discharge and Nitrogen Levels (PPM)")

enter image description here

ggplot(ex1221, aes(Discharge, Area)) +
  geom_point(aes(size=NO3)) + 
  scale_size_area("Nitrogen") + 
  scale_x_continuous("My x label") +
  scale_y_continuous("My y label") +
  ggtitle("Weighted Scatterplot of Watershed Area vs. Discharge and Nitrogen Levels (PPM)")

enter image description here

Uma forma alternativa para indicar apenas as legendas (úteis se não estiver a alterar quaisquer outros aspectos das escalas) está a usar a função labs

ggplot(ex1221, aes(Discharge, Area)) +
  geom_point(aes(size=NO3)) + 
  scale_size_area() + 
  labs(size= "Nitrogen",
       x = "My x label",
       y = "My y label",
       title = "Weighted Scatterplot of Watershed Area vs. Discharge and Nitrogen Levels (PPM)")

Que dá uma figura idêntica à anterior.

 165
Author: Brian Diggs, 2013-11-14 23:33:21