| Type: | Package |
| Title: | Just Plot for Fun |
| Version: | 0.1.1 |
| Description: | Explore the world of R graphics with fun and interesting plot functions! Use make_LED() to create dynamic LED screens, draw interconnected rings with Olympic_rings(), and make festive Chinese couplets with chunlian(). Unleash your creativity and turn data into exciting visuals! |
| License: | GPL-3 |
| Encoding: | UTF-8 |
| RoxygenNote: | 7.2.3 |
| Depends: | R (≥ 4.1.0) |
| Imports: | magrittr, ggplot2, stats, utils, grDevices, reshape2, graphics, pcutils, ggforce, plot3D, magick, gifski, showtext, sysfonts |
| Suggests: | wordcloud2, geomtextpath |
| NeedsCompilation: | no |
| Packaged: | 2024-03-20 11:25:19 UTC; asa |
| Author: | Chen Peng  [aut,
cre] |
| Maintainer: | Chen Peng <pengchen2001@zju.edu.cn> |
| Repository: | CRAN |
| Date/Publication: | 2024-03-20 12:30:05 UTC |
plot4fun: Just Plot for Fun
Description
Explore the world of R graphics with fun and interesting plot functions! Use make_LED() to create dynamic LED screens, draw interconnected rings with Olympic_rings(), and make festive Chinese couplets with chunlian(). Unleash your creativity and turn data into exciting visuals!
Author(s)
Maintainer: Chen Peng pengchen2001@zju.edu.cn (ORCID)
Pipe operator
Description
See magrittr::%>% for details.
Usage
lhs %>% rhs
Arguments
lhs |
A value or the magrittr placeholder. |
rhs |
A function call using the magrittr semantics. |
Value
The result of calling rhs(lhs).
Plot a DNA double helix
Description
Plot a DNA double helix
Usage
DNA_plot(
col_DNA = "#377EB8",
col_ATCG = c("#7FC97F", "#FB8072", "#FFFFB3", "#A6CEE3"),
DNA_length = 2
)
Arguments
col_DNA |
col_DNA, "#377EB8" |
col_ATCG |
col_ATCG, c("#7FC97F","#FB8072","#FFFFB3","#A6CEE3") |
DNA_length |
DNA_length, 2 |
Value
ggplot
References
https://github.com/SherryDong/create_plot_by_R_base
Examples
DNA_plot()
Plot the Olympic rings
Description
Plot the Olympic rings
Usage
Olympic_rings()
Value
ggplot
Examples
Olympic_rings()
Draw a Chunlian (Spring Festival couplet) using ggplot2
Description
Draw a Chunlian (Spring Festival couplet) using ggplot2
Usage
chunlian(
words = NULL,
bg_size = 20,
bg_shape = 22,
bg_fill = "red2",
text_size = 10,
text_params = list(),
font_file = NULL,
download_dir = "plot4fun_temp"
)
Arguments
words |
A character vector containing three strings for the three lines of the couplet |
bg_size |
Size of the points in geom_point, 20 |
bg_shape |
Shape of the points in geom_point (21~25), 22 or 23 are very good. |
bg_fill |
Fill color of the points in geom_point |
text_size |
Size of the text in geom_text, 10 |
text_params |
parameters parse to geom_text |
font_file |
font file, e.g XX.ttf, XX.ttc |
download_dir |
download_dir for font_file |
Value
A ggplot object representing the Chunlian
Plot clock
Description
Plot clock
Usage
clock(
x = format(Sys.time(), "%H:%M"),
time_label = as.roman(1:12),
rotate_text = FALSE,
text_color = "black",
bg_color = "white",
pointer_color = "black"
)
Arguments
x |
time, defalut: format(Sys.time(), "%H:%M"), e.g. 12:30 |
time_label |
time_label, default: as.roman(1:12) |
rotate_text |
rotate_text, FALSE |
text_color |
text_color, "black" |
bg_color |
bg_color, "white" |
pointer_color |
pointer_color, "black" |
Value
ggplot
References
https://allancameron.github.io/geomtextpath/
Examples
clock()
convert a character to 01 matrix
Description
convert a character to 01 matrix
Usage
convert_chr_to_matrix(
char,
size = 32,
font_file = NULL,
picture_dir = tempdir()
)
Arguments
char |
a character |
size |
32 |
font_file |
font_file |
picture_dir |
where to save the temporary picture |
Value
chr_mat
Examples
convert_chr_to_matrix("A")
convert a imgage to 01 matrix
Description
convert a imgage to 01 matrix
Usage
convert_img_to_matrix(image_file, size = 32, breaks = 2)
Arguments
image_file |
image_file |
size |
32 |
breaks |
breaks, default 2 |
Value
chr_mat
Give you a rose
Description
Give you a rose
Usage
give_you_a_rose(color = "red3")
Arguments
color |
"skyblue3" |
Value
plot
References
https://mp.weixin.qq.com/s/W-BYPR3UXL120XWpTmN3rA
Life Game Simulation
Description
Life Game Simulation
Usage
life_game(
save_file = NULL,
size = 20,
time = 20,
fps = 0.75,
colors = c("black", "green4"),
...
)
Arguments
save_file |
gif filename |
size |
size of the world |
time |
how many times the life game continue. |
fps |
fps, 0.75 |
colors |
c("green4", "black") |
... |
add |
Value
a gif file
References
https://zhuanlan.zhihu.com/p/136727731
Examples
if (interactive()) life_game()
make a LED screen
Description
make a LED screen
Usage
make_LED(
chars = "SOS!",
save_file = NULL,
LED_width = NULL,
speed = 32,
fps = 10,
colors = c("grey", "red2"),
LED_height = 32,
image_scale = 10,
...
)
Arguments
chars |
chars |
save_file |
save_file |
LED_width |
LED_width |
speed |
pixel speed, default 32 |
fps |
frame per second, 10 |
colors |
c("grey","red2") |
LED_height |
LED_height, 64 |
image_scale |
image scale, 10 |
... |
add |
Value
gif file
Examples
if (interactive()) make_LED("SOS!")
Word cloud plot
Description
Word cloud plot
Usage
my_wordcloud(
str_vector,
ignore_words = "Unclassified|uncultured|Ambiguous|Unknown|unknown|metagenome|Unassig",
topN = 50
)
Arguments
str_vector |
string vector |
ignore_words |
ignore_words |
topN |
topN, 50 |
Value
a htmlwidget
Examples
data(otutab, package = "pcutils")
if (requireNamespace("wordcloud2")) {
my_wordcloud(taxonomy$Genus)
}
Plot a chr_mat
Description
Plot a chr_mat
Usage
## S3 method for class 'chr_mat'
plot(x, colors = c("grey", "red2"), random = FALSE, ...)
Arguments
x |
chr_mat object |
colors |
c("grey","red2") |
random |
add random |
... |
add |
Value
plot
Plot a github style calendar
Description
Plot a github style calendar
Usage
show_github_calendar(usr = "asa12138", color = NULL, save_file = NULL, ...)
Arguments
usr |
github username |
color |
color, NULL |
save_file |
save_file, NULL |
... |
add |
Value
a svg file