Question

我有一个每个参数都有不同参数的数据框。我想为每行使用不同的参数集来合并行。这是我的相同数据ZZ：

ZZ<-data.frame(Name =c("A","B","C","D","E","F"),A1=c(19,20,21,23,45,67),A2=c(1,2,3,4,5,6),A3=c(7,8,13,24,88,90),x=c(4,5,6,8,23,16),y=c(-3,-7,-6,-9,3,2))

> ZZ
  Name A1 A2 A3  x  y
1    A 19  1  7  4 -3
2    B 20  2  8  5 -7
3    C 21  3 13  6 -6
4    D 23  4 24  8 -9
5    E 45  5 88 23  3
6    F 67  6 90 16  2

我想汇总A，B，C和D，E，F行，以便为每个组定义一个新名称（例如：C1和C2），A1，A2和A3由和合并，而x和y用均值。

请问如何完成？结果应该是：

> ZZ2
  Name  A1 A2  A3      x      y
1   C1  60  6  28  5.000 -5.333
2   C2 135 15 202 15.667 -1.333

Answer 1

根据我对您问题的理解，我相信这应该可以为您提供使用dplyr的功能：

library(dplyr)

result <- ZZ %>% 
  mutate(Name = ifelse(Name %in% c("A", "B", "C"), "C1", "C2")) %>% 
  group_by(Name) %>% 
  summarise(A1 = sum(A1), A2 = sum(A2), A3 = sum(A3), x = mean(x), y = mean(y)) %>% 
  ungroup()

根据具有不同名称的行数，将Name变量分为两类可能是更好的选择。

编辑：示例，如果存在4个案例

 result <- ZZ %>% 
   mutate(Name = case_when(Name %in% c("A", "B", "C") ~ "C1",
                           Name %in% c("D", "E") ~ "C2",
                           Name %in% c("F", "G") ~ "C3",
                           Name %in% c("H", "I") ~ "C4")) %>% 
   group_by(Name) %>% 
   summarise(A1 = sum(A1), A2 = sum(A2), A3 = sum(A3), x = mean(x), y = mean(y)) %>% 
   ungroup()

合并行将为R中组合的每一行定义不同的参数

1 个答案: