使用有条件地从其他向量生成的值生成矢量

Question

说我有两个向量。

a <- c(1,5) 
b <- c(2,3,4,6) 

我想创建从该两个矢量的矢量，使得在新向量位置“a”为红色和“b”是蓝色的，导致

c <- c('red','blue','blue','blue','red','blue') 

我认为可能是使用代表将有所帮助，但例如某种基于a和b的代表中的ifelse？

Answer 1

如何

cols <- rep(NA,length(a)+length(b)) 
cols[a] <- "red" 
cols[b] <- "blue" 

cols 
# [1] "red" "blue" "blue" "blue" "red" "blue" 

Answer 2

这里是stack一个选项。获取在list的vector对象与mget，stack创建data.frame，transform的“IND”列factor与labels为“红”，“蓝”，得到order后的“IND”荷兰国际集团的“价值”。

d1 <- transform(stack(mget(c('a', 'b'))), ind = factor(ind, labels = c('red', 'blue'))) 
as.character(d1$ind[order(d1$values)]) 
#[1] "red" "blue" "blue" "blue" "red" "blue" 

作为@Frank所述，用这种方法，2层以上的载体可sort编出

Answer 3

也许更通用的解决方案相比@MattTyers整齐之一：

cols <- sort(c(a,b)) 
cols[cols %in% a] <- "red" 
cols[cols %in% b] <- "blue" 
cols 
# [1] "red" "blue" "blue" "blue" "red" "blue"