[英]Case_when dplyr
我正在嘗試創建買入/賣出信號。 我正在嘗試使用 case_when 語句分配信號。 我在上一步中使用 tidyquant TQ_MUTATE 創建了幾個新列。 這僅分配“可能向上”和“可能向下”信號。
我究竟做錯了什么?
df_with_decisions <- test %>% group_by(symbol) %>% mutate(
signal = case_when(
(EMA_9 > EMA_55) ~ "possible up",
(EMA_9 > EMA_55 && EVWMA_9 > EMA_55) ~ "watch upward",
(EMA_9 > EMA_55 && EMA_21 >= EMA_55 && EVWMA_9 > EMA_55) ~ "buy",
(EMA_9 > EMA_55 && EMA_21 >= EMA_55 && EVWMA_9 > EMA_55 && EVWMA_21 > EMA_55) ~ "strong_buy",
EMA_9 < EMA_55 ~ "possible down",
(EMA_9 < EMA_55 && EVWMA_9 < EMA_55) ~ "watch downward",
(EMA_9 < EMA_55 && EMA_21 <= EMA_55 && EVWMA_9 < EMA_55) ~ "sell",
(EMA_9 < EMA_55 && EMA_21 <= EMA_55 && EVWMA_9 < EMA_55 && EVWMA_21 < EMA_55) ~ "strong_sell",
),
previous_signal = lag(signal, 1),
decision = case_when(
signal == previous_signal ~ "hold",
TRUE ~ signal ) )
問題是&&
返回單個 TRUE/FALSE output 而不是與輸入長度相同的邏輯向量
test %>%
group_by(symbol) %>%
mutate(
signal = case_when(
(EMA_9 > EMA_55) ~ "possible up",
(EMA_9 > EMA_55 & EVWMA_9 > EMA_55) ~ "watch upward",
(EMA_9 > EMA_55 & EMA_21 >= EMA_55 & EVWMA_9 > EMA_55) ~ "buy",
(EMA_9 > EMA_55 & EMA_21 >= EMA_55 & EVWMA_9 > EMA_55 & EVWMA_21 > EMA_55) ~ "strong_buy",
EMA_9 < EMA_55 ~ "possible down",
(EMA_9 < EMA_55 & EVWMA_9 < EMA_55) ~ "watch downward",
(EMA_9 < EMA_55 & EMA_21 <= EMA_55 & EVWMA_9 < EMA_55) ~ "sell",
(EMA_9 < EMA_55 && EMA_21 <= EMA_55 & EVWMA_9 < EMA_55 & EVWMA_21 < EMA_55) ~ "strong_sell",
),
previous_signal = lag(signal, 1),
decision = case_when(
signal == previous_signal ~ "hold",
TRUE ~ signal ) )
邏輯錯誤也。
case_when(
(5 > 3) ~ "Hi",
((5 > 3) & (6 > 3)) ~ "Hello"
)
這不會打印 Hello
盡可能多地使用括號,這會有所幫助。 我總是在 case_when 結束時以 TRUE 結束。 變異是與 Case_when 串聯的一個里程碑。 這是一個例子:
mutate(Intensidad_guerra = case_when(
(MD_P2_filt$battle_type %in% c("pitched battle") | MD_P2_filt$battle_type %in% c("siege")) ~ "nivel alto",
MD_P2_filt$battle_type %in% c("ambush") ~"nivel medio",
TRUE ~ "nivel bajo"))
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.