2026-01-02_happy-new-year.qmd

---
title: Happy New Year
date: 2026-01-02
toc-depth: 4
toc-expand: true
lang: en
---

<center>
![](images/happy_new_year.png){width="60%"}
</center>

```{r}
#| eval: false
# ***** Load packages *****
ggplot2 |> library()
ggforce |> library() # for geom_circle
ggstar |> library() # for geom_star

# ***** Set the coordinates for a magnifying len *****
# Prepare a data frame for a circle/glass
circle <- data.frame(
    x = 50, # x coordinate
    y = 50, # y coordinate
    r = 40 # radius
)

# Prepare a data frame for a line (i.e. the handle of magnifying len)
line <- data.frame(
    x = c(73, 90),
    y = c(20, 0)
)

# Prepare a data frame for the text "Happy New Year"
text <- data.frame(
    x = c(50, 50, 50),
    y = c(70, 50, 30),
    label = c("Happy", "New", "Year")
)

# Prepare a data frame for two stars (left and right)
stars <- data.frame(
    x = c(22, 78),
    y = c(50, 50)
)

# ***** Plot *****
df <- data.frame(
    x = seq(1, 100),
    y = seq(1, 100)    
)

happy_new_year <- df |> 
    ggplot(aes(x = x, y = y)) +
    geom_point(alpha = 0) +
    geom_line(
        data = line,
        aes(x = x, y = y),
        linewidth = 4,
        color = "black"
    ) +
    ggforce::geom_circle(
        data = circle,
        aes(x0 = x, y0 = y, r = r, linewidth = 8),
        color = "#3674C1"
    ) +
    geom_text(
        data = text,
        aes(x = x, y = y, label = label),
        size = 4.2,
        color = "red",
        fontface = "italic"
    ) +
    ggstar::geom_star(
        data = stars,
        aes(x = x, y = y, ),
        starshape = 14,
        size = 2.5,
        color = "gold",
        fill = "gold"
    ) +
    theme_void() +
    theme(
        legend.position = "none"
    )

happy_new_year |> ggsave(
    filename = "images/happy_new_year.png",
    width = 3,
    height = 3,
    units = "cm",
    dpi = 300
)
```

[给我买杯茶🍵](给我买杯茶.qmd)