---
title: "My R Learning Journey"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    social: menu 
    source_code: embed
    self_contained: true
    theme: cosmo
---

```{r setup, include=FALSE}
library(flexdashboard)
library(ggplot2)
library(summarytools)
library(report)

##Data 
data("ChickWeight")
data("Orange")
data("mtcars")
data(cars)
```

# Sidebar {.sidebar}

### 2025 Year-End Accomplishment💫

It is very efficient and beneficial for me to learn such a great skill. I would like to say thank you very much to my teachers.

🎄Merry Christmas and 🎆 Happy New Year!

## Day 1 Introduction to R and R Studio

# Day 1

### My First Code

![My R First Code](images/Screenshot%20(226).png){width="385"}

## My First Histogram

### Age of the Orange Tree

```{r}
hist(Orange$age,col=rainbow(5))
```

## Day 2 Introduction to R and R Studio

# Day 2

### Data Visualization in Base R


### Learning Functions and arguments

```{r}
barplot(table(mtcars$gear),
        main = "Distribution of No. of Gears",
        xlab = "No of Gears",
        ylab = "Frequency",
        col = c("violet", "gold", "lightgreen"),
        names.arg = c("3 gears", "4 gears", "5 gears"))

```

## Day 1 Basic Statistics with R

# Day 3

### Descriptive Statistics


### Summary

```{r}

data("ChickWeight")
summary(ChickWeight$weight)
summary(ChickWeight$Time)
```

## Day 2 Basic Statistics with R

# Day 4

### T test

```{r}
t.test(ChickWeight$weight,mu=122, data=ChickWeight)
report(t.test(ChickWeight$weight,mu=122, data=ChickWeight))
```

## Day 3 Basic Statistics with R

# Day 5

## Correlation

### Speed Vs Distance

```{r}
ggplot(cars, 
       aes(speed, dist)) + 
  geom_point(shape=15, color="gold", size=2)+
  labs(x="Speed",y="Distance", title="Speed vs Distance",
       subtitle = "cars dataset")+
  theme_classic(16)+
  theme(plot.title = element_text(hjust=0.5, 
                                  face="bold"))

```