“Unlocking Your Potential

```{rknitr::opts_chunk$set(echo = TRUE, warning = FALSE, message = FALSE) library(ggplot2)}

```{rsmart <- data.frame(
Element = c("Specific", "Measurable", "Achievable", "Relevant", "Time-bound"),
Importance = c(5, 4, 4, 5, 3)
)

ggplot(smart, aes(x = Element, y = Importance)) +
geom_col() +
labs(title = "SMART Goals Framework", y = "Importance Level") +
theme_minimal()}

```{rcycle <- data.frame( Stage = factor(c(“Inspiration”, “Action”, “Results”, “Reflection”), levels = c(“Inspiration”, “Action”, “Results”, “Reflection”)), Value = c(1, 1, 1, 1) )

ggplot(cycle, aes(x = Stage, y = Value, fill = Stage)) + geom_col() + coord_polar() + labs(title = “The Motivation Cycle”) + theme_void()}

```{robstacles <- data.frame(
Mindset = c("Fixed Mindset", "Growth Mindset"),
Outcome = c(2, 5)
)

ggplot(obstacles, aes(x = Mindset, y = Outcome)) +
geom_col() +
labs(title = "Reframing Obstacles", y = "Growth Outcome") +
theme_minimal()}

```{rpyramid <- data.frame( Level = factor(c(“Foundation”, “Skills”, “Teamwork”, “Confidence”, “Greatness”), levels = c(“Foundation”, “Skills”, “Teamwork”, “Confidence”, “Greatness”)), Value = c(5, 4, 3, 2, 1) )

ggplot(pyramid, aes(x = Level, y = Value)) + geom_col() + coord_flip() + labs(title = “Pyramid of Success”) + theme_minimal()}

```{rtime <- 1:10
growth <- c(1, 2, 2.5, 3, 4, 5, 6.5, 8, 10, 13)

df <- data.frame(Time = time, Growth = growth)

ggplot(df, aes(Time, Growth)) +
geom_line() +
geom_point() +
labs(title = "Personal Growth Over Time") +
theme_minimal()}