add2blog

The goal of add2blog is to help you build some materials like wall paper for your blog website !

Installation

You can install the released version of add2blog from Github with:

devtools::install_github('JiaxiangBU/add2blog')

library(add2blog)

Usage

library(tidyverse)
#> ─ Attaching packages ────────────────────────────────────── tidyverse 1.2.1 ─
#> ✔ ggplot2 3.1.0     ✔ purrr   0.2.5
#> ✔ tibble  1.4.2     ✔ dplyr   0.7.8
#> ✔ tidyr   0.8.2     ✔ stringr 1.3.1
#> ✔ readr   1.1.1     ✔ forcats 0.3.0
#> ─ Conflicts ──────────────────────────────────────── tidyverse_conflicts() ─
#> ✖ dplyr::filter() masks stats::filter()
#> ✖ dplyr::lag()    masks stats::lag()

png2gif

png2gif(
path = file.path('../','inst')
,input_like = 'reprex'
,output_name = 'reprex201811061210.gif'
)

digit_plot

1. Extract the position and corresponding grey degree.
2. The users give some digits which have corresponding grey degree.
3. Put the digits (at the similar level of grey degree) into the position.

digit_plot(
    digit_raw='lijiaxiang'
    ,img_path=here::here('inst','pic','lijiaxiang.png')
    ,resize = 0.15
    ,bin = 0.4
    ,digit_size = 4
    ,alpha = 0.8
)
ggsave(here::here('inst','pic','lijiaxiang_digit.png'))

knitr::include_graphics(here::here('inst','pic','lijiaxiang_digit.png'))

Example

See the vignettes.