使用鼠标进行插补显示解析错误

Question

这是我的数据集的头部：

 head(new.data)
# A tibble: 6 x 9
      EIN `Number of Login~ `Last Login to the We~ Active_Particip~ Job_Position Tenure logTotalGamifica~ logPerformance
    <dbl>             <dbl>                  <dbl> <chr>            <chr>        <fct>              <dbl>          <dbl>
1   5370.               32.                    23. Yes              ASVCMG       5                   8.65          NA   
2 214801.               18.                     2. Yes              PTSSUP       1                   6.96          NA   
3 199908.               18.                    38. Yes              SVCADV       2                   8.01           4.19
4 212145.               20.                     2. Yes              SVCADV       1                   8.36          NA   
5   8917.                2.                    11. Yes              SVCTEC       4                   5.60          NA   
6   5204.                3.                    27. Yes              GENMGR       5                   7.31          NA   
# ... with 1 more variable: logCustomerViewPoint <dbl>

我想使用使用以下代码的mouses包进行多次插补：

exclude <- c( 'Total Gamification Point', 'Performance', 'Customer View Point')

include <- setdiff(names(Case.study.num), exclude)

new.data <- Case.study.num[include]

imp.new.data <- mice(new.data,m=5,maxit=50,meth='pmm',seed=500)

但是我收到此错误消息：

Error in parse(text = x, keep.source = FALSE) : 
  <text>:1:16: unexpected symbol
1: EIN ~ 0+Number of
                   ^

请给我一些可能出问题的主意？