transparent backgrounds

DESCRIPTION

@@ -1,7 +1,7 @@
-Package: ggupset
+Package: ggupsetJAK
 Type: Package
 Title: Combination Matrix Axis for 'ggplot2' to Create 'UpSet' Plots
-Version: 0.3.0
+Version: 0.3.4
 URL: https://github.com/const-ae/ggupset
 BugReports: https://github.com/const-ae/ggupset/issues
 Authors@R: person("Constantin", "Ahlmann-Eltze", email = "artjom31415@googlemail.com", 
@@ -15,7 +15,7 @@ Description: Replace the standard x-axis in 'ggplots' with a combination matrix
 License: GPL-3
 Encoding: UTF-8
 LazyData: true
-RoxygenNote: 7.0.2
+RoxygenNote: 7.1.1
 Depends:
     R (>= 2.10)
 Suggests: 

R/axis_combmatrix.R

@@ -252,18 +252,21 @@ make_combination_matrix_plot <- function(labels, labels_split, label_set, range,
 
   plt <- ggplot(df2, aes(x= .data$at, y= .data$single_label))
   if(isTRUE(theme$combmatrix.panel.striped_background)){
-    plt <- plt + geom_rect(aes(fill= .data$index %% 2 == 0), ymin=df2$index-0.5, ymax=df2$index+0.5, xmin=0, xmax=1)
+    plt <- plt +
+      geom_rect(aes(fill= .data$index %% 2 == 0), ymin=df2$index-0.5, ymax=df2$index+0.5, xmin=0, xmax=1)
   }
 
   plt <- plt +
     geom_point(aes(color= .data$observed), size=theme$combmatrix.panel.point.size)
+
   if (!isTRUE(theme$combmatrix.panel.line.size == 0)) {
     # If combmatrix.panel.line.size is not a single number equal to 0, add the
     # lines. (ifFALSE is available starting in v3.5)
     plt <- plt + geom_line(
       data=function(dat) dat[dat$observed, ,drop=FALSE],
       aes(group = .data$labels),
-      size=theme$combmatrix.panel.line.size
+      size=theme$combmatrix.panel.line.size,
+      color=theme$combmatrix.panel.line.color
     )
   }
   plt +
@@ -276,7 +279,11 @@ make_combination_matrix_plot <- function(labels, labels_split, label_set, range,
                                  `FALSE` = theme$combmatrix.panel.point.color.empty)) +
     guides(color="none", fill="none") +
     theme(
+      rect = element_rect(fill = 'transparent', color = 'transparent'),
+      plot.background = element_rect(fill = 'transparent', color = 'transparent'),
       panel.background = element_blank(),
+      panel.grid.major = element_blank(),
+      panel.grid.minor = element_blank(),
       axis.text.y = theme$combmatrix.label.text %||% theme$axis.text.y,
       axis.text.x = element_blank(),
       axis.ticks.y = element_blank(),

R/theme_combmatrix.R

@@ -33,6 +33,8 @@
 #'   in the combination matrix. Default: 3
 #' @param combmatrix.panel.line.size Number to specify the size of the lines
 #'   connecting the points. Default: 1.2
+#' @param combmatrix.panel.line.color Color of the lines connecting the points.
+#'   Default: "black"
 #' @param combmatrix.panel.point.color.fill Color of the filled points.
 #'   Default: "black"
 #' @param combmatrix.panel.point.color.empty Color of the empty points.
@@ -72,6 +74,7 @@ theme_combmatrix <- function(
   combmatrix.panel.striped_background.color.two = "#F7F7F7",
   combmatrix.panel.point.size = 3,
   combmatrix.panel.line.size = 1.2,
+  combmatrix.panel.line.color = "black",
   combmatrix.panel.point.color.fill = "black",
   combmatrix.panel.point.color.empty = "#E0E0E0",
   ...
@@ -89,6 +92,7 @@ theme_combmatrix <- function(
     combmatrix.panel.striped_background.color.two = combmatrix.panel.striped_background.color.two,
     combmatrix.panel.point.size = combmatrix.panel.point.size,
     combmatrix.panel.line.size = combmatrix.panel.line.size,
+    combmatrix.panel.line.color = combmatrix.panel.line.color,
     combmatrix.panel.point.color.fill = combmatrix.panel.point.color.fill,
     combmatrix.panel.point.color.empty = combmatrix.panel.point.color.empty,
     ...,