Entering edit mode
library(EnhancedVolcano)
lung <- read.csv(file = "lung_lysoIP_elutes.csv", header = TRUE, sep = ",") lysosome <- read.csv(file = "bone_fine_lysosomes.csv", header = FALSE, sep = ",")
lb <- as.character(lysosome[,1]) label_color <- ifelse( lung[[1]] %in% lb, "orange", "grey")
label_color[is.na(label_color)] <- "grey" names(label_color[label_color == "grey"]) <- "NA" names(label_color[label_color == "organe"]) <- "lysosome"
Hi,
I can see that you misspelled the color "orange" in your last line of code
names(label_color[label_color == "organe"]) <- "lysosome"
.Probably this caused the error but you need to give some more info on your dataframes, e.g. run
head()
and post the result to be able to reproduce your lines of code and check if everything is OK.Best