如何向R中的字符向量添加包含等號的新元素

我有一個包含基因及其相關顏色的字符向量:

gene_colors<-c("protein_coding"="#1F78B4", "lncRNA"="#de08a0") 

我正在嘗試查看另一個基因列表,并添加一個隨機顏色的基因,如果它還沒有在載體中:

library(tidyverse)
library(randomcoloR)

for(gene in other_genes){ 
  if(!(gene %in% names(gene_colors))){
    temp<-paste0(gene, '=', randomColor(1))
  }
}

這是other_genes中的內容:

 [1] "IG_C_gene"                          "IG_C_pseudogene"                   
 [3] "IG_J_gene"                          "IG_V_gene"                         
 [5] "IG_V_pseudogene"                    "lncRNA"                            
 [7] "miRNA"                              "misc_RNA"                          
 [9] "Mt_rRNA"                            "polymorphic_pseudogene"            
[11] "processed_pseudogene"               "protein_coding"                    

正如您所看到的,我嘗試使用paste0(),之前我嘗試使用str_c(),但這兩種方法都給了我一個類似"IG_C_gene=#ffd4bf"的字符串。我想在熱圖函數中使用gene_colors向量,所以我需要等號與gene_colors中的條目一樣分開(即不在引號內,如果它是字符串中的字符)。有沒有辦法做到這一點?

? 最佳回答:

這可以通過如下方式解決:

index <-  other_genes[!other_genes %in% names(gene_colors)]
gene_colors[index] <- randomColor(length(index))
gene_colors
        protein_coding                 lncRNA                  IG_C_gene        IG_C_pseudogene 
             "#1F78B4"              "#de08a0"                  "#adc3ea"              "#6962c1" 
             IG_J_gene              IG_V_gene        IG_V_pseudogene                  miRNA               misc_RNA 
             "#f2ab96"              "#86a3e8"              "#2fe07b"              "#b6f5f9"              "#215b82" 
               Mt_rRNA polymorphic_pseudogene   processed_pseudogene 
             "#356ca3"              "#8098ce"              "#44c942" 

Data:

other_genes <- c("IG_C_gene", "IG_C_pseudogene", "IG_J_gene", "IG_V_gene", "IG_V_pseudogene", 
"lncRNA", "miRNA", "misc_RNA", "Mt_rRNA", "polymorphic_pseudogene", 
"processed_pseudogene", "protein_coding")
主站蜘蛛池模板: 国产在线精品一区在线观看| 精品性影院一区二区三区内射| 免费观看一区二区三区| 91在线一区二区三区| 国产在线观看一区二区三区四区| 无码国产精品一区二区免费式直播| 国产在线无码视频一区二区三区| 无遮挡免费一区二区三区| 日韩成人一区ftp在线播放| 国产精品亚洲午夜一区二区三区| 一区二区视频在线| 亚洲AV无码一区二区三区系列| 黑人大战亚洲人精品一区| 国产日韩高清一区二区三区 | 色欲综合一区二区三区| 中文字幕在线一区二区三区| 国产一区二区三区电影| 国产日韩精品一区二区在线观看 | 日韩精品一区二区三区在线观看| 无码播放一区二区三区| 亚洲AV噜噜一区二区三区| 国产一区二区三区乱码在线观看| 无码国产精品一区二区免费式影视| 91精品乱码一区二区三区| 亚洲一区二区无码偷拍| 日韩精品久久一区二区三区| 精品国产一区二区麻豆| 天天看高清无码一区二区三区 | 国产一区二区三区在线观看免费| 亚洲中文字幕乱码一区| 国产综合视频在线观看一区| 午夜视频久久久久一区 | 一区二区三区91| 国产亚洲情侣一区二区无| 精品一区二区三区在线视频| 久久精品国产一区二区三区肥胖| 78成人精品电影在线播放日韩精品电影一区亚洲 | 国产成人精品一区二区秒拍| 日韩精品一区二区亚洲AV观看| 无码中文字幕一区二区三区| 国产aⅴ一区二区三区|