R：为每个组创建一个新行，值是组中现有条目的差异

Question

区域	年龄	学生类型	值
A	17	任何	32
A	17	全职	24
A	18	A 18 Any	27
A	18	全职	19
B	17	Any	22
B	17	全职	14
B	18	Any	80
B	18	全职	75

我在R.我希望为每个地区和年龄创建一个新的拖车，学生类型是“兼职”，价值是“任何” - “全职”的价值。看来我可以在此过程中使用滞后，但是我希望更加明确，指定它是“任何” - “全职”，就像井井有条的数据集时，可能有数据集可以逆转条目。

理想情况下，结果看起来像是

区域	年龄	学生类型	值
A	17	ANER	32
A	17	全职	24
A	17	兼职	8
A 18 A	18	Any	27
A	18	8	A 18
A	18	A兼职	B
17	Any	22 B 17 Any	22
B	17	全职	14
B	17	兼职	8
b	18	任何	80
B	18	全职	75
B	18	兼职	5

谢谢！

Answer 1

您可以尝试

library(dplyr)
df %>%
  group_by(Region, Age) %>%
  summarize(Student.Type = "Part time",
            Values = abs(diff(Values))) %>%
  rbind(., df) %>%
  arrange(Region, Age, Student.Type)

   Region   Age Student.Type Values
   <chr>  <int> <chr>         <int>
 1 A         17 Any              32
 2 A         17 Full time        24
 3 A         17 Part time         8
 4 A         18 Any              27
 5 A         18 Full time        19
 6 A         18 Part time         8
 7 B         17 Any              22
 8 B         17 Full time        14
 9 B         17 Part time         8
10 B         18 Any              80
11 B         18 Full time        75
12 B         18 Part time         5

Answer 2

使用dplyr，您可以使用group_modify（） + add_row（）。

df %>%
  group_by(Region, Age) %>%
  group_modify(~ {
    .x %>%
      summarise(StudentType = "Part time", Values = -diff(Values)) %>%
      add_row(.x, .)
  }) %>%
  ungroup()

# # A tibble: 12 × 4
#    Region   Age StudentType    Values
#    <chr>  <int> <chr>           <int>
#  1 A         17 Any                32
#  2 A         17 Full time          24
#  3 A         17 Part time           8
#  4 A         18 Any                27
#  5 A         18 Full time          19
#  6 A         18 Part time           8
#  7 B         17 Any                22
#  8 B         17 Full time          14
#  9 B         17 Part time           8
# 10 B         18 Any                80
# 11 B         18 Full time          75
# 12 B         18 Part time           5