Простое утверждение ifelse в dplyr / tidyquant xts - PullRequest
Новая
       78

Простое утверждение ifelse в dplyr / tidyquant xts

0 голосов
/ 08 декабря 2018

Я пытаюсь создать простой оператор ifelse, используя tidyquant или dplyr.

То, что у меня сейчас есть, 

from <- "2017-07-09"
to <- "2018-12-01"
getSymbols("GOOG", from = from, to = to, src = "yahoo", adjust = TRUE)

colnames(GOOG) <- c("Open", "High", "Low", "Close", "Volume", "Adjusted")

library(dplyr)
library(tidyquant)

GOOG %>%
  mutate(Direction = ifelse(Close < Open, 1, 0))

, которое возвращает ошибку: 

Error in UseMethod("mutate_") : 
  no applicable method for 'mutate_' applied to an object of class "c('xts', 'zoo')"

Я знаю, что пакет tidyquant может использовать dplyr функции для данных xts, поэтому я также пытаюсь использовать tidyquant, чтобы обойти эту проблему.

работает, но выводит данные из формата xts. 

x <- GOOG %>%
  data.frame() %>%
  mutate(Direction = ifelse(Close < Open, 1, 0))

1 Ответ

0 голосов
/ 08 декабря 2018

Проблема здесь не о ifelse.Речь идет о mutate и том факте, что 

class(GOOG)
# [1] "xts" "zoo"

В этом случае вы ничего не получите от mutate, так что вы можете просто использовать 

GOOG$Direction <- with(GOOG, ifelse(Close < Open, 1, 0))

ОднакоВы также можете использовать tidyquant вместо quantmod с getSymbols: 

GOOG <- tq_get("GOOG", from = from, to = to)
GOOG %>% mutate(Direction = ifelse(close < open, 1, 0))
# A tibble: 354 x 8
#   date        open  high   low close  volume adjusted Direction
#   <date>     <dbl> <dbl> <dbl> <dbl>   <dbl>    <dbl>     <dbl>
# 1 2017-07-10  922.  930.  920.  929. 1192800     929.         0
# 2 2017-07-11  930.  931.  922   930. 1113200     930.         0
# 3 2017-07-12  939.  946.  934.  944. 1532100     944.         0
# ... with 351 more rows

Это тогда работает, потому что 

class(GOOG)
# [1] "tbl_df"     "tbl"        "data.frame"

Еще один вариант - продолжать использовать quantmod но заменить mutate на transform: 

GOOG %>% transform(Direction = ifelse(Close < Open, 1, 0))
...