Блог

Это кажется очень простым вопросом, но я долго боролся с ним. Далее следует упрощенная версия. У меня есть следующий набор данных:

 a <- c('I' , 'E')
ja <- c(30 , 20)
fe <- c(50, 40)
ma <- c(35 , 22)

x <- data.frame(a, ja , fe , ma)
x
#>   a ja fe ma
#> 1 I 30 50 35
#> 2 E 20 40 22
 

^{Создано 2020-12-04 пакетом reprex (версия 0.3.0)}

Я хочу добавить строку 3, чтобы иметь цифры строки I минус строка E для ja, fe и ma. Таким образом, строка 3 будет выглядеть следующим образом:

 a     ja   fe   ma
I_E   10   10   13
 

Там будет 12 столбцов, по одному на каждый месяц, поэтому в идеале я хотел бы иметь возможность ссылаться на них кратко, например, как (в этом примере) ja:ma или тому подобное. Спасибо за любую помощь!

Работает ли это:

 library(dplyr)
library(stringr)
x %>% 
  bind_rows(x %>% summarise(a = str_c(a, lead(a), sep = '_')) %>% na.omit() %>% 
                bind_cols(x %>% summarise(across(2:4, ~ . - lead(.))) %>% na.omit()))
    a ja fe ma
1   I 30 50 35
2   E 20 40 22
3 I_E 10 10 13
 

Не делайте этого.

Фреймы данных не являются таблицами Excel.

Способ R заключается в том, чтобы каждая строка отображалась как месяц. Вы должны начать с 3 столбцов: month_name, I и E. Затем вы можете создать 4-й столбец, который равен I минус E.

 df <- data.frame(
    month_name = c("ja", "fe", "ma"),
    I = c(30, 50, 35),
    E = c(20, 40, 22)
)

df$E_E <- df$I - df$E
 

Мы также можем использовать data.table подходы

 library(data.table)   
rbind(setDT(x), x[, c(list(a = 'I_E'), 
      lapply(.SD, function(x) diff(rev(x)))), .SDcols = 2:4])
#     a ja fe ma
#1:   I 30 50 35
#2:   E 20 40 22
#3: I_E 10 10 13