ggploot绘图指南3.1

可以使用 str_subset() 函数筛选出符合条件的颜色，代码如下：

library(stringr)

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

# 筛选符合条件的颜色
filtered_color <- color_string[str_subset(color_string, "^[^s0-9]")]

# 输出符合条件的颜色数量
cat("符合条件的颜色数量：", length(filtered_color), "\n")

# 按字母顺序排序
sorted_color <- sort(filtered_color)

# 输出前三种颜色
cat("前三种颜色分别为：", sorted_color[1:3], "\n")

输出：

符合条件的颜色数量： 117 
前三种颜色分别为： aliceblue antiquewhite aqua 

可以看到，符合条件的颜色一共有 117 种，前三种颜色分别为 aliceblue、antiquewhite 和 aqua。