Merge pull request #17 from plotly/update-violin-plot

Joseph Damiba · web-flow · commit c9966f82082c · 2020-01-22T15:39:47.000-05:00
make sure example violin plots are colored correctly
diff --git a/r/2018-01-16-violin.Rmd b/r/2018-01-16-violin.Rmd
@@ -116,9 +116,7 @@ p <- df %>%
     meanline = list(
       visible = T
     ),
-    line = list(
-      color = 'blue'
-    )
+    color = I("blue")
   ) %>%
   add_trace(
     x = ~day[df$sex == 'Female'],
@@ -132,9 +130,7 @@ p <- df %>%
     meanline = list(
       visible = T
     ),
-    line = list(
-      color = 'pink'
-    )
+    color = I("pink")
   ) %>% 
   layout(
     yaxis = list(
@@ -168,9 +164,7 @@ p <- df %>%
     meanline = list(
       visible = T
     ),
-    line = list(
-      color = 'blue'
-    )
+    color = I("blue")
   ) %>%
   add_trace(
     x = ~day[df$smoker == 'No'],
@@ -185,9 +179,7 @@ p <- df %>%
     meanline = list(
       visible = T
     ),
-    line = list(
-      color = 'green'
-    )
+    color = I("green")
   ) %>% 
   layout(
     xaxis = list(
@@ -239,9 +231,7 @@ for (i in 1:length(unique(df$day))) {
     meanline = list(
       visible = T
     ),
-    line = list(
-      color = "#8dd3c7"
-    ),
+    color = I("#8dd3c7"),
     marker = list(
       line = list(
         width = 2,
@@ -269,9 +259,7 @@ for (i in 1:length(unique(df$day))) {
       meanline = list(
         visible = T
       ),
-      line = list(
-        color = "#bebada"
-      ),
+      color = I("#bebada"),
       marker = list(
         line = list(
           width = 2,
