不用ggplot绘制箱线图，如何使用scale_color_manual() 函数的默认色板？

`scale_color_manual()` 函数是 ggplot2 包中的函数，用于手动设置离散颜色变量的颜色映射。如果不使用 ggplot2 绘制箱线图，您仍然可以使用 `scale_color_manual()` 函数的默认色板。

下面是一个使用 `scale_color_manual()` 函数绘制箱线图的示例代码：

library(ggplot2)

# 创建一个数据框
df <- data.frame(group = rep(c("A", "B"), each = 20),
                 value = rnorm(40))

# 计算每个组的中位数和四分位数
summary_df <- aggregate(value ~ group, df, function(x) c(median = median(x), quantile(x, c(0.25, 0.75))))

# 绘制箱线图
boxplot(value ~ group, data = df, col = "grey",
        border = "black", ylim = c(min(df$value) - 1, max(df$value) + 1))

# 添加每个组的中位数和四分位数
points(summary_df$value[1,], col = "red", pch = 16)
points(summary_df$value[2,], col = "blue", pch = 16)

# 使用默认色板设置每个组的颜色
scale_color_manual(values = gg_color_hue()(2))

在上面的代码中，我们首先创建一个数据框 `df`，其中包含两个组（A 和 B）的随机数值。然后，我们使用 `aggregate()` 函数计算每个组的中位数和四分位数，并使用 `boxplot()` 函数绘制箱线图。接下来，我们使用 `points()` 函数添加每个组的中位数和四分位数，并使用 `scale_color_manual()` 函数将每个组的颜色设置为默认色板中的两个颜色。

注意，由于我们不使用 ggplot2 包绘图，因此不能将 `scale_color_manual()` 函数直接应用于绘图对象。相反，我们需要在绘图之外手动设置每个组的颜色。