Patient_036[Patient_036 == "*"] <- 1
Patient_036[Patient_036 == "-"] <- 0
DATA:
Patient_036 <- structure(list(Driver = c("1", "1", "1", "1", "1", "1"), SNV_Organoid_036 = c("0",
"1", "1", "0", "0", "1"), INDEL_Organoid_036 = c("1", "1", "0",
"1", "1", "0"), Deletion_Organoid_036 = c("0", "0", "0", "0",
"0", "0")), row.names = c("ABCB1", "ACVR1B", "ACVR2A", "APC",
"ARID1A", "ARID1B"), class = "data.frame")
Если ваш фрейм данных содержит factors
, сначала вам может понадобиться df[] <- lapply(df, as.character)
. В этом нет необходимости, если вы добавите stringsAsFactors = FALSE
или что-то эквивалентное при чтении данных.