lapply和dplyr / magrittr的奇怪錯誤

Question

這是一段代碼：

data <- data.frame(a=runif(20),b=runif(20),subject=rep(1:2,10)) %>%
group_by(subject) %>%
do(distance = dist(.))

#no dplyr
intermediate <- lapply(data$distance,as.matrix)
mean.dists <- apply(simplify2array(intermediate),MARGIN = c(1,2),FUN=mean)

#dplyr
mean.dists <- lapply(data$distance,as.matrix) %>%
apply(simplify2array(.),MARGIN=c(1,2),FUN=mean)

為什么“沒有dplyr”版本有效，而“dplyr”版本會拋出錯誤，“dim（X）必須有正長度”？ 他們看起來和我一模一樣。

Answer 1

問題是您還沒有完全實現管道。 你在這里使用magrittr ，這個問題與dplyr

data$distance %>% 
   lapply(as.matrix ) %>% 
   simplify2array %>% 
   apply(MARGIN=1:2, FUN=mean)