{"size":{"Width":687,"Height":499},"appearance":{"background":null,"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":"{\"X\":[-0.2299,-0.4896,-0.03,-0.1354,0.0362,-0.0922,0.0018,0.1238,0.0738,-0.1608,-0.0174,0.0519,0.0414,-0.4318,0.0602,0.0201,-0.1112,-0.5186,0.0267],\"Y\":[0.1888,-0.1727,0.1127,-0.086,0.0026,-0.0732,-0.0121,-0.1114,0.0989,0.0457,-0.0452,0.0253,0.0145,-0.0394,0.0055,-0.0367,0.2034,0.0329,-0.0017],\"label\":[\"Q12:Every or nearly every day\",\"Q12:4 to 5 days a week\",\"Q12:2 to 3 days a week\",\"Q12:Once a week\",\"Q12:Once every 2 weeks\",\"Q12:Once a month\",\"Q12:Once every 3 months\",\"Q12:Once or twice a year\",\"Q12:Never\",\"Q13:Never\",\"Q13:Rarely (once or twice in a year)\",\"Q13:Quite often (about once every month)\",\"Q13:Every chance I get (every week I look for new competitions t\",\"Q14:To be admired\",\"Q14:To be appreciated\",\"Q15:To be selfish\",\"Q15:To be dependent\",\"Q16:To be in charge\",\"Q16:To be successful\"],\"userPositionedLabs\":[{\"id\":12,\"x\":0.6233840791800189,\"y\":0.3961303201885711}]}","outputs":{"console":"<pre class='debug-source'>>library(flipDimensionReduction)\n</pre>\n<pre class='debug-source'>>require(rhtmlLabeledScatter)\n</pre>\n<pre class='debug-message'>Loading required package: rhtmlLabeledScatter\n</pre>\n<pre class='debug-source'>>mca.2 <- MultipleCorrespondenceAnalysis(~Q12 + Q13 + Q14 + Q15 + Q16,\n output = formOutput,\n weights = QCalibratedWeight,\n subset = QFilter,\n missing = formMissing,\n show.labels = formNames)\n</pre>\n<pre class='debug-source'>>#plot_mcaObj(mca.2)\n</pre>\n<pre class='debug-source'>>#LabeledScatter(X=mca.2$colpcoord[,1], Y=mca.2$colpcoord[,2])\n</pre>\n<pre class='debug-warning'>The labels of the variables and/or values are long. Edit the labels in the input variables to improve the look of this map.</pre>\r\n<div class=\"debug-summarystatistics\">\r\n<table>\r\n<tr><th>Total time:</th><td>2.73s</td></tr>\r\n<tr><th>Time on R server:</th><td title=\"rApacheServe 2.67s (pre 0.00s, post 0.00s) httpget_code() setup for eval 0.00s session$eval 2.57s (pre 0.00s, post 0.16s) unexplained 0.09s apparmor forking (pre 0.00s, post 0.00s)\">2.67s</td></tr>\r\n<tr><th>Time evaluating code:</th><td>2.30s</td></tr>\r\n<tr><th>Bytes sent:</th><td>5,754</td></tr>\r\n<tr><th>Bytes received:</th><td>68,152</td></tr>\r\n</table>\r\n</div>","message":"Loading required package: rhtmlLabeledScatter\n","warning":"The labels of the variables and/or values are long. Edit the labels in the input variables to improve the look of this map.","htmlwidgets":"<div id=\"htmlwidget_container\">\n <div id=\"htmlwidget-3ef5bca8fbab3de003b9\" style=\"width:960px;height:500px;\" class=\"rhtmlLabeledScatter html-widget\"></div>\n</div>\n<script type=\"application/json\" data-for=\"htmlwidget-3ef5bca8fbab3de003b9\">{\"x\":{\"X\":[0.2299,0.4896,0.03,0.1354,-0.0362,0.0922,-0.0018,-0.1238,-0.0738,0.1608,0.0174,-0.0519,-0.0414,0.4318,-0.0602,-0.0201,0.1112,0.5186,-0.0267],\"Y\":[-0.1888,0.1727,-0.1127,0.086,-0.0026,0.0732,0.0121,0.1114,-0.0989,-0.0457,0.0452,-0.0253,-0.0145,0.0394,-0.0055,0.0367,-0.2034,-0.0329,0.0017],\"Z\":{},\"label\":[\"Q12:Every or nearly every day\",\"Q12:4 to 5 days a week\",\"Q12:2 to 3 days a week\",\"Q12:Once a week\",\"Q12:Once every 2 weeks\",\"Q12:Once a month\",\"Q12:Once every 3 months\",\"Q12:Once or twice a year\",\"Q12:Never\",\"Q13:Never\",\"Q13:Rarely (once or twice in a year)\",\"Q13:Quite often (about once every month)\",\"Q13:Every chance I get (every week I look for new competitions t\",\"Q14:To be admired\",\"Q14:To be appreciated\",\"Q15:To be selfish\",\"Q15:To be dependent\",\"Q16:To be in charge\",\"Q16:To be successful\"],\"labelAlt\":[\"Q12:Every or nearly every day\",\"Q12:4 to 5 days a week\",\"Q12:2 to 3 days a week\",\"Q12:Once a week\",\"Q12:Once every 2 weeks\",\"Q12:Once a month\",\"Q12:Once every 3 months\",\"Q12:Once or twice a year\",\"Q12:Never\",\"Q13:Never\",\"Q13:Rarely (once or twice in a year)\",\"Q13:Quite often (about once every month)\",\"Q13:Every chance I get (every week I look for new competitions t\",\"Q14:To be admired\",\"Q14:To be appreciated\",\"Q15:To be selfish\",\"Q15:To be dependent\",\"Q16:To be in charge\",\"Q16:To be successful\"],\"group\":[\"Q12\",\"Q12\",\"Q12\",\"Q12\",\"Q12\",\"Q12\",\"Q12\",\"Q12\",\"Q12\",\"Q13\",\"Q13\",\"Q13\",\"Q13\",\"Q14\",\"Q14\",\"Q15\",\"Q15\",\"Q16\",\"Q16\"],\"xLevels\":null,\"yLevels\":null,\"fixedAspectRatio\":true,\"colors\":[\"#5C9AD3\",\"#ED7D31\",\"#A5A5A5\",\"#FFC000\",\"#4473C5\"],\"transparency\":null,\"grid\":true,\"origin\":true,\"originAlign\":false,\"xTitle\":\"Dimension 1 (42.4%)\",\"yTitle\":\"Dimension 2 (12.3%)\",\"zTitle\":\"\",\"title\":\"Multiple correspondence analysis\",\"xDecimals\":null,\"yDecimals\":null,\"zDecimals\":null,\"xPrefix\":\"\",\"yPrefix\":\"\",\"zPrefix\":\"\",\"xSuffix\":\"\",\"ySuffix\":\"\",\"zSuffix\":\"\",\"xFormat\":null,\"yFormat\":null,\"titleFontFamily\":\"Arial\",\"titleFontColor\":\"#2C2C2C\",\"titleFontSize\":20,\"subtitle\":\"\",\"subtitleFontFamily\":\"Arial\",\"subtitleFontSize\":12,\"subtitleFontColor\":\"#2C2C2C\",\"footer\":\"\",\"footerFontFamily\":\"Arial\",\"footerFontSize\":8,\"footerFontColor\":\"#2C2C2C\",\"showLabels\":true,\"labelsFontFamily\":\"Arial\",\"labelsFontColor\":null,\"labelsFontSize\":12,\"labelsLogoScale\":null,\"legendShow\":true,\"legendBubblesShow\":true,\"legendFontColor\":\"#2C2C2C\",\"legendFontFamily\":\"Arial\",\"legendFontSize\":12,\"legendBubbleFontColor\":\"#2C2C2C\",\"legendBubbleFontFamily\":\"Arial\",\"legendBubbleFontSize\":10,\"legendBubbleTitleFontColor\":\"#2C2C2C\",\"legendBubbleTitleFontFamily\":\"Arial\",\"legendBubbleTitleFontSize\":12,\"yTitleFontColor\":\"#2C2C2C\",\"yTitleFontFamily\":\"Arial\",\"yTitleFontSize\":16,\"xTitleFontColor\":\"#2C2C2C\",\"xTitleFontFamily\":\"Arial\",\"xTitleFontSize\":16,\"showXAxis\":true,\"showYAxis\":true,\"axisFontFamily\":\"Arial\",\"axisFontColor\":\"Black\",\"axisFontSize\":10,\"tooltipTitleFontColor\":\"#2C2C2C\",\"toolTipTitleFontFamily\":\"Arial\",\"tooltipTitleFontSize\":10,\"pointRadius\":2,\"xBoundsMinimum\":null,\"xBoundsMaximum\":null,\"yBoundsMinimum\":null,\"yBoundsMaximum\":null,\"xBoundsUnitsMajor\":null,\"yBoundsUnitsMajor\":null,\"trendLines\":false,\"trendLinesLineThickness\":1,\"trendLinesPointSize\":2,\"plotBorderShow\":true,\"labelPlacementDistanceWeight\":10,\"labelPlacementLabelLabelOverlapWeight\":12,\"labelPlacementLabelAncOverlapWeight\":8,\"labelPlacementNumSweeps\":500,\"labelPlacementSeed\":1,\"labelPlacementMaxMove\":5,\"labelPlacementMaxAngle\":6.283,\"debugMode\":false,\"plotBorderColor\":\"Black\",\"plotBorderWidth\":1},\"evals\":[],\"jsHooks\":[]}</script>\n<script type=\"application/htmlwidget-sizing\" data-for=\"htmlwidget-3ef5bca8fbab3de003b9\">{\"viewer\":{\"width\":450,\"height\":350,\"padding\":0,\"fill\":true},\"browser\":{\"width\":960,\"height\":500,\"padding\":0,\"fill\":true}}</script>","htmlwidget-head":"{\"stylesheets\":[\"https://rserverhtmlwidgetasset.azureedge.net/main-1c2ecf90c95d7abb5b3f8b8a31dc8484.css\",\"https://rserverhtmlwidgetasset.azureedge.net/rhtmlLabeledScatter-24597fc3de18773424152ac7413098c6.css\"],\"javascript\":[\"https://rserverhtmlwidgetasset.azureedge.net/htmlwidgets-917a66c6e5036eb1bfd1fb672a82635a.js\",\"https://rserverhtmlwidgetasset.azureedge.net/rhtmlLabeledScatter-0b4aa6c5ae924c52b33bebc8d1a6d5f7.js\"],\"attachments\":[],\"widget-cannot-re-render\":false}"},"secondsTaken":2.734123,"updated":"2018-08-13T01:49:03.3603448Z","lastUpdatedMessage":null,"executedCode":"library(flipDimensionReduction)\nrequire(rhtmlLabeledScatter)\nmca.2 <- MultipleCorrespondenceAnalysis(~Q12 + Q13 + Q14 + Q15 + Q16,\n output = formOutput,\n weights = QCalibratedWeight,\n subset = QFilter,\n missing = formMissing,\n show.labels = formNames)\n#plot_mcaObj(mca.2)\n#LabeledScatter(X=mca.2$colpcoord[,1], Y=mca.2$colpcoord[,2])","lastSavedCode":"library(flipDimensionReduction)\nrequire(rhtmlLabeledScatter)\nmca.2 <- MultipleCorrespondenceAnalysis(~Q12 + Q13 + Q14 + Q15 + Q16,\n output = formOutput,\n weights = QCalibratedWeight,\n subset = QFilter,\n missing = formMissing,\n show.labels = formNames)\n#plot_mcaObj(mca.2)\n#LabeledScatter(X=mca.2$colpcoord[,1], Y=mca.2$colpcoord[,2])","highlightedCodeSpans":[{"start":102,"length":3,"index":1},{"start":108,"length":3,"index":1},{"start":114,"length":3,"index":1},{"start":120,"length":3,"index":1},{"start":126,"length":3,"index":1},{"start":177,"length":10,"index":4},{"start":236,"length":17,"index":6},{"start":301,"length":7,"index":6},{"start":357,"length":11,"index":4},{"start":421,"length":9,"index":4}],"tableTransformations":"<TabularTransformer>\r\n <TabularTransform type=\"Truncation\" truncationHeaderType=\"Column\" />\r\n <TabularTransform />\r\n</TabularTransformer>","tabularFilteringOptions":null,"hasGuiControls":true,"guiControls":{"Code":"form.setHeading('Multiple Correspondence Analysis');\nform.dropBox({label: \"Input variables\", \n types: [\"Variable: Categorical, OrderedCategorical\"], \n name: \"formInputVariables\",\n multi: true})\nform.comboBox({label: \"Output\", \n alternatives: [\"Scatterplot\", \"Text\"], \n name: \"formOutput\", default_value: \"Scatterplot\"})\nform.comboBox({label: \"Missing data\", \n alternatives: [\"Error if missing data\", \"Exclude cases with missing data\",\n \"Use partial data\", \"Imputation (replace missing values with estimates)\"], \n name: \"formMissing\", \n default_value: \"Exclude cases with missing data\"})\nform.checkBox({label: \"Variable names\", name: \"formNames\", default_value: false});","JSError":null,"JSErrorDetails":null,"ControlDefinitionErrors":null,"InputValidationErrors":null,"Controls":[{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":null,"Page":null,"Group":null,"Type":"Heading","Label":null,"LabelEmphasised":false,"Value":null,"Allowed":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":false,"AllowedTypes":null,"OwnerRItemGuid":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":null,"CheckAlign":null,"Text":"Multiple Correspondence Analysis","Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formInputVariables","Page":null,"Group":null,"Type":"DropBox","Label":"Input variables","LabelEmphasised":false,"Value":null,"Allowed":null,"Multi":true,"Prompt":"Select at least one input which is of type Variable (Categorical or Orderedcategorical).","ErrorMessage":"Input variables: Input variables accepts only inputs which are of type Variable (Categorical or Orderedcategorical).","Invalid":null,"Required":true,"AllowedTypes":["Variable: Categorical, OrderedCategorical"],"OwnerRItemGuid":"ce129ceb-3a89-47fb-887e-94226976d8c2","MinInputs":1,"MaxInputs":2147483647,"Height":4,"Duplicates":false,"Values":["f8c9d6cb-90dd-4a32-8e82-9fef08352067","9335cbc9-a038-4c28-9ee2-83b6e1b1687a","fd796c24-b7fa-4f0e-8056-9c297b264d31","0a7bce3c-bdfc-4abc-bdea-5a597462ed49","b0bc3d58-9053-4e7f-91f6-e4175590e8b6"],"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formOutput","Page":null,"Group":null,"Type":"ComboBox","Label":"Output","LabelEmphasised":false,"Value":"Scatterplot","Allowed":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":true,"AllowedTypes":null,"OwnerRItemGuid":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":["Scatterplot","Text"],"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formMissing","Page":null,"Group":null,"Type":"ComboBox","Label":"Missing data","LabelEmphasised":false,"Value":"Exclude cases with missing data","Allowed":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":true,"AllowedTypes":null,"OwnerRItemGuid":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":["Error if missing data","Exclude cases with missing data","Use partial data","Imputation (replace missing values with estimates)"],"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formNames","Page":null,"Group":null,"Type":"CheckBox","Label":"Variable names","LabelEmphasised":false,"Value":true,"Allowed":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":false,"AllowedTypes":null,"OwnerRItemGuid":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":null,"CheckAlign":"left","Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":null,"Page":null,"Group":null,"Type":null,"Label":null,"LabelEmphasised":false,"Value":null,"Allowed":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":false,"AllowedTypes":null,"OwnerRItemGuid":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":null,"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":true}]},"calculating":"Idle","showDebug":false,"layout":"OutputOnly","vSplit":0.25,"hSplit":0.45,"updateWarnings":true,"updateMode":"Manual","warnSlow":false,"Options":{"debugconsole":false,"codeposition":"OutputOnly","splitH":0.45,"splitV":0.25,"update warnings":true,"updating":"Manual","warn slow":false}}