我们可以简单地使用base R

genes$Sig <-  c("NO", "YES")[(seq_len(nrow(genes)) %in% sig) + 1]

或使用ifelse

genes$Sig <- ifelse(seq_len(nrow(genes)) %in% sig, "YES", "NO")

或者创建一个列，列值为"NO"，然后根据索引分配"YES

genes$Sig <- "NO"
genes$Sig[sig] <- "YES"

我不确定您的 Dataframe 中是否有rownames。我们可以在dplyr中使用row_number()函数来检查sig中是否存在该行，并相应地分配值

library(dplyr)
genes %>%
    mutate(Sig = ifelse(row_number() %in% sig, "YES", "NO"))

试试这样的方法：

library(dplyr)
genes <- genes %>%
    mutate(Sig = case_when(as.numeric(row.names(.)) %in% sig ~ "YES", TRUE ~ "NO"))

我这样用它，它对我很有效。

SAC_FULL_MERGE <- SAC_FULL_MERGE %>% 
     mutate(Country = 
     case_when(as.numeric(row.names(.)) <= 135159 ~ "US", 
               as.numeric(row.names(.)) > 135159 ~ "CAN")) %>% 
     as.data.frame()