一年一度，写几行代码，做个红包封面。用了ggplot2, ggimage, shadowtext, showtext, ggtree几个包。