覆盖ggplot2中的默认颜色

my_palette <- function(n) {
  colors <- c("#FF0000", "#00FF00", "#0000FF", "#FFFF00", "#00FFFF", "#FF00FF", "#000000", "#FFFFFF")
  return(colors[1:n])
}

library(ggplot2)

# 创建数据集
data <- data.frame(
  x = c(1, 2, 3, 4, 5),
  y = c(10, 8, 6, 4, 2),
  group = c("A", "B", "C", "D", "E")
)

# 绘制散点图
ggplot(data, aes(x, y, color = group)) +
  geom_point(size = 3) +
  scale_color_manual(values = my_palette(length(unique(data$group))))