通过匹配字符向量中值的位置索引来替换整数向量的值答案

【问题标题】：Replace values of integer vector by matching to position index of values in character vector通过匹配字符向量中值的位置索引来替换整数向量的值
【发布时间】：2013-11-06 19:44:30
【问题描述】：

我知道这很简单，但我无法解决或通过搜索找到解决方案。

我有一个整数矩阵，其整数值来自1:n（通过将一些因子转换为索引创建）。我想将这些值与n 颜色的向量相匹配，以十六进制字符串值给出（使用scales 包生成）。

Y <- sample(1:7, 20, replace=TRUE)  # for example
classcols <- c("#F8766D", "#C49A00", "#53B400", "#00C094", "#00B6EB", "#A58AFF", 
"#FB61D7")
# manually replace:
Y[Y==1] <- classcols[1]

我的吸收速度有点慢，除了如上所述手动之外，我无法弄清楚如何做到这一点。原因可能表明我是多么愚蠢：

plot(X, col=Y)  # X has same shape as Y. I want to control the colours a bit more.

【问题讨论】：

标签： r

【解决方案1】：

听起来好像你只是想这样做：

classcols[Y]
#  [1] "#C49A00" "#53B400" "#00B6EB" "#FB61D7" "#C49A00" "#FB61D7" "#FB61D7" "#00B6EB"
#  [9] "#00B6EB" "#F8766D" "#C49A00" "#C49A00" "#00B6EB" "#53B400" "#A58AFF" "#00C094"
# [17] "#A58AFF" "#FB61D7" "#53B400" "#A58AFF"

在这里，我刚刚使用“Y”的值来索引“classcols”中的值。当然，您可以根据需要将输出重新分配给另一个向量以供使用。

【讨论】：

这比我想象的还要简单。
为了从这一集中挽救一些声誉，以下是我如何计算出如何在输出中“添加”一个 alpha 值：paste(classcols[Y], "50", sep="")。