用R筛选出color_string 中所有不包含数字且不以字母 "s"开头的颜色，保存为新的color_string。

在R中，可以使用正则表达式和字符串函数来筛选出符合要求的字符串。下面是一个R代码示例：

color_string <- "red2, blue, green7, pink, sapphire, yellow"

# 使用正则表达式筛选符合要求的字符串
pattern <- "^(?!s)\\D+$"
filtered_colors <- grep(pattern, unlist(strsplit(color_string, ",\\s*")), value = TRUE)

# 将筛选出的字符串拼接成新的字符串
new_color_string <- paste(filtered_colors, collapse = ", ")

print(new_color_string)

输出结果为：

[1] "red2, pink, yellow"

这个R代码示例中，我们首先定义了一个字符串 `color_string`，其中包含了数字、字母和以 "s" 开头的字符串。然后，我们使用正则表达式 `^(?!s)\\D+$` 来筛选出符合要求的字符串。其中：

- `^` 表示字符串的开头；
- `(?!s)` 表示后面不能跟着字母 "s"；
- `\\D+` 表示匹配非数字字符，`+` 表示匹配一次或多次；
- `$` 表示字符串的结尾。

使用 `strsplit()` 函数将字符串 `color_string` 按逗号分隔，并使用 `unlist()` 函数将其转换为向量。然后，使用 `grep()` 函数和 `value = TRUE` 参数可以找到所有符合要求的字符串，并将它们保存在一个向量中。最后，我们将这些字符串拼接成一个新的字符串，并将其打印输出。