first attempt at supporting geom_jitter

Author: 13bzhang

R/trace_generation.R

@@ -556,6 +556,35 @@ geom2trace <- list(
     }
     L
   },
+  jitter=function(data, params){
+    L <- list(x=data$x,
+              y=data$y,
+              name=params$name,
+              text=data$text,
+              type="scatter",
+              mode="markers",
+              marker=paramORdefault(params, aes2marker, marker.defaults))
+    if("size" %in% names(data)){
+      L$text <- paste("size:", data$size)
+      L$marker$sizeref <- default.marker.sizeref
+      # Make sure sizes are passed as a list even when there is only one element.
+      s <- data$size
+      marker.size <- 5 * (s - params$sizemin)/(params$sizemax - params$sizemin) + 0.25
+      marker.size <- marker.size * marker.size.mult
+      L$marker$size <- if (length(s) > 1) marker.size else list(marker.size)
+      L$marker$line$width <- 0
+    }
+    if (!is.null(params$shape) && params$shape %in% c(21:25)) {
+      L$marker$color <- ifelse(!is.null(params$fill), toRGB(params$fill), "rgba(0,0,0,0)")
+      if (!is.null(params$colour))
+        L$marker$line$color <- toRGB(params$colour)
+      L$marker$line$width <- 1
+    }
+    if (!is.null(params$shape) && params$shape %in% c(32)) {
+      L$visible <- FALSE
+    }
+    L
+  },
   text=function(data, params){
     L <- list(x=data$x,
               y=data$y,