Merged returns and cumulative returns into a performance section

Author: nakim12

README.md

@@ -22,7 +22,7 @@ This project started as an RMarkdown-based analysis and evolved into a full-feat
 - **Sector Filtering**: Choose from Technology, Financial, Healthcare, Consumer, and Energy sectors.
 - **Multi-Ticker Comparison**: Select and compare multiple tickers simultaneously.
 - **Price Trend Visualization**: View adjusted prices with customizable moving averages.
-- **Daily & Cumulative Returns**: Visualize short- and long-term return patterns.
+- **Performance**: Cumulative growth, daily returns, return distributions, and a summary table in one view.
 - **Return Distribution**: Explore histograms of daily return volatility for each stock.
 - **ARIMA Forecasting**:
   - Conservative vs. Aggressive forecast modes

app.R

@@ -184,23 +184,26 @@ ui <- navbarPage(
     )
   ),
 
-  # ── Tab 3: Returns (existing) ──────────────────────────────────────────────
+  # ── Tab 4: Performance (daily + cumulative returns) ───────────────────────
 
-  tabPanel("Returns",
+  tabPanel("Performance",
     mainPanel(
-      withSpinner(plotOutput("returnsPlot"),        type = 4, color = "darkturquoise"),
+      h3("Cumulative performance"),
+      tags$p(class = "text-muted",
+        "Growth of $1 invested over the selected period (same tickers as Price Trend)."
+      ),
+      withSpinner(plotOutput("cumulativePlot", height = "400px"),
+        type = 4, color = "darkturquoise"),
       hr(),
-      withSpinner(plotOutput("returnDistribution"), type = 4, color = "darkturquoise")
-    )
-  ),
-
-  # ── Tab 4: Cumulative Returns (existing) ───────────────────────────────────
-
-  tabPanel("Cumulative Returns",
-    mainPanel(
-      withSpinner(plotOutput("cumulativePlot"), type = 4, color = "darkturquoise"),
+      h3("Daily returns"),
+      withSpinner(plotOutput("returnsPlot", height = "380px"),
+        type = 4, color = "darkturquoise"),
+      hr(),
+      h3("Return distributions"),
+      withSpinner(plotOutput("returnDistribution", height = "400px"),
+        type = 4, color = "darkturquoise"),
       hr(),
-      h4("Performance Summary"),
+      h3("Performance summary"),
       withSpinner(tableOutput("performanceSummary"), type = 4, color = "darkturquoise")
     )
   ),
@@ -238,7 +241,7 @@ ui <- navbarPage(
     )
   ),
 
-  # ── Tab 6: Risk Analysis (existing) ────────────────────────────────────────
+  # ── Tab 6: Risk Analysis ───────────────────────────────────────────────────
 
   tabPanel("Risk Analysis",
     sidebarLayout(