inst/develop.R

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")
ropensci/UCSCXenaTools documentation built on Jan. 27, 2024, 6:30 a.m.