将字符串转换为颜色十六进制代码

Question

是否有将字符串转换为颜色十六进制代码的函数？

例如：

  

“foo” - ＆gt; “＃F123FA”

将4位数字转换为十六进制代码也完全没问题，但问题是我的数字非常相似。

有人知道一个好的解决方案吗？

Answer 1

使用此sha1提示找到了我自己的解决方案：

library(digest)
a <- 'test'
print(a)
a <- sapply(a, digest, algo = "sha1")
hex <- paste0('#', substr(a, 0, 6))
print(hex)