[Примітка: відредаговано для модернізації синтаксису ggplot]
Ваш приклад не відтворюється, оскільки його немає ex1221new(є ex1221в Sleuth2, тому я гадаю, що це ви мали на увазі). Крім того, вам не потрібно (і не слід) витягувати стовпці, щоб надсилати ggplot. Однією з переваг є те, що ggplotпрацює з data.frames безпосередньо.
Ви можете встановити мітки за допомогою 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)")
що дає ідентичну фігуру вищевказаній.