Вставка пустой строки в каждую строку во фрейме данных

Question

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

c1

4

6

1.5

2

3

7.5

1

9

Я хотел бы рассчитать сумму каждогодве строки и добавьте значение для каждой альтернативной строки, оставив пустой пробел между ними:

Вывод:

c1     c2

4

6      10

1.5

2      3.5

3

7.5    10.5

1

9      10

Прямо сейчас у меня есть код для создания суммы каждых двух строк из столбцаc1

for(i in seq_along(list_df)){
  list_df[[i]]$c2<-
    rowsum(list_df[[i]][,1], as.integer(gl(nrow(list_df[[i]]), 2, nrow(list_df[[i]]))))
}

Однако это выдает ошибку, поскольку длина c1 в этом случае равна 8, а длина вновь созданного столбца c2 равна 4. Как изменить этот код таким образом, чтобы значениянедавно созданный столбец c2 вставляется в альтернативную строку, оставляя пробел?

Спасибо

Answer 1

Для обработки случаев, когда может не быть четного числа строк, вы можете попробовать это: library (tidyverse)

df1 <- data.frame(
  c1 = c(4, 6, 1.5, 2, 3, 7.5, 1, 9, 42)
)

# add new column
df1$c2 <- NA_real_

# now split df1 in groups of two and add result
result <- df1 %>%
  group_by(key = cumsum(rep(1:0, length = nrow(df1)))) %>%
  mutate(c2 = if (n() == 2)c(NA, sum(c1)) else sum(c1)) %>%
  ungroup %>%
  select(-key)  # remove grouping variable

> result
# A tibble: 9 x 2
c1    c2
<dbl> <dbl>
  1   4    NA  
2   6    10  
3   1.5  NA  
4   2     3.5
5   3    NA  
6   7.5  10.5
7   1    NA  
8   9    10  
9  42    42  
> 

Answer 2

Я не знаю, насколько я дикий об этой опции после просмотра других, но она работает!

df1 <- data.frame(
  c1 = c(4, 6, 1.5, 2, 3, 7.5, 1, 9)
)

dfList <- list(df1, df1)

## DEFINE HELPER
func <- function(x) {  
  result <- c() # initialize an empty list
  for (i in seq_along(x)) {
    if((i %% 2) == 1) { # if row count is odd, NA
      result <- c(result, NA)
    } else { # else add the current value to the previous value
      result <- c(result, x[i] + x[i-1])
    }
  }
  return(result) # return result
}

## APPLY HELPER TO LIST
res <- lapply(dfList, function(x){
  x$c2 <- func(x$c1)
  return(x)
})

Answer 3

это другой способ:

lapply(list_df, function(x){

  i = 1
  c2 = vector('numeric')

  while(i <= length(x$c1) ){

    c2[i*2 -1] = NA

    c2[i*2]    = sum(x$c1[i*2-1], x$c1[i*2] )

    i = i + 1
    if( i*2 > length(x$c1)) break
  }

  data.frame(c1 = x$c1, c2)
})

Answer 4

Вы можете использовать

df = data.frame(c1 = c(4,6,1.5,2,3,7.5,1,9))
df$c2 = NA
df$c2[c(F,T)] = colSums(matrix(df$c1, 2))
#    c1   c2
# 1 4.0   NA
# 2 6.0 10.0
# 3 1.5   NA
# 4 2.0  3.5
# 5 3.0   NA
# 6 7.5 10.5
# 7 1.0   NA
# 8 9.0 10.0

Answer 5

c1 = c(4,6,1.5,2,3,7.5,1,9)
ID = rep(1:(length(c1)/2), each=2)

library(data.table)

DT = data.table(ID,c1)
DT

DT[, sum2 := Reduce(`+`, shift(c1, 0:1)), by = ID]
DT