Happy Chinese new year 2025!

On the 28th Jan, 2025, we celebrate Chinese new year together at KI spot.

Chinese new year’s eve dinner menu

It took me two days to make this menu.

Chinese new year’s eve dinner

Video showing all dishes

We also get red pocket here

Distribution of red pocket.

R code for generating distribution figure above

library(ggplot2)
library(ggpattern)
red_packet_amount <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
red_packet_number <- c(2, 2, 5, 5, 7, 5, 2, 0, 0, 4)
red_data <- data.frame(
  amount = red_packet_amount,
  count = red_packet_number
)
total <- sum(red_data$count)
red_data$percentage <- round(red_data$count / total * 100, 1)
red_data$label <- ifelse(
  red_data$count == 0,
  "",
  sprintf("%d (%.1f%%)", red_data$count, red_data$percentage)  # set format
)
# png(file="Red_Packet_Distribution.png")
column_plot = ggplot(red_data, aes(x = factor(amount), y = count)) +
  geom_col_pattern(
    fill = "white", # set background fill color
    pattern = "stripe", # use stripe to fill
    pattern_fill = "white", # set color between stripes
    pattern_color = "darkorange", # set color for stripe
    pattern_density = 0.25, # set density of stripes
    pattern_spacing = 0.01, # set space of stripes
    pattern_angle = 45, # set angle of stripes
    color = "darkblue", # set color for border
    linewidth = 0.3 # set volume border line width
  ) +
  # add label
  geom_text(
    aes(label = label),
    vjust = -0.3, # set vertical position
    size = 3,
    color = "darkblue"
  ) +
  labs(
    title = "Red Packet Distribution",
    x = "Red Packet Amount",
    y = "Count"
  ) +
  theme_bw() +
  theme(
    panel.border = element_rect(color = "black", fill = NA, linewidth = 1),
    axis.line = element_line(color = "black", linewidth = 0.5),
    panel.grid.major.x = element_blank(),
    plot.title = element_text(
      hjust = 0.5, # horizontal position (0 = left, 0.5 = center, 1 = right)
      size = 14,
      face = "bold" # bold title
    )
  )
# dev.off()
ggsave("Red_Packet_Distribution.png", plot = column_plot, dpi = 600)

New Year greetings from the hometown government