1 Data Prep

TPT.IDX <- read.csv("D:/Onedrive/AmiBroker 6.40/Stock Explorer List/MMD4DS.csv")
TPT.IDX$DateTime <- as.Date(TPT.IDX$DateTime, "%m/%d/%Y")
TPT.IDX$ChTurnover <- as.numeric(TPT.IDX$ChTurnover)

## Date ##
selected.date <-  print("2022-11-10")
## [1] "2022-11-10"
Date.Signs <- selected.date
Date.Signs2 <- "Based on Trading Date 10 November 2022"
Date.Signs3 <- c("based on Trading Date:", Date.Signs)
# format(Date.Signs, format = "%B %d %Y")

## New Files ##

TPT <- TPT.IDX %>%
  filter(DateTime == selected.date)

TPT.2D <- TPT.IDX %>% 
  filter(between(DateTime, Date.Signs %-time% "1 day", max(Date.Signs))) %>% 
  arrange(DateTime, Ticker)

dandy.rotation <- TPT %>% 
  mutate(RCBB = RC.BB - PrevRC.BB,
         kairiRC = round(((RC.JKSE - MA.RC)/MA.RC*100),2))

## Aesthetic ##

TPT$RCTrendSignal<- factor(TPT$RCTrendSignal, levels = c("---", "O/P Trend Signal", "U/P Trend Signal"))
TPT$RCMomentumSignal <- factor(TPT$RCMomentumSignal, levels = c("U/P Momentum Signal", "---", "O/P Momentum Signal"))
TPT$SOSignal <- factor(TPT$SOSignal, levels = c("Still Buy", "Alert Buy", "Buy Now", "Still Sell", "Warning Sell", "Sell Now"))
TPT$Trend <- factor(TPT$Trend, levels = c("New Uptrend", "Uptrend", "New Downtrend", "Downtrend", "---"))

RCTrendSignal.shape <- c("O/P Trend Signal" = 2, "U/P Trend Signal" = 6, "---" = 1)
Trend.color <- c("New Uptrend" = "blue", "Uptrend" = "#009900", "New Downtrend" = "orange", "Downtrend" = "red", "---" = "gray")
SOSignal.shape <- c("Alert Buy" = 3, "Buy Now" = 2,"Warning Sell" = 4, "Sell Now" = 6, "Still Buy" = 1,"Still Sell" = 19)

TPT$MA200 <- ifelse(TPT$KairiMA200 >= 0, "Above MA200", "Below MA200")

2 Super Quadrant Stocks - Stable Algorithm

2.1 Super Quadrant Stocks : Consumer and Interest Rate Sector

2.3 New Outperform Trend

2.4 Super Quadrant Stocks : Champion Quadrant & Uptrend

2.5 Super Quadrant Stocks : Champion Quadrant (Short Term Return Graphic)

2.6 Super Quadrant Stocks : Champion Quadrant (Medium Term Return Graphic)

2.7 Cluster Stocks in Champion Quadrant and Uptrend

2.7.1 Table

2.7.2 Table (cluster)

2.7.2.1 Super Quadrant Stocks : Champion Quadrant with Cluster (Short Term Return Graphic)

2.7.2.2 Super Quadrant Stocks : Champion Quadrant with Cluster (Medium Term Return Graphic)

3 General Cluster

3.1 1D, 5D, 20D & YTD Return

Table dan Grafik ini menggolongkan saham pada return 1, 5, 20 hari dan YTD (dari sejak awal tahun 2020).

3.1.1 Graph YTD - 5D

3.1.2 Graph YTD - 60D

3.1.3 Graph 60D - 20D

3.1.4 Graph 20D - 5D

3.1.5 Graph 1D - 5D

3.1.6 Table

4 Ch Turnover

5 Draft : 2 Days Comparison