在R中，我希望在for循环中使用ggplop绘制数据帧的所有列(但最后一列)与其最后一列的关系。它不能工作

# 安装和加载ggplot2包
install.packages("ggplot2")
library(ggplot2)

# 创建一个示例数据帧
df <- data.frame(x = 1:10, y = 2:11, z = 3:12)

# 获取数据帧的列数
num_cols <- ncol(df)

# 创建一个空的ggplot对象
p <- ggplot()

# 使用for循环遍历数据帧的所有列（除了最后一列）
for (i in 1:(num_cols - 1)) {
  # 获取当前列的名称
  col_name <- colnames(df)[i]
  
  # 添加当前列与最后一列的关系到ggplot对象
  p <- p + geom_point(data = df, aes_string(x = col_name, y = colnames(df)[num_cols]))
}

# 显示绘图结果
print(p)