set.seed(123) color_string <- colors() %>% sample(., size = 500)

这行代码使用了 `set.seed()` 函数来设定随机数种子，以确保随机结果可重复。然后，使用 `colors()` 函数返回所有内置颜色的名称，随机取出其中的 500 个颜色，保存在 `color_string` 变量中。这样做是为了生成一个包含大量颜色的字符串向量，方便我们进行条件筛选和排序等操作。