ggplot详细代码汇总3.1-4

运行下列代码，基于 stringr:: colors() 生成了字符串 color_string
set.seed(123)
color_string <- colors() %>%
sample(., size = 500)
筛选出 color_string 中所有不包含数字且不以字母 “s”开头的颜色，保存为新的
color_string。
有多少种满足条件的颜色？
对新生成的 color_string 按照字母顺序排序，前三种颜色分别是什么。

要执行这些操作，您将需要加载"stringr"和"dplyr"这两个包。对于筛选并排序新生成的color_string，您可以使用以下R代码：

# 加载需要的包
library(stringr)
library(dplyr)

# 生成颜色字符串
set.seed(123)
color_string <- stringr::colors() %>%
  sample(., size = 500)

# 筛选不含数字且不以字母"s"开头的颜色
filtered_colors <- color_string[stringr::str_detect(color_string, "^[^s][^0-9]*$")]

# 计算满足条件的颜色的数量
num_colors <- length(filtered_colors)

# 对筛选后的颜色进行排序，提取前三种颜色
sorted_colors <- sort(filtered_colors)
top_three_colors <- sorted_colors[1:3]

# 输出结果
print(paste("满足条件的颜色数量是:", num_colors))
print("前三种颜色分别是:")
print(top_three_colors)