Commit: 6ec285935d15d49990aab56532eb203004cab23a - myprojects-hg-reborn (hg)

Commit MetaInfo

• Revisión: 6ec285935d15d49990aab56532eb203004cab23a (tree)
• Tiempo: 2024-02-29 21:59:19
• Autor: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

I added an extra plot on th performance of my assets plus I cleaned the code.

Cambiar Resumen

• modified: R-codes/technical_analysis.R

Diferencia incremental

diff -r fbb6ea23a317 -r 6ec285935d15 R-codes/technical_analysis.R
--- a/R-codes/technical_analysis.R	Thu Feb 29 09:01:40 2024 +0100
+++ b/R-codes/technical_analysis.R	Thu Feb 29 13:59:19 2024 +0100
@@ -3,9 +3,9 @@
 library(tidyverse)
 library(crypto2)
 library(TTR)
-
-
-
+library(openxlsx)
+library(janitor)
+library(scales)
 
 source("/home/lorenzo/myprojects-hg/R-codes/stat_lib.R")
 
@@ -16,35 +16,99 @@
 
 y_size <-   16  
 
-days_back <- 90
+days_back <- 40
 
 final_day <- gsub('-', '', today())
 
-initial_day <- gsub('-', '', today()-days_back)
+initial_day <- gsub('-', '', today()-days_back-1)
 
 currency <- ## "EUR"
 "USD"
 
-mylist_slug <- c("cardano" ,  "avalanche",
-                 "injective",
-                 "chainlink", "mina", "xrp",
-                 "cosmos", "polygon", "optimism-ethereum",
-                 "algorand", "kava", "solana", "cartesi",
-                 "near-protocol", "mantra", "polkadot-new", "axie-infinity",
-                  "alchemy-pay", "pancakeswap", "dodo",
-                 "floki-inu",
-                 "arbitrum"
-                 ,"celestia"
-               , "apecoin-ape",
-                 "celestia", "aave", "biswap", "moonbeam", "bitcoin",
-                 "bnb", "skale-network", "ethereum", "harmony"
-                 )
+
+n_assets <- 16 ## how many assets to consider
+
+value_min <- 2 ## min_value of the asset to be considered
+
+## mylist_slug <- c("cardano" ,  "avalanche",
+##                  "injective",
+##                  "chainlink", "mina", "xrp",
+##                  "cosmos", "polygon", "optimism-ethereum",
+##                  "algorand", "kava", "solana", "cartesi",
+##                  "near-protocol", "mantra", "polkadot-new", "axie-infinity",
+##                   "alchemy-pay", "pancakeswap", "dodo",
+##                  "floki-inu",
+##                  "arbitrum"
+##                  ,"celestia"
+##                , "apecoin-ape",
+##                  "celestia", "aave", "biswap", "moonbeam", "bitcoin",
+##                  "bnb", "skale-network", "ethereum", "harmony",
+##                  "phala-network" 
+##                  )
+
+
+## mylist_slug <- c("cardano" ,  "avalanche",
+##                  "injective"## ,
+##                ##   "chainlink", "mina", "xrp",
+##                ##   "cosmos", "polygon", "optimism-ethereum",
+##                ##   "algorand", "kava", "solana", "cartesi",
+##                ##   "near-protocol", "mantra", "polkadot-new", "axie-infinity",
+##                ##    "alchemy-pay", "pancakeswap", "dodo",
+##                ##   "floki-inu",
+##                ##   "arbitrum"
+##                ##   ,"celestia"
+##                ## , "apecoin-ape",
+##                ##   "celestia", "aave", "biswap", "moonbeam", "bitcoin",
+##                ##   "bnb", "skale-network", "ethereum", "harmony",
+##                ##   "phala-network" 
+##                  )
+
+
+
+my_symbol_list <- read_excel("portfolio_summary.xlsx") |>
+    arrange(desc(total_value_usdt)) |>
+    ## slice(1:n_assets) |>
+    filter(total_value_usdt>value_min) |> 
+    mutate(asset=if_else(asset=="BEAMX", "BEAM", asset)) |> 
+    pull(asset)
+
 
 coins_all <- crypto_list(only_active=TRUE)
 
+slug_negation <- c("bigone-token","onedex", "onetoken",
+                   "apecoin", "apemove","arbit", "arb-protocol",
+                   "beam", "shiba-floki", "baby-moon-floki", "bonk-bnb",
+                   "strike","meta-dance", "starknet-token"
+                   )
 
 coins <- coins_all |>
-    filter(slug %in% mylist_slug)
+    filter(symbol %in% my_symbol_list) |>
+    filter(slug %!in% slug_negation) ## |> 
+    ## select(-c(rank, id, is_active, last_historical_data))
+
+## mylist_slug <- coins_temp |>
+##     select(symbol,slug)  |>
+##     arrange(symbol) |>
+##     filter(slug %!in% c("apecoin", "apemove", "arbit",
+##                         "arb-protocol",
+##                         "bigone-token", "onedex", "onetoken",
+##                         "shiba-floki", "baby-moon-floki",
+##                         "strike", "connect-united",
+##                         "beam", "bonk-bnb",
+##                         "meta-dance",
+##                         "pixelverse"),
+##            symbol %!in% c("PEPE", "XAI", "PIXEL", "PORTAL")) |>
+##     pull(slug)
+
+## coins <- coins_all |>
+##     filter(slug %in% mylist_slug)
+
+
+## coins <- coins_all |>
+##     filter(slug %in% mylist_slug)
+
+
+
 
 coin_hist <- crypto_history(coins,
                             convert = currency,
@@ -400,8 +464,57 @@
 
 ggsave(fname, gpl, width=x_size,height=y_size)
 
+#####################################################################
+
+##calculate the performance of the coins along the period.
+
+## coin_ini_end <- coin_hist |>
+##     select(symbol, timestamp, Close) |> 
+##     group_by(symbol) |>
+##     arrange(timestamp) |>
+##     slice(c(1, n())) |>
+##     ungroup()
+
+## coin_performance <- coin_ini_end |>
+##     group_by(symbol) |>
+##     summarise(performance=(Close[2]-Close[1])/Close[1]) |>
+##     ungroup() |>
+##     arrange(performance) |>
+##     mutate(perc_perf=format_col_percentage(performance*100, 1))
 
 
+## growth rates along period
+
+coin_growth <- coin_hist |>
+    group_by(symbol) |>
+    summarise(growth=(Close[n()]-Close[1])/Close[1]) |>
+    ungroup() |>
+    arrange(growth) |>
+    mutate(name_symb=fct_inorder(symbol)) |>
+    mutate(relation_to_median=if_else(growth>= median(growth),
+                                      "Above the median", "Below the median")) |>
+    mutate(perc_perf=format_col_percentage(growth*100, 1))
+
+
+
+gpl3 <- ggplot(coin_growth, aes(y=name_symb, x=growth,
+                                fill=relation_to_median)) +
+    geom_bar(stat = "identity") +
+    geom_text(aes(label=perc_perf),
+              position=position_dodge(width=0.9), hjust=0,
+              size=5)+
+    
+    ggtitle(title_name)+
+    scale_x_continuous(labels = label_percent(),
+                       expand = c(0.,0.1), limits = c(NA, NA)) +
+    my_ggplot_theme2("top")+
+    ggtitle(title_name)+
+    scale_fill_manual(NULL, values=c("blue", "red")) +
+    xlab("Growth along Period")+
+    ylab(NULL)
+
+
+ggsave("./history_usdt/growth_rates.pdf", gpl3, width=12,height=8)