可以使用 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。