r - 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'. 

我怎样才能解决这个问题？

谢谢！