Лучше не использовать имена функций (c
) для именования объектов. Чтобы применить format
ко всем столбцам
c[] <- lapply(c, format, decimal.mark = ",", digits = 2)
Или с formatC
c[] <- lapply(c, formatC, decimal.mark =",", format = "f", digits = 2)
Если нам нужно применить к выбранным нескольким столбцам, то есть столбцы с 1 по 3 и 7 : 10
j1 <- c(1:3, 7:10)
c[j1] <- lapply(c[j1, formatC, decimal.mark =",", format = "f", digits = 2)
Или другой вариант с sprintf
c[] <- lapply(c, function(x) sub(".", ",", sprintf("%0.2f", x), fixed = TRUE))