意味着功能产生

Question

平均功能怪怪相同的结果，更是不断生产0.3880952

H10 <- H10 %>% 
    rowwise() %>% 
    mutate(t10dv = mean(c(fd$DV1_C, fd$DV2_C, 
         fd$DV3_C, fd$DV4_C), 
     na.rm = TRUE)) 

head(H10) 

      DV1_C   DV2_C   DV3_C   DV4_C  t10dv 
      <int>   <int>   <int>   <int>  <dbl> 
1    1    0    0    1 0.3880952 
2    -1    0    2    -1 0.3880952 
3    0    0    0    0 0.3880952 
4    0    2    1    1 0.3880952 
5    -1    -1    -1    -2 0.3880952 
6    -2    0    0    0 0.3880952 

Answer 1

你应该做的仅仅是：

H10$t10dv <- rowMeans(H10[c("DV1_C", "DV2_C", "DV3_C", "DV4_C")]) 

Answer 2

在这里，您发生变异电话计算你四列（c(fd$DV1_C, fd$DV2_C, fd$DV3_C, fd$DV4_C)。

如果串联的平均值你需要计算每列的均值，你需要做4个电话。

mutate(x = mean(fd$DV1_C), 
     y = mean(fd$DV2_C), ... etc. 

最佳

科林