[R] Help with another ggplot error
William Dunlap
wdun|@p @end|ng |rom t|bco@com
Thu Jun 13 16:38:16 CEST 2019
> Hello I have created a function called autocorrelate.
>
> When I run it with ggplot I get this error:
> #Error in autocorrelate(., NetEditRev, lags = 0:nrow(.)) : unused
argument (lags = 0:nrow(.))
This means that autocorrelate does not have an argument called lags. E.g.
> f <- function(x) x+1
> f(y=10)
Error in f(y = 10) : unused argument (y = 10)
It looks like your autocorrelate has an argument called 'Lags', not 'lags'.
Use traceback() after an error
Bill Dunlap
TIBCO Software
wdunlap tibco.com
On Thu, Jun 13, 2019 at 7:14 AM Bill Poling <Bill.Poling using zelis.com> wrote:
>
> #RStudio Version 1.2.1335
> sessionInfo()
> #R version 3.5.3 (2019-03-11)
> #Platform: x86_64-w64-mingw32/x64 (64-bit)
> #Running under: Windows >= 8 x64 (build 9200)
>
> Hello I have created a function called autocorrelate.
>
> When I run it with ggplot I get this error:
> #Error in autocorrelate(., NetEditRev, lags = 0:nrow(.)) : unused
> argument (lags = 0:nrow(.))
>
> Using what I learned from Rui yesterday I have tried to track down the
> problem myself
>
> #---------------------------------- ggplot ISSUE 2
> -----------------------------------------------------------#
>
> #------------------------------------------------------------------------------------------------------------------#
> getAnywhere('lags')
>
> # A single object matching 'lags' was found
> # It was found in the following places
> # package:TTR
> # namespace:TTR
> # with value
>
> function (x, n = 1)
> {
> x <- as.matrix(x)
> if (is.null(colnames(x)))
> colnames(x) <- paste("V", 1:NCOL(x), sep = "")
> out <- embed(x, n + 1)
> if (n == 1)
> lag.names <- 1
> else if (NCOL(x) == 1)
> lag.names <- 1:n
> else lag.names <- rep(1:n, NCOL(x))
> colnames(out) <- c(colnames(x), paste(colnames(x), sort(lag.names),
> sep = "."))
> return(out)
> }
> <bytecode: 0x0000021163065658>
> # <environment: namespace:TTR>
>
> #Here are references I have perused but not sure they help, or at least I
> do not understand how they help me?
>
>
> https://stackoverflow.com/questions/32056718/annotate-ggplot-bar-chart-error-unused-arguments
> #https://stackoverflow.com/questions/24004974/sudden-unused-argument-error
> <https://stackoverflow.com/questions/32056718/annotate-ggplot-bar-chart-error-unused-arguments#https://stackoverflow.com/questions/24004974/sudden-unused-argument-error>
>
> find("lags")
> #"package:TTR"
>
> #Here are the Pkgs/libraries loaded, and I see TTR_0.23-4
> # I did not load this library so it must be coming in with another library?
>
> attached base packages:
> [1] stats graphics grDevices utils datasets methods base
>
> other attached packages:
> [1] plotly_4.9.0 tseries_0.10-46
> timeDate_3043.102 h2o_3.22.1.1 lime_0.4.1
> [6] parsnip_0.0.2 sweep_0.2.1.1 forecast_8.7
> riem_0.1.1 timetk_0.1.1.1
> [11] tidyquant_0.5.6 forcats_0.4.0 stringr_1.4.0
> dplyr_0.8.1 purrr_0.3.2
> [16] readr_1.3.1 tidyr_0.8.3 tibble_2.1.1
> ggplot2_3.1.1 tidyverse_1.2.1
> [21] quantmod_0.4-14 TTR_0.23-4
> PerformanceAnalytics_1.5.2 xts_0.11-2 zoo_1.8-5
> [26] lubridate_1.7.4 yardstick_0.0.3
>
> ?`TTR-package`
>
> These are the libraries I have loaded
>
> library(yardstick)
> library(tidyquant)
> library(timetk)
> library(riem)
> library(forecast)
> library(sweep)
> library(parsnip)
> library(lime)
> library(h2o)
> library(timeDate)
> library(tseries)
> library(ggplot2)
> library(tidyverse)
> library(lubridate)
> library(plotly)
>
> I tried changing lags to lags1 in the function but that did not help
>
> Here are the script and a data sample to assist anyone who might try to
> help me.
>
> Thank you for any advice.
>
> WHP
>
>
> #Create a function----
>
> autocorrelate <- function(dftmp, value, Lags = 0.20) {
>
> value_expr <- enquo(value)
>
> acf_values <- dftmp %>%
> select(!! value_expr) %>%
> pull() %>%
> acf(lag.max = tail(lags, 1), plot = FALSE) %>%
> .$acf %>%
> .[,,1]
>
> ret <- tibble(acf = acf_values) %>%
> rowid_to_column(var = "lag") %>%
> mutate(lag = lag - 1) %>%
> filter(lag %in% lags)
>
> return(ret)
> }
>
> g2 <- as_tibble(dftmp) %>%
> autocorrelate(NetEditRev,lags = 0:nrow(.)) %>%
> ggplot(aes(lag,acf)) +
> geom_point(alpha = 0.5, color = "#2c3e50") +
> expand_limits(y = c(-1,1)) +
> theme_tq() +
> labs(title = "Autocorrelation For Net Edit Revenue")
> #And I get --> Error in autocorrelate(., NetEditRev, lags = 0:nrow(.)) :
> unused argument (lags = 0:nrow(.))
> #Notice in the error it looks like autocorrelate(., yet there is no ., in
> my script?
>
> ggplotly(g2)
>
>
>
> str(dftmp)
>
> 'data.frame':892 obs. of 10 variables:
> $ Date2 : Date, format: "2017-01-01" "2017-01-02" "2017-01-03"
> "2017-01-04" ...
> $ NetEditRev: num -923 19222 -8397 37697 46075 ...
> $ index.num : int 1483228800 1483315200 1483401600 1483488000 1483574400
> 1483660800 1483747200 1483833600 1483920000 1484006400 ...
> $ year : int 2017 2017 2017 2017 2017 2017 2017 2017 2017 2017 ...
> $ half : int 1 1 1 1 1 1 1 1 1 1 ...
> $ quarter : int 1 1 1 1 1 1 1 1 1 1 ...
> $ month.lbl : Ord.factor w/ 12 levels "January"<"February"<..: 1 1 1 1 1
> 1 1 1 1 1 ...
> $ day : int 1 2 3 4 5 6 7 8 9 10 ...
> $ wday.lbl : Ord.factor w/ 7 levels "Sunday"<"Monday"<..: 1 2 3 4 5 6 7
> 1 2 3 ...
> $ holiday : num 0 1 0 0 0 0 0 0 0 0 ...
>
> Here is a sample of my df
>
> head(dftmp,n=35)
> Date2 NetEditRev index.num year half quarter month.lbl day
> wday.lbl holiday
> 1 2017-01-01 -923.40 1483228800 2017 1 1 January 1
> Sunday 0
> 2 2017-01-02 19222.09 1483315200 2017 1 1 January 2
> Monday 1
> 3 2017-01-03 -8396.82 1483401600 2017 1 1 January 3
> Tuesday 0
> 4 2017-01-04 37696.58 1483488000 2017 1 1 January 4
> Wednesday 0
> 5 2017-01-05 46075.34 1483574400 2017 1 1 January 5
> Thursday 0
> 6 2017-01-06 38329.35 1483660800 2017 1 1 January 6
> Friday 0
> 7 2017-01-07 3110.51 1483747200 2017 1 1 January 7
> Saturday 0
> 8 2017-01-08 21.39 1483833600 2017 1 1 January 8
> Sunday 0
> 9 2017-01-09 63569.67 1483920000 2017 1 1 January 9
> Monday 0
> 10 2017-01-10 50777.00 1484006400 2017 1 1 January 10
> Tuesday 0
> 11 2017-01-11 55548.60 1484092800 2017 1 1 January 11
> Wednesday 0
> 12 2017-01-12 70217.73 1484179200 2017 1 1 January 12
> Thursday 0
> 13 2017-01-13 62536.15 1484265600 2017 1 1 January 13
> Friday 0
> 14 2017-01-14 2696.83 1484352000 2017 1 1 January 14
> Saturday 0
> 15 2017-01-15 2230.00 1484438400 2017 1 1 January 15
> Sunday 0
> 16 2017-01-16 56310.90 1484524800 2017 1 1 January 16
> Monday 1
> 17 2017-01-17 58521.93 1484611200 2017 1 1 January 17
> Tuesday 0
> 18 2017-01-18 50057.73 1484697600 2017 1 1 January 18
> Wednesday 0
> 19 2017-01-19 57366.70 1484784000 2017 1 1 January 19
> Thursday 0
> 20 2017-01-20 61390.94 1484870400 2017 1 1 January 20
> Friday 0
> 21 2017-01-21 1839.09 1484956800 2017 1 1 January 21
> Saturday 0
> 22 2017-01-22 807.57 1485043200 2017 1 1 January 22
> Sunday 0
> 23 2017-01-23 72209.44 1485129600 2017 1 1 January 23
> Monday 0
> 24 2017-01-24 70799.21 1485216000 2017 1 1 January 24
> Tuesday 0
> 25 2017-01-25 70240.88 1485302400 2017 1 1 January 25
> Wednesday 0
> 26 2017-01-26 51462.66 1485388800 2017 1 1 January 26
> Thursday 0
> 27 2017-01-27 46852.37 1485475200 2017 1 1 January 27
> Friday 0
> 28 2017-01-28 2396.67 1485561600 2017 1 1 January 28
> Saturday 0
> 29 2017-01-29 2051.62 1485648000 2017 1 1 January 29
> Sunday 0
> 30 2017-01-30 72561.32 1485734400 2017 1 1 January 30
> Monday 0
> 31 2017-01-31 69630.69 1485820800 2017 1 1 January 31
> Tuesday 0
> 32 2017-02-01 -17304.22 1485907200 2017 1 1 February 1
> Wednesday 0
> 33 2017-02-02 11773.84 1485993600 2017 1 1 February 2
> Thursday 0
> 34 2017-02-03 20703.69 1486080000 2017 1 1 February 3
> Friday 0
> 35 2017-02-04 2762.87 1486166400 2017 1 1 February 4
> Saturday 0
>
>
> Confidentiality Notice This message is sent from Zelis. ...{{dropped:13}}
>
> ______________________________________________
> R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
[[alternative HTML version deleted]]
More information about the R-help
mailing list