Как заменить число в моем фрейме данных (в заголовке также есть цифры)?

Question

У меня есть фрейм данных вкладки, где первая строка и столбец являются заголовками:

Marker  DS_123_ DS_246 DS_789    
10103   1   1   0    
10104   1   1   1    
10105   -   1   0

Мне нужно заменить 1 с 2 с в наборе данных (без изменения заголовков)

Я пытался использовать следующий код:

file1 <- data.frame(lapply(file, function(x) {
                    gsub("1", "2", x)
               }))

Ожидаемый результат:

Marker  DS_123_ DS_246 DS_789    
10103   2   2   0       
10104   2   2   2    
10105   -   2   0

Вывод, который я получил:

X.c.20203..20204..20205..

Answer 1

Кажется, было бы лучше использовать apply здесь:

file1 <- apply(file, 2, function(x) {
  gsub("1", "2", x)
})

Answer 2

Мы можем попробовать применить здесь:

file <- data.frame(apply(file, 2, function(x) {
    ifelse(x == "1", "2", x)
}))