尝试在R中创建动画图时，unquie（）出错

Question

我在尝试创建一个动态图时会使用下面的代码，这会改变ReportSubmitted的时间，我希望看到Reportfee的密度和颜色在审计师的实际情况。

但是我收到以下错误消息：

Error in unique(Complete_RD_ClaimData$ReportSubmitted)
               (Complete_RD_ClaimData$ReportSubmitted ==  : attempt to apply non-function

有没有人有任何想法？

saveGIF({
  for(i in unique(Complete_RD_ClaimData$ReportSubmitted)(Complete_RD_ClaimData$ReportSubmitted == i)){
    data <- subset( Complete_RD_ClaimData, ReportSubmitted == i )
    p <- ggplot(data = data, aes(x = ReportFee, y = n(), fill = Auditor, width = 1)) +
      coord_flip() +
      geom_point()+
      ggtitle(i)
    print(p)
  }
  }, movie.name = "reportfee.gif", interval = 0.1)

Answer 1

这里出了点问题：

unique(Complete_RD_ClaimData$ReportSubmitted)(Complete_RD_ClaimData$ReportSubmitted == i)