我如何在R中表示两个定量变量，并根据分类变量对图进行着色？

# 创建示例数据
x <- c(1, 2, 3, 4, 5)
y <- c(2, 4, 6, 8, 10)
category <- c("A", "B", "A", "B", "A")
data <- data.frame(x, y, category)

# 创建散点图
plot(x, y, xlab = "Variable X", ylab = "Variable Y", main = "Scatter Plot")

# 添加颜色
colors <- ifelse(data$category == "A", "blue", "red")
points(x, y, col = colors)

# 添加图例
legend("topright", legend = c("Category A", "Category B"), col = c("blue", "red"), pch = 1)