如何移除灰色的透明度并保留灰色本身？现有方法失效问题

我最近了解到一种移除颜色透明度但保留颜色本身的方法：

library(scales)

# 针对彩色的处理方法
show_col("green")

# 创建浅透明绿色
alpha("green",0.3) -> transparent_green

# 保留浅绿色并移除透明度
ch <- rgb2hsv(col2rgb(transparent_green))
nontransparent_green <- hsv(h=ch["h",], v=ch["v",], s=0.3)

# 对比绿色效果
show_col(c(transparent_green,nontransparent_green))

创建于2022-11-26，使用reprex v2.0.2

但该方法对灰色并不适用：

library(scales)

# 针对灰色的处理尝试
show_col("grey10")

# 创建浅透明灰色
alpha("grey10",0.3) -> transparent_grey

# 尝试保留浅灰色并移除透明度
ch <- rgb2hsv(col2rgb(transparent_grey))
nontransparent_grey <- hsv(h=ch["h",], v=ch["v",], s=0.3)

# 对比灰色效果
show_col(c(transparent_grey,nontransparent_grey))

创建于2022-11-26，使用reprex v2.0.2

内容的提问来源于stack exchange，提问作者ava