library(hexSticker)
library(UCSCXenaTools)
library(dplyr)
library(ggpubr)
df = XenaData %>%
dplyr::group_by(XenaHostNames) %>%
dplyr::summarise(count = n())
# reference https://rpkgs.datanovia.com/ggpubr/
ggdotchart(df, x = "XenaHostNames", y = "count",
color = "XenaHostNames",
palette = "jco",
sorting = "descending", # Sort value in descending order
add = "segments", # Add segments from y = 0 to dots
rotate = TRUE, # Rotate vertically
dot.size = 2, # Large dot size
label = round(df$count), # Add mpg values as dot labels
font.label = list(color = "white", size = 2,
vjust = 0.5), # Adjust label parameters
ggtheme = theme_void()) + # ggplot2 theme
theme_transparent() + theme(legend.position = "none") -> p
sticker(p, package="UCSCXenaTools", p_size=4.5, s_x=0.9, s_y=1, s_width=1.7, s_height=1.3,
p_x = 1.1, p_y = 0.9,
url = "https://cran.r-project.org/package=UCSCXenaTools", u_color = "white", u_size = 1,
h_fill="black", h_color="grey",
filename="man/figures/logo.png")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.