[หมายเหตุ: แก้ไขเพื่อทำให้ไวยากรณ์ 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)")
ซึ่งให้ตัวเลขที่เหมือนกันกับด้านบน