---
title: "Taylor Austin Swift"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    social: menu
    source_code: embed
    self_contained: true
    vertical_layout: fill
    theme: flatly
---

```{r setup, include=FALSE}
library(flexdashboard)
library(knitr)
library(kableExtra)
# albums
albums_data <- data.frame(
  Year = c(2006, 2008, 2010, 2012, 2014, 2017, 2019, 2020, 2020, 2022, 2024, 2025),
  Album = c("Taylor Swift", "Fearless", "Speak Now", "Red", "1989", "Reputation", "Lover", "Folklore", "Evermore", "Midnights", "The Tortured Poets Department", "The Life of a Showgirl"),
  Era_Color = c("Green", "Yellow", "Purple", "Red", "Light Blue", "Black", "Pink", "Grey", "Brown", "Dark Blue", "White", "Orange/Gold"))
# awards
career_stats <- data.frame(
  Category = c("Grammy Awards", "Billboard Music Awards", "MTV VMAs", "American Music Awards", "Guinness World Records", "Total Album Units (US)"),
  Total = c("14", "54", "30", "40", "120+", "116.7 Million"),
  Status = c("Record Female AOTY Wins", "All-Time Most Wins", "Tied for Most Wins", "All-Time Most Wins", "Global Legend", "Highest Certified Female"))
# tours
all_tours_data <- data.frame(
  Year = c("2009-10", "2011-12", "2013-14", "2015", "2018", "2023-24"),
  Tour_Name = c("Fearless Tour", "Speak Now World Tour", "The Red Tour", "The 1989 World Tour", "Reputation Stadium Tour", "The Eras Tour"),
  Attendance = c("1.20M", "1.64M", "1.70M", "2.28M", "2.88M", "10.16M"),
  Revenue_USD = c("$66M", "$123M", "$150M", "$250M", "$345M", "$2,077M"),
  Shows = c(118, 110, 86, 85, 53, 149))
```

## 

### The Music Industry {data-width="300"}

:::: {style="text-align: justify;"}
::: {style="text-align: justify; padding: 10px;"}
<center>![](Downloads/%20-2.jpg){width="100%"}</center>

<br> Taylor Swift is a global cultural force who transitioned from a teen country prodigy to the most dominant artist in pop history. Over two decades, she has masterfully reclaimed her music through her "Taylor’s Version" project while shattering records with the \$2 billion-grossing Eras Tour. As of late 2025, she has found both artistic and personal peace, recently celebrating her engagement to Travis Kelce and the release of her twelfth studio album. Taylor Swift’s journey is a masterclass in resilience, evolving from a Pennsylvania Christmas tree farm dreamer into the first musician to reach billionaire status purely through music and touring. After a historic battle to reclaim her masters, she successfully regained ownership of her first six albums in 2025.
:::
::::

## Column

### Discography

```{r}
kable(albums_data, caption = "<center><span style='; font-weight: bold; font-size: 1.5em;'>Official Discography: 2006 - 2025</span></center>") |>  kable_classic(full_width = F, html_font = "Arial") |>
  row_spec(0, bold = TRUE)
```
<br>
<center>
![](Downloads/27857540-3d6e-11f0-8731-19176ad798be.jpg){width="328"}

## Column

### Awards

```{r}
kable(career_stats, 
      align = "c", 
      caption = "Career Milestones") |>
  kable_classic(full_width = F, html_font = "Arial") |>
  row_spec(0, bold = TRUE)
```

### Tours

```{r}
kable(all_tours_data, 
      align = "c", 
      col.names = c("Years", "Tour Title", "Total Attendance", "Gross Revenue", "Shows"),
      caption = "Global Concert Tour Statistics") |>
  kable_classic(full_width = F, html_font = "Arial") %>%
  row_spec(0, bold = TRUE)
```