Как я могу удалить значения по столбцу во фрейме данных?

Question

Мне нужно принимать значения чисел по столбцам без нулей, по этой причине я использовал пустой список и цикл (для цикла). Когда я удаляю [i] в ​​первой строке моего цикла, я получаю желаемый результат только в столбце итоговых значений (сумма по объекту), но способом, которым я учусь их записывать, я получаю только нежелательный результат ,

set.seed

df <- data.frame(Category = sample(LETTERS[1:10]), 
                 Object = sample(letters[1:10]), 
                 A = sample(0:20, 10, rep = TRUE), 
                 B = sample(0:20, 10, rep = TRUE),
                 C = sample(0:20, 10, rep = TRUE))


sincero <- list()
for (i in colnames(df[ , 3:5])){
  sincero[i] = df[df[ , i] != 0, ]
  sincero
}
sincero