R 与ggplot相关的互相关函数（ccf）问题

我使用互相关函数（ccf）来显示不同泉水流量的日滞后。我使用了更好的可视化。我的结果如下图所示，代码运行完美无瑕，但后来我去重新运行代码，现在不断出现错误。我最初稍微修改了源代码，但一旦出现错误，我就返回到原始源代码，错误依然存在

数据、代码和问题：

---

嘿在我的Windows机器上一切正常。在你的R-session期间似乎有些麻烦。您是否尝试重新启动R？也可以在不使用函数的情况下运行此代码。这可能有助于您了解问题所在。还有一件事，也许你原来的数据集中缺少了一个值？@Alex:我也这么认为。如果重新启动R会话没有帮助，请尝试将

R

，

dplyr

&

ggplot2

更新到最新版本谢谢您的回复@董是对的，它需要更新。我认为它必须是这样的，因为代码工作了，然后下次就不工作了。谢谢你的快速回复！嘿在我的Windows机器上一切正常。在你的R-session期间似乎有些麻烦。您是否尝试重新启动R？也可以在不使用函数的情况下运行此代码。这可能有助于您了解问题所在。还有一件事，也许你原来的数据集中缺少了一个值？@Alex:我也这么认为。如果重新启动R会话没有帮助，请尝试将

R

，

dplyr

&

ggplot2

更新到最新版本谢谢您的回复@董是对的，它需要更新。我认为它必须是这样的，因为代码工作了，然后下次就不工作了。谢谢你的快速回复！

# example data   
big = runif(60)
mangum = runif(61:120)
hydro = data.frame(big, mangum)

# Using the ccf to ggplot function (from the above link)
xcf_plot <- function(df, x, y, title = "Cross Correlation"){
  df_x <- eval(substitute(x), df)
  df_y <- eval(substitute(y), df)
  ccf.object <- ccf(df_x, df_y, plot = FALSE)
  output_table <- cbind(lag = ccf.object$lag, 
                        x.corr = ccf.object$acf) %>%
                          as_tibble() %>%
                          mutate(cat = ifelse(x.corr > 0, "green", "red"))
  output_table %>%
    ggplot(aes(x = lag, y = x.corr)) +
    geom_bar(stat = "identity", aes(fill = cat))+
    scale_fill_manual(values = c("#339933", "#cc0000"))+
    ylab("Cross correlation")+
    scale_y_continuous(limits = c(-1, 1))+
    theme_bw()+ 
    theme(legend.position = "none", 
          plot.title = element_text(size=10))+
    ggtitle(title) -> p

  ggsave(paste(title, ".jpg"), plot = p, height = 2.7, width = 4, units = "in")
}     
# The only thing I originally changed from the source code was ".svg" to ".jpg", 
# "theme_economist()" to "theme_bw()" and colors.

# run the function
xcf_plot(df = hydro, x = hydro$big, y = hydro$mangum, title = "big and mangum")

R version 3.4.3 (2017-11-30),
Platform: x86_64-w64-mingw32/x64 (64-bit),
Running under: Windows 10 x64 (build 16299)