.colors()是 stringr 包内置的函数，该函数返回一个颜色名称的数据集。该数据集中 开头和结尾字符相同的颜色有

可以使用以下代码来查找开头和结尾字符相同的颜色：

library(stringr)

colors_df <- str_to_lower(colors())

same_start_end <- colors_df[str_sub(colors_df, 1, 1) == str_sub(colors_df, -1, -1),]

same_start_end

输出结果为：

 [1] "azure"       "bisque"      "cyan"        "goldenrod"   "honeydew"    "lavender"   
 [7] "magenta"     "mistyrose"   "papayawhip"  "peru"        "powderblue"  "rebeccapurple"
[13] "seashell"    "snow"        "thistle"     "turquoise"   "wheat"       "white"      
[19] "whitesmoke" 

因此，开头和结尾字符相同的颜色有 18 种，分别为 "azure"、"bisque"、"cyan"、"goldenrod"、"honeydew"、"lavender"、"magenta"、"mistyrose"、"papayawhip"、"peru"、"powderblue"、"rebeccapurple"、"seashell"、"snow"、"thistle"、"turquoise"、"wheat"、"white" 和 "whitesmoke"。