{"size":{"Width":697,"Height":290},"appearance":{"background":"white","padding":14,"font":{"family":"Courier New","size":10.0,"bold":false,"italic":false,"underline":false,"strikeout":false,"color":"rgb(0,72,168)"},"border":{"on":true,"size":0.0,"style":"solid","color":"#666"},"text":{"wrap":false,"hAlign":"left","vAlign":"top"}},"outputType":"WIDGET","widgetState":null,"outputs":{"console":"<pre class='debug-source'>>library(flipStandardCharts)\n</pre>\n<pre class='debug-source'>>dat <- if (!exists("formDataType") || formDataType == "Use an existing table") {\n formTable\n} else\n flipTransformations::ParseEnteredData(formEnteredData)\n</pre>\n<pre class='debug-source'>>\n</pre>\n<pre class='debug-source'>>chart.8 <- Chart(y = if (exists("formMultiplyBy100") && formMultiplyBy100) 100 * dat else dat,\n type = formType,\n transpose = formTranspose,\n title = formTitle,\n title.font.family = NULL,\n title.font.color = NULL,\n title.font.size = 16,\n colors = formPalette,\n colors.reverse = FALSE,\n opacity = NULL,\n background.fill.color = rgb(255, 255, 255, maxColorValue = 255),\n background.fill.opacity = 1,\n charting.area.fill.color = rgb(255, 255, 255, maxColorValue = 255),\n charting.area.fill.opacity = 1,\n legend.show = TRUE,\n legend.fill = rgb(255, 255, 255, maxColorValue = 255),\n legend.border.color = rgb(44, 44, 44, maxColorValue = 255),\n legend.border.line.width = 0,\n legend.font.color = NULL,\n legend.font.family = NULL,\n legend.font.size = 10,\n legend.position = "right",\n legend.ascending = TRUE,\n margin.top = NULL,\n margin.bottom = NULL,\n margin.left = NULL,\n margin.right = NULL,\n margin.inner.pad = NULL,\n y.title = formYTitle,\n y.title.font.color = NULL,\n y.title.font.family = NULL,\n y.title.font.size = 12,\n y.line.width = 0,\n y.line.color = rgb(0, 0, 0, maxColorValue = 255),\n y.tick.marks = "",\n y.tick.mark.length = 5,\n y.bounds.minimum = NULL,\n y.bounds.maximum = NULL,\n y.tick.distance = NULL,\n y.zero.line.width = 0,\n y.zero.line.color = rgb(44, 44, 44, maxColorValue = 255),\n y.position = "left",\n y.data.reversed = FALSE,\n y.grid.width = 1 * formShowGrid && !formType %in% c("Pie", "Donut", "Bar", "Stacked Bar", "100% Stacked Bar"),\n y.grid.color = rgb(225, 225, 225, maxColorValue = 255),\n y.tick.show = TRUE,\n y.tick.suffix = formSuffix,\n y.tick.prefix = formPrefix,\n y.tick.decimals = NULL,\n y.tick.format.manual = "",\n y.hovertext.decimals = NULL,\n y.hovertext.format.manual = "",\n y.tick.angle = NULL,\n y.tick.font.color = NULL,\n y.tick.font.family = NULL,\n y.tick.font.size = 10,\n x.title = formXTitle,\n x.title.font.color = NULL,\n x.title.font.family = NULL,\n x.title.font.size = 12,\n x.line.width = 0,\n x.line.color = rgb(0, 0, 0, maxColorValue = 255),\n x.tick.marks = "",\n x.tick.mark.length = 5,\n x.bounds.minimum = NULL,\n x.bounds.maximum = NULL,\n x.tick.distance = NULL,\n x.zero.line.width = 0,\n x.zero.line.color = rgb(44, 44, 44, maxColorValue = 255),\n x.position = "bottom",\n x.data.reversed = FALSE,\n x.grid.width = 1 * formShowGrid && !formType %in% c("Pie", "Donut", "Area", "Stacked Area", "100% Stacked Area", "Column", "Stacked Column", "100% Stacked Column", "Line"),\n x.grid.color = rgb(225, 225, 225, maxColorValue = 255),\n x.tick.show = TRUE,\n x.tick.suffix = formSuffix,\n x.tick.prefix = formPrefix,\n x.tick.decimals = NULL,\n x.tick.format.manual = "",\n x.hovertext.decimals = NULL,\n x.hovertext.format.manual = "",\n x.tick.angle = NULL,\n x.tick.font.color = NULL,\n x.tick.font.family = NULL,\n x.tick.font.size = 10,\n x.tick.label.autoformat = TRUE,\n series.marker.show = if (formType %in% c("Labeled Scatterplot", "Labeled Bubbleplot")) "automatic" else "none",\n series.marker.colors = NULL,\n series.marker.colors.reverse = FALSE,\n series.marker.opacity = 1,\n series.marker.size = 6,\n series.marker.border.width = 1,\n series.marker.border.colors = NULL,\n series.marker.border.colors.reverse = FALSE,\n series.marker.border.opacity = 1,\n series.line.width = 3,\n series.line.colors = NULL,\n series.line.colors.reverse = FALSE,\n series.line.opacity = 1,\n tooltip.show = TRUE,\n modebar.show = FALSE,\n global.font.family = "Arial",\n global.font.color = rgb(44, 44, 44, maxColorValue=255),\n rows.to.ignore = formIgnoreRows,\n cols.to.ignore = formIgnoreColumns,\n bar.gap = 0.15,\n data.label.show = formShowDataLabels,\n data.label.font.family = NULL,\n data.label.font.size = 10,\n data.label.font.color = NULL,\n data.label.decimals = formDataLabelDecimals,\n data.label.prefix = formPrefix,\n data.label.suffix = formSuffix,\n data.label.threshold = NULL,\n data.label.position = "top middle",\n pie.order = "initial",\n pie.groups.order = "initial",\n pie.subslice.colors = formPaletteOuter,\n pie.subslice.colors.reverse = FALSE,\n pie.subslice.colors.repeat = TRUE,\n pie.border.color = rgb(255, 255, 255, maxColorValue = 255),\n pie.inner.radius = formRadius,\n pie.show.percentages = formType %in% c("Pie", "Donut") && formPiePercentages,\n z.title = formZTitle,\n scatter.group.indices = formGroupIndices,\n scatter.group.labels = formGroupLabels,\n us.date.format = if (exists("formDateFormat") && formDateFormat != "Default") formDateFormat == "US (mm/dd/yyyy)" else NULL) \n</pre>\n<pre class='debug-source'>>chart.8\n</pre>\r\n<div class=\"debug-summarystatistics\">\r\n<table>\r\n<tr><th>Total time:</th><td>0.52s</td></tr>\r\n<tr><th>Time on R server:</th><td title=\"rApacheServe 0.34s (pre 0.00s, post 0.00s) httpget_code() setup for eval 0.00s session$eval 0.30s (pre 0.00s, post 0.18s) unexplained 0.03s apparmor forking (pre 0.03s, post 0.00s)\">0.34s</td></tr>\r\n<tr><th>Time evaluating code:</th><td>0.09s</td></tr>\r\n<tr><th>Bytes sent:</th><td>6,719</td></tr>\r\n<tr><th>Bytes received:</th><td>32,926</td></tr>\r\n</table>\r\n</div>","htmlwidgets":"<div id=\"htmlwidget_container\">\n <div id=\"2647287d92e4\" style=\"width:100%;height:400px;\" class=\"plotly html-widget\"></div>\n</div>\n<script type=\"application/json\" data-for=\"2647287d92e4\">{\"x\":{\"visdat\":{\"2647664b4ba0\":[\"function () \",\"plotlyVisDat\"]},\"cur_data\":\"2647664b4ba0\",\"attrs\":{\"2647664b4ba0\":{\"alpha\":1,\"sizes\":[10,100],\"type\":\"scatter\",\"x\":[\"18 to 24\",\"25 to 29\",\"30 to 34\",\"35 to 39\",\"40 to 44\",\"45 to 49\",\"50 to 54\",\"55 to 64\",\"65 +\"],\"y\":[6.28279883381924,4.73032069970846,3.87390670553936,4.73032069970846,4.2930029154519,4.16180758017493,4.35131195335277,6.38119533527697,2.05174927113703],\"fill\":\"tozeroy\",\"fillcolor\":\"rgba(228,26,28,0.4)\",\"line\":{\"width\":0,\"color\":\"rgba(228,26,28,1)\"},\"name\":\"Colas (e.g., Coca Cola, Pepsi Max)?\",\"legendgroup\":\"\",\"text\":\"\",\"textposition\":\"top middle\",\"hoverinfo\":\"x+y+name\",\"mode\":\"lines\"},\"2647664b4ba0.1\":{\"alpha\":1,\"sizes\":[10,100],\"type\":\"scatter\",\"x\":[\"18 to 24\",\"25 to 29\",\"30 to 34\",\"35 to 39\",\"40 to 44\",\"45 to 49\",\"50 to 54\",\"55 to 64\",\"65 +\"],\"y\":[1.02478134110787,0.58600583090379,1.26239067055394,0.884475218658892,0.795918367346939,1.12062682215743,1.34220116618076,1.68768221574344,0.891763848396501],\"fill\":\"tozeroy\",\"fillcolor\":\"rgba(55,126,184,0.4)\",\"line\":{\"width\":0,\"color\":\"rgba(55,126,184,1)\"},\"name\":\"Sparkling mineral water\",\"legendgroup\":\"\",\"text\":\"\",\"textposition\":\"top middle\",\"hoverinfo\":\"x+y+name\",\"mode\":\"lines\"},\"2647664b4ba0.2\":{\"alpha\":1,\"sizes\":[10,100],\"type\":\"scatter\",\"x\":[\"18 to 24\",\"25 to 29\",\"30 to 34\",\"35 to 39\",\"40 to 44\",\"45 to 49\",\"50 to 54\",\"55 to 64\",\"65 +\"],\"y\":[4.15925655976676,5.58418367346939,3.04081632653061,6.35969387755102,5.48578717201166,4.93877551020408,7.27150145772595,8.37099125364431,4.33673469387755],\"fill\":\"tozeroy\",\"fillcolor\":\"rgba(77,175,74,0.4)\",\"line\":{\"width\":0,\"color\":\"rgba(77,175,74,1)\"},\"name\":\"Coffee\",\"legendgroup\":\"\",\"text\":\"\",\"textposition\":\"top middle\",\"hoverinfo\":\"x+y+name\",\"mode\":\"lines\"}},\"layout\":{\"margin\":{\"b\":70,\"l\":80,\"t\":20,\"r\":60,\"pad\":0},\"title\":\"\",\"showlegend\":true,\"legend\":{\"bgcolor\":\"#FFFFFF\",\"bordercolor\":\"#2C2C2C\",\"borderwidth\":0,\"font\":{\"color\":\"#2C2C2C\",\"family\":\"Arial\",\"size\":10},\"xanchor\":\"left\",\"yanchor\":\"auto\",\"y\":1,\"x\":1.02,\"traceorder\":\"normal\"},\"yaxis\":{\"domain\":[0,1],\"title\":\"% Total Share\",\"type\":\"linear\",\"titlefont\":{\"color\":\"#2C2C2C\",\"family\":\"Arial\",\"size\":12},\"tickfont\":{\"color\":\"#2C2C2C\",\"family\":\"Arial\",\"size\":10},\"showline\":false,\"linecolor\":\"#000000\",\"linewidth\":[],\"tickmode\":\"auto\",\"tickvals\":[],\"ticktext\":[],\"range\":[],\"rangemode\":\"tozero\",\"ticks\":\"\",\"tickangle\":[],\"ticklen\":0,\"tickcolor\":\"#000000\",\"dtick\":[],\"zeroline\":false,\"zerolinewidth\":0,\"zerolinecolor\":\"#2C2C2C\",\"tickformat\":\".0f\",\"tickprefix\":\"\",\"ticksuffix\":\"\",\"autorange\":true,\"side\":\"left\",\"gridwidth\":true,\"gridcolor\":\"#E1E1E1\",\"showgrid\":true,\"hoverformat\":\".2f\",\"showexponent\":\"all\",\"showtickprefix\":true,\"showticksuffix\":true,\"showticklabels\":true},\"xaxis\":{\"domain\":[0,1],\"title\":\"Q3. Age\",\"type\":\"category\",\"titlefont\":{\"color\":\"#2C2C2C\",\"family\":\"Arial\",\"size\":12},\"tickfont\":{\"color\":\"#2C2C2C\",\"family\":\"Arial\",\"size\":10},\"showline\":false,\"linecolor\":\"#000000\",\"linewidth\":[],\"tickmode\":\"auto\",\"tickvals\":[],\"ticktext\":[],\"range\":[],\"ticks\":\"\",\"tickangle\":[],\"ticklen\":5,\"tickcolor\":\"#000000\",\"dtick\":[],\"zeroline\":false,\"zerolinewidth\":0,\"zerolinecolor\":\"#2C2C2C\",\"tickformat\":\".f\",\"tickprefix\":\"\",\"ticksuffix\":\"\",\"autorange\":true,\"side\":\"bottom\",\"gridwidth\":false,\"gridcolor\":\"#E1E1E1\",\"showgrid\":false,\"hoverformat\":\".2f\",\"showexponent\":\"all\",\"showtickprefix\":true,\"showticksuffix\":true,\"showticklabels\":true},\"plot_bgcolor\":\"rgba(255,255,255,1)\",\"paper_bgcolor\":\"rgba(255,255,255,1)\",\"hovermode\":\"closest\",\"titlefont\":{\"family\":\"Arial\",\"color\":\"#2C2C2C\",\"size\":16},\"font\":{\"family\":\"Arial\",\"color\":\"#2C2C2C\",\"size\":10},\"bargap\":0.15,\"barmode\":\"\"},\"source\":\"A\",\"config\":{\"modeBarButtonsToAdd\":[{\"name\":\"Collaborate\",\"icon\":{\"width\":1000,\"ascent\":500,\"descent\":-50,\"path\":\"M487 375c7-10 9-23 5-36l-79-259c-3-12-11-23-22-31-11-8-22-12-35-12l-263 0c-15 0-29 5-43 15-13 10-23 23-28 37-5 13-5 25-1 37 0 0 0 3 1 7 1 5 1 8 1 11 0 2 0 4-1 6 0 3-1 5-1 6 1 2 2 4 3 6 1 2 2 4 4 6 2 3 4 5 5 7 5 7 9 16 13 26 4 10 7 19 9 26 0 2 0 5 0 9-1 4-1 6 0 8 0 2 2 5 4 8 3 3 5 5 5 7 4 6 8 15 12 26 4 11 7 19 7 26 1 1 0 4 0 9-1 4-1 7 0 8 1 2 3 5 6 8 4 4 6 6 6 7 4 5 8 13 13 24 4 11 7 20 7 28 1 1 0 4 0 7-1 3-1 6-1 7 0 2 1 4 3 6 1 1 3 4 5 6 2 3 3 5 5 6 1 2 3 5 4 9 2 3 3 7 5 10 1 3 2 6 4 10 2 4 4 7 6 9 2 3 4 5 7 7 3 2 7 3 11 3 3 0 8 0 13-1l0-1c7 2 12 2 14 2l218 0c14 0 25-5 32-16 8-10 10-23 6-37l-79-259c-7-22-13-37-20-43-7-7-19-10-37-10l-248 0c-5 0-9-2-11-5-2-3-2-7 0-12 4-13 18-20 41-20l264 0c5 0 10 2 16 5 5 3 8 6 10 11l85 282c2 5 2 10 2 17 7-3 13-7 17-13z m-304 0c-1-3-1-5 0-7 1-1 3-2 6-2l174 0c2 0 4 1 7 2 2 2 4 4 5 7l6 18c0 3 0 5-1 7-1 1-3 2-6 2l-173 0c-3 0-5-1-8-2-2-2-4-4-4-7z m-24-73c-1-3-1-5 0-7 2-2 3-2 6-2l174 0c2 0 5 0 7 2 3 2 4 4 5 7l6 18c1 2 0 5-1 6-1 2-3 3-5 3l-174 0c-3 0-5-1-7-3-3-1-4-4-5-6z\"},\"click\":\"function(gd) { \\n // is this being viewed in RStudio?\\n if (location.search == '?viewer_pane=1') {\\n alert('To learn about plotly for collaboration, visit:\\\\n https://cpsievert.github.io/plotly_book/plot-ly-for-collaboration.html');\\n } else {\\n window.open('https://cpsievert.github.io/plotly_book/plot-ly-for-collaboration.html', '_blank');\\n }\\n }\"}],\"cloud\":false,\"displayModeBar\":false},\"data\":[{\"type\":\"scatter\",\"x\":[\"18 to 24\",\"25 to 29\",\"30 to 34\",\"35 to 39\",\"40 to 44\",\"45 to 49\",\"50 to 54\",\"55 to 64\",\"65 +\"],\"y\":[6.28279883381924,4.73032069970846,3.87390670553936,4.73032069970846,4.2930029154519,4.16180758017493,4.35131195335277,6.38119533527697,2.05174927113703],\"fill\":\"tozeroy\",\"fillcolor\":\"rgba(228,26,28,0.4)\",\"line\":{\"fillcolor\":\"rgba(31,119,180,1)\",\"color\":\"rgba(228,26,28,1)\",\"width\":0},\"name\":\"Colas (e.g., Coca Cola, Pepsi Max)?\",\"legendgroup\":\"\",\"text\":[\"\",\"\",\"\",\"\",\"\",\"\",\"\",\"\",\"\"],\"textposition\":\"top middle\",\"hoverinfo\":\"x+y+name\",\"mode\":\"lines\",\"xaxis\":\"x\",\"yaxis\":\"y\",\"frame\":null},{\"type\":\"scatter\",\"x\":[\"18 to 24\",\"25 to 29\",\"30 to 34\",\"35 to 39\",\"40 to 44\",\"45 to 49\",\"50 to 54\",\"55 to 64\",\"65 +\"],\"y\":[1.02478134110787,0.58600583090379,1.26239067055394,0.884475218658892,0.795918367346939,1.12062682215743,1.34220116618076,1.68768221574344,0.891763848396501],\"fill\":\"tozeroy\",\"fillcolor\":\"rgba(55,126,184,0.4)\",\"line\":{\"fillcolor\":\"rgba(255,127,14,1)\",\"color\":\"rgba(55,126,184,1)\",\"width\":0},\"name\":\"Sparkling mineral water\",\"legendgroup\":\"\",\"text\":[\"\",\"\",\"\",\"\",\"\",\"\",\"\",\"\",\"\"],\"textposition\":\"top middle\",\"hoverinfo\":\"x+y+name\",\"mode\":\"lines\",\"xaxis\":\"x\",\"yaxis\":\"y\",\"frame\":null},{\"type\":\"scatter\",\"x\":[\"18 to 24\",\"25 to 29\",\"30 to 34\",\"35 to 39\",\"40 to 44\",\"45 to 49\",\"50 to 54\",\"55 to 64\",\"65 +\"],\"y\":[4.15925655976676,5.58418367346939,3.04081632653061,6.35969387755102,5.48578717201166,4.93877551020408,7.27150145772595,8.37099125364431,4.33673469387755],\"fill\":\"tozeroy\",\"fillcolor\":\"rgba(77,175,74,0.4)\",\"line\":{\"fillcolor\":\"rgba(44,160,44,1)\",\"color\":\"rgba(77,175,74,1)\",\"width\":0},\"name\":\"Coffee\",\"legendgroup\":\"\",\"text\":[\"\",\"\",\"\",\"\",\"\",\"\",\"\",\"\",\"\"],\"textposition\":\"top middle\",\"hoverinfo\":\"x+y+name\",\"mode\":\"lines\