aggiungendo le etichette degli assi xey in ggplot2

Come posso cambiare le etichette xey su questo grafico, per favore?

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")

[Nota: modificato per modernizzare la sintassi di ggplot]

Il tuo esempio non è riproducibile poiché non c'è ex1221new(c'è un ex1221in Sleuth2, quindi immagino che sia quello che intendevi). Inoltre, non è necessario (e non dovresti) estrarre le colonne a cui inviare ggplot. Un vantaggio è che ggplotfunziona data.framedirettamente con s.

È possibile impostare le etichette con xlab()e ylab()o renderle parte della scale_*.*chiamata.

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)")

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)")

Un modo alternativo per specificare solo le etichette (utile se non si stanno modificando altri aspetti delle scale) è usare la labsfunzione

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)")

che dà una cifra identica a quella sopra.