Commit 35f547a0 authored by Quentin Read's avatar Quentin Read
Browse files

try out ggfittext

parent b5435b31
......@@ -187,7 +187,9 @@ server <- function(input, output, session) {
ggplot(do.call(aes_string, aes_args)) + # Pass the named list of axis variables to aes()
geom_alluvium(aes(fill = factor(Cluster)), knot.pos = 1/4) + # color for connections. Now using straight lines for easier clicking on shapes.
geom_stratum(width = node_width, reverse = TRUE) + # plot the boxes over the connections
geom_text(aes(label = after_stat(stratum)), stat = "stratum", reverse = TRUE, size = rel(1.5)) + # plot the text
geom_fit_text(aes(label = after_stat(stratum)), stat = "stratum", reverse = TRUE,
padding.x = unit(0.75, "mm"), padding.y = unit(0.4, "mm"),
width = 1/4, min.size = 2, reflow = TRUE) + # plot the text
fill_scale + # the user-defined colors of each cluster
x_scale + # names on x axis
y_scale + # title of y axis
......
......@@ -8,6 +8,7 @@ dependencies <- read.csv(textConnection("
DT, 0.13,
shiny, 1.4.0.2,
grid, 4.0.0,
ggfittext, 0.9.0,
"), stringsAsFactors = FALSE, strip.white = TRUE)
# Import installed package versions
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment