帮我写一个r语言的绘图程序，能够绘制成身高体重的散点图

好的，以下是一个简单的 R 语言代码，用于绘制身高体重的散点图：

# 创建一个包含身高和体重的数据框
data <- data.frame(height = c(170, 165, 180, 155, 185),
                   weight = c(70, 65, 80, 50, 90))

# 绘制散点图
plot(data$height, data$weight,
     xlab = "Height (cm)", ylab = "Weight (kg)",
     main = "Height vs. Weight Scatterplot",
     pch = 19, col = "blue")

在这个例子中，我们首先创建了一个包含身高和体重数据的数据框。然后使用 `plot()` 函数绘制散点图，其中 `data$height` 和 `data$weight` 分别表示身高和体重的变量。我们还可以使用 `xlab` 和 `ylab` 参数来标注坐标轴，`main` 参数来添加标题，`pch` 参数来更改散点的形状，`col` 参数来更改散点的颜色。