错误：在dplyr中进行变异时大小不兼容

2 回答

• 2

  只是扩展@ allistaire的评论 .

  • 您指定的条件是导致错误的原因 . 具体来说， tail(which(backward>0),1)

  • 给定代码可以优化以摆脱 spread()

  你可以试试

  dff <- df%>%
    group_by(group)%>%
    mutate(flip=as.numeric(flip),direc=ifelse(c(0,diff(ff))<0,"backward","forward"))%>%
    arrange(group)%>%
    mutate(c1=ff[head(which(direc=="forward" & flip > 0),1)])
  

  ---

  看起来你正在寻找每个 group 的 direction 变化的流入点 . 在这种情况下，请详细说明翻转是如何相关的，或者如果您将 flip <- c(c(0,0,1,1,1,1),c(1,1,0,0,0,0)) 更改为 flip <- c(c(0,0,1,1,1,1),c(1,1,0,1,1,1)) 以便 flip 标记在 ff 的方向上更改，则可以使用

  dff <- df%>%
    group_by(group)%>%
    mutate(flip=as.numeric(flip),direc=ifelse(c(0,diff(ff))<0,"backward","forward"))%>%
    arrange(group)%>%
    mutate(c1=ff[head(which(direc=="forward" & flip > 0),1)]) %>%
    mutate(c2=ff[tail(which(direc=="backward"& flip >0),1)])
  

  这使：

  Source: local data frame [12 x 6]
  Groups: group [2]
  
        ff  flip  group    direc    c1    c2
     <dbl> <dbl> <fctr>    <chr> <dbl> <dbl>
  1    0.0     0      1  forward   0.2  -0.2
  2    0.1     0      1  forward   0.2  -0.2
  3    0.2     1      1  forward   0.2  -0.2
  4    0.0     1      1 backward   0.2  -0.2
  5   -0.1     1      1 backward   0.2  -0.2
  6   -0.2     1      1 backward   0.2  -0.2
  7    0.0     1      2  forward   0.0  -0.2
  8    0.1     1      2  forward   0.0  -0.2
  9    0.2     0      2  forward   0.0  -0.2
  10   0.0     1      2 backward   0.0  -0.2
  11  -0.1     1      2 backward   0.0  -0.2
  12  -0.2     1      2 backward   0.0  -0.2
  

  回复于 2024-05-05T22:59:50+08:00
• 2

  通过管道查看正在发生的事情可能是有益的 .

  df %>%
    group_by(group)%>%
    mutate(flip=as.numeric(flip),direc=ifelse(c(0,diff(ff))<0,"backward","forward"))%>%
    spread(direc,flip)%>%
    arrange(group,group)
  # Source: local data frame [10 x 4]
  # Groups: group [2]
  #       ff  group backward forward
  #    <dbl> <fctr>    <dbl>   <dbl>
  # 1   -0.2      1        1      NA
  # 2   -0.1      1        1      NA
  # 3    0.0      1        1       0
  # 4    0.1      1       NA       0
  # 5    0.2      1       NA       1
  # 6   -0.2      2        0      NA
  # 7   -0.1      2        0      NA
  # 8    0.0      2        0       1
  # 9    0.1      2       NA       1
  # 10   0.2      2       NA       0
  

  顺便说一句：为什么 arrange(group,group) ？加倍订单变量毫无意义 .

  看这里，你会看到你有（1） backward 的值不大于0.当你运行像 which(FALSE) 这样的东西时，你会得到 integer(0) . 这可能是认识到 dplyr 需要rhs的向量长度与组中行数相同的长度的好时机 .

  而不是 mutate ，我会稍微修改一下：返回 which 调用 c2 中返回的唯一值的数量：

  df %>%
    group_by(group)%>%
    mutate(flip=as.numeric(flip),direc=ifelse(c(0,diff(ff))<0,"backward","forward"))%>%
    spread(direc,flip)%>%
    arrange(group,group)%>%
    mutate(
      c1 = ff[head(which(forward>0),1)],
      c2len = length(which(backward > 0))
    )
  # Source: local data frame [10 x 6]
  # Groups: group [2]
  #       ff  group backward forward    c1 c2len
  #    <dbl> <fctr>    <dbl>   <dbl> <dbl> <int>
  # 1   -0.2      1        1      NA   0.2     3
  # 2   -0.1      1        1      NA   0.2     3
  # 3    0.0      1        1       0   0.2     3
  # 4    0.1      1       NA       0   0.2     3
  # 5    0.2      1       NA       1   0.2     3
  # 6   -0.2      2        0      NA   0.0     0
  # 7   -0.1      2        0      NA   0.0     0
  # 8    0.0      2        0       1   0.0     0
  # 9    0.1      2       NA       1   0.0     0
  # 10   0.2      2       NA       0   0.0     0
  

  为了在 ff 上有意义地索引，您需要在回报中使用_1008546以外的其他内容 .

  回复于 2024-05-05T22:59:50+08:00