--- a
+++ b/inst/develop.R
@@ -0,0 +1,28 @@
+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")