добавление меток осей x и y в ggplot2

Как мне изменить метки x и y на этом графике, пожалуйста?

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

[Примечание: отредактировано для модернизации синтаксиса ggplot]

Ваш пример не воспроизводится, так как его нет ex1221new(есть ex1221in Sleuth2, поэтому я думаю, это то, что вы имели в виду). Кроме того, вам не нужно (и не следует) вытаскивать столбцы для отправки ggplot. Одним из преимуществ является то, что ggplotработает data.frameнапрямую с s.

Вы можете установить метки с помощью xlab()и ylab()или сделать его частью 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)")

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

Альтернативный способ указать только метки (удобно, если вы не меняете какие-либо другие аспекты весов) - использовать 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)")

что дает цифру, идентичную приведенной выше.