R：嵌套数据框中的假设检验出错

Question

在尝试对嵌套数据进行假设检验（如T或Wilcox测试）时，我收到了错误消息。这是直到最近才开始工作的所有代码。 （我想知道它是否与dplyr .7更新有关？）例如，

ID <- 1:100
group <- as.character(rep(c('w', 'x', 'y', 'z'),25))
factor <- as.factor(rep(c('a', 'b'), 50))
num <- runif(100)
df<- data.frame(ID, group, factor, num)

dfTtest <- df %>% 
nest(-group) %>% 
mutate(p = map_dbl(data, ~t.test(.$num~.$factor)$p.value))

给我错误：

Error in mutate_impl(.data, dots) : 
  Evaluation error: invalid type (NULL) for variable '.$num'.
In addition: Warning messages:
1: Unknown or uninitialised column: 'num'. 
2: Unknown or uninitialised column: 'factor'. 

我该如何解决这个问题？

谢谢！