Skip to content

Choice for displaying either level names or level counts #5

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
LPDagallier wants to merge 2 commits into
base: main
Choose a base branch
from
Open

Choice for displaying either level names or level counts #5

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
d5cf450
Allow to choose between displaying level names or level counts
LPDagallier Apr 17, 2018
d57560c
Update parallel.R
LPDagallier Apr 17, 2018
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
13 changes: 10 additions & 3 deletions R/parallel.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -42,6 +42,7 @@
#' displays) of the widest line as ratio of the overall display height (width
#' for horizontal displays).
#' @param label binary variable (vector), whether labels should be shown.
#' @param label.type which label type to display, either level names (label.type = "names") or level count (label.type = "count").
#' @param label.size numeric value to determine the size in which labels are shown, defaults to 4
#' @param label.colour character of colour in which the label should be shown. Ignored, if `label` is FALSE.
#' @param text.angle numeric value to determine the angle under which labels are shown.
Expand All @@ -57,7 +58,7 @@
#' @example inst/examples/ggparallel-ex.R
ggparallel <- function(vars=list(), data, weight=NULL, method="angle",
alpha=0.5, width = 0.25, order = 1, ratio=NULL,
asp = NULL, label = TRUE, label.colour="grey90", label.size=4, text.angle=90,
asp = NULL, label = TRUE, label.type = "names", label.colour="grey90", label.size=4, text.angle=90,
text.offset=NULL, same.level=FALSE, ...) {
### error checking
vars <- unlist(vars)
Expand Down Expand Up @@ -278,8 +279,14 @@ ggparallel <- function(vars=list(), data, weight=NULL, method="angle",
if (is.null(text.offset)) text.offset <- 0
label.stats$text.offset <- rep(text.offset, length=nrow(label.stats))

varnames <- paste(unlist(vars), sep="|", collapse="|")
label.stats$labels <- gsub(sprintf("(%s):(.*)",varnames),"\\2", as.character(label.stats$Nodeset))
if (label.type == "names") {
varnames <- paste(unlist(vars), sep="|", collapse="|")
label.stats$labels <- gsub(sprintf("(%s):(.*)",varnames),"\\2", as.character(label.stats$Nodeset))
}
if (label.type == "count") {
label.stats$labels <- label.stats$weight
}

llabels <- list(#geom_text(aes(x=as.numeric(variable)+text.offset, y=ypos, label=labels),
# colour = "grey20", data=label.stats, angle=text.angle, size=label.size),
geom_text(aes(x=as.numeric(variable)+0.01+text.offset, y=ypos-0.01, label=labels),
Expand Down