提交: 48d67f767c197006faa5ce03f7c538a6be1bf47d - myprojects-hg-reborn (hg)

Commit MetaInfo

• 修訂: 48d67f767c197006faa5ce03f7c538a6be1bf47d (tree)
• 時間: 2024-03-01 01:40:29
• 作者: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

Minor improvements to the plots and to the axis text.

Change Summary

• modified: R-codes/technical_analysis.R

差異

diff -r 6ec285935d15 -r 48d67f767c19 R-codes/technical_analysis.R
--- a/R-codes/technical_analysis.R	Thu Feb 29 13:59:19 2024 +0100
+++ b/R-codes/technical_analysis.R	Thu Feb 29 17:40:29 2024 +0100
@@ -12,7 +12,7 @@
 
 number_col <- 8 ## how many columns in the panel plots
 
-x_size <- 24
+x_size <- 32
 
 y_size <-   16  
 
@@ -240,6 +240,7 @@
     ggtitle(title_name)+
     facet_wrap( ~symbol, ncol = number_col , scales = "free_y")+
     my_ggplot_theme2("right")+
+    scale_x_date(guide = guide_axis(n.dodge = 2))+
     ylab(paste("Coin Price in ", currency, sep=""))+
     xlab(NULL)
 
@@ -253,6 +254,7 @@
               aes(x = timestamp, y = Volume)) +
     geom_line(linewidth=1)+
     ggtitle(title_name)+
+    scale_x_date(guide = guide_axis(n.dodge = 2))+
     facet_wrap( ~symbol, ncol = number_col , scales = "free_y")+
     my_ggplot_theme2("right")+
     ylab(paste("Coin Volume in ", currency, sep=""))+
@@ -269,6 +271,7 @@
     geom_line(linewidth=1)+
     geom_hline(yintercept=1, color="red")+
     ggtitle(title_name)+
+    scale_x_date(guide = guide_axis(n.dodge = 2))+
     facet_wrap( ~symbol, ncol = number_col , scales = "free_y")+
     my_ggplot_theme2("right")+
     ylab("Normalized Coin Price")+
@@ -285,7 +288,9 @@
     geom_line(linewidth=1)+
     geom_hline(yintercept=1, color="red")+
     ggtitle(title_name)+
+    ## scale_x_date(guide = guide_axis(n.dodge = 2))+
     facet_wrap( ~symbol, ncol = number_col , scales = "free_y")+
+    scale_x_date(guide = guide_axis(n.dodge = 2))+
     my_ggplot_theme2("right")+
     ylab("Normalized Coin Volume")+
     xlab(NULL)
@@ -306,6 +311,7 @@
     geom_line(linewidth=1)+
     ggtitle(title_name)+
     facet_wrap( ~coin, ncol = number_col , scales = "free_y")+
+    scale_x_date(guide = guide_axis(n.dodge = 2))+
     my_ggplot_theme2("right")+
     ylab("Chaikin Accumulator")+
     xlab(NULL)
@@ -319,6 +325,7 @@
               aes(x = timestamp, y = value)) +
     geom_line(linewidth=1)+
     ggtitle(title_name)+
+    scale_x_date(guide = guide_axis(n.dodge = 2))+
     geom_hline(yintercept=0.25, col="red") +
     geom_hline(yintercept=-0.25, col="blue") +
     facet_wrap( ~coin, ncol = number_col , scales = "free_y")+
@@ -338,6 +345,7 @@
               aes(x = timestamp, y = value)) +
     geom_line(linewidth=1)+
     ggtitle(title_name)+
+    scale_x_date(guide = guide_axis(n.dodge = 2))+
     geom_hline(yintercept=50, col="red") +
     geom_hline(yintercept=-50, col="blue") +
     facet_wrap( ~coin, ncol = number_col , scales = "free_y")+
@@ -358,6 +366,7 @@
     ggtitle(title_name)+
     geom_hline(yintercept=80, col="red") +
     geom_hline(yintercept=20, col="blue") +
+    scale_x_date(guide = guide_axis(n.dodge = 2))+
     facet_wrap( ~coin, ncol = number_col , scales = "free_y")+
     my_ggplot_theme2("right")+
     ylab("Money Flow Index")+
@@ -374,6 +383,7 @@
               aes(x = timestamp, y = value)) +
     geom_line(linewidth=1)+
     ggtitle(title_name)+
+    scale_x_date(guide = guide_axis(n.dodge = 2))+
     facet_wrap( ~coin, ncol = number_col , scales = "free_y")+
     my_ggplot_theme2("right")+
     ylab("On Balance Volume")+
@@ -393,6 +403,7 @@
               ) +
     geom_line(linewidth=1)+
     ggtitle(title_name)+
+    scale_x_date(guide = guide_axis(n.dodge = 2))+
     scale_color_manual(values=c("red", "black", "blue"))+
     facet_wrap( ~coin, ncol = number_col , scales = "free_y")+
     my_ggplot_theme2("right")+
@@ -410,6 +421,7 @@
     ggtitle(title_name)+
     geom_hline(yintercept=70, col="red") +
     geom_hline(yintercept=30, col="blue") +
+    scale_x_date(guide = guide_axis(n.dodge = 2))+
     facet_wrap( ~coin, ncol = number_col , scales = "free_y")+
     my_ggplot_theme2("right")+
     ylab("Relative Strength Index")+
@@ -437,6 +449,7 @@
     scale_color_manual(values=c("red", "black", "blue"))+
     facet_wrap( ~coin, ncol = number_col , scales = "free_y")+
     my_ggplot_theme2("right")+
+    scale_x_date(guide = guide_axis(n.dodge = 2))+
     ylab("Aroon Indicator")+
     xlab(NULL)
 
@@ -454,6 +467,7 @@
               ) +
     geom_line(linewidth=1)+
     ggtitle(title_name)+
+    scale_x_date(guide = guide_axis(n.dodge = 2))+
     scale_color_manual(values=c("red", "blue"))+
     facet_wrap( ~coin, ncol = number_col , scales = "free_y")+
     my_ggplot_theme2("right")+