KM
Size: a a a
KM
KM
M
IS
IS
V
VM
V
V
VM
V
M
V
VM
IS
data.table
. Отключив ограничители и сняв помочи. Однако, изначально мне просто хотелось еще и про идеологию решения подобных задач подсказать.as.data.table(df) %>%
setnames(shift(names(.))) %>%
.[, lapply(.SD, sum, na.rm = TRUE), .SDcols = seq(3, ncol(.), by = 2)]
можно в конце получить и список, просто сделать as.list()
ну и сам data.frame
df <- data.frame(
index = c(1,2,3,4,5),
Customer = c("A", NA, "B", "C", NA),
Value = c(1, NA, 1, 1, NA),
"Customer(1)" = c(NA, "A", NA, NA, "D"),
Value = c(NA, 1, NA, NA, 1)
)
Правда ведь вопрос был не про одну строку, а просто хотелось подколоть? I
V
IS
enumerate
и zip
. I
DK