ajout d'étiquettes d'axes x et y dans ggplot2

Comment changer les étiquettes x et y sur ce graphique s'il vous plaît?

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

[Remarque: modifié pour moderniser la syntaxe de ggplot]

Votre exemple n'est pas reproductible car il n'y a pas ex1221new(il y a un ex1221in Sleuth2, donc je suppose que c'est ce que vous vouliez dire). De plus, vous n'avez pas besoin (et ne devriez pas) d'extraire de colonnes pour les envoyer ggplot. Un avantage est que cela ggplotfonctionne data.framedirectement avec s.

Vous pouvez définir les libellés avec xlab()et ylab(), ou en faire partie de l' scale_*.*appel.

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

Une autre façon de spécifier uniquement les étiquettes (pratique si vous ne modifiez aucun autre aspect des échelles) consiste à utiliser la labsfonction

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

ce qui donne un chiffre identique à celui ci-dessus.