ggplot build with hierNetwork from networkD3

<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8"/>
<script src="htmlwidgets.js"></script>
<script src="https://d3js.org/d3.v3.min.js"></script>
<script src="d3.chart.min.js"></script>
<link href="hierStyles.css" rel="stylesheet" />
<script src="d3.chart.layout.hierarchy.js"></script>
<script src="hierNetwork.js"></script>

</head>
<body style="background-color:white;">
<div id="htmlwidget-2208" style="width:960px;height:500px;" class="hierNetwork"></div>
<script type="application/json" data-for="htmlwidget-2208">{ "x": {
 "root": "{\"name\":\"ggplot\",\"children\":[{\"name\":\"data\",\"children\":[{\"name\":\"x\",\"value\":\" [1] 1 2 3 4 5 6 7 8 9 10\"},{\"name\":\"y\",\"value\":\" [1] 1 2 3 4 5 6 7 8 9 10\"},{\"name\":\"PANEL\",\"value\":\" [1] 1 1 1 1 1 1 1 1 1 1\"},{\"name\":\"group\",\"value\":\" [1] 1 1 1 1 1 1 1 1 1 1\"}]},{\"name\":\"panel\",\"children\":[{\"name\":\"layout\",\"children\":[{\"name\":\"PANEL\",\"value\":\"[1] 1\"},{\"name\":\"ROW\",\"value\":\"[1] 1\"},{\"name\":\"COL\",\"value\":\"[1] 1\"},{\"name\":\"SCALE_X\",\"value\":\"[1] 1\"},{\"name\":\"SCALE_Y\",\"value\":\"[1] 1\"}]},{\"name\":\"ranges\",\"children\":[{\"name\":\"x\",\"children\":[{\"name\":\"range\",\"value\":\"[1] 0.55 10.45\"},{\"name\":\"labels\",\"value\":\"[1] \\\"2.5\\\" \\\"5.0\\\" \\\"7.5\\\" \\\"10.0\\\"\"},{\"name\":\"major\",\"value\":\"[1] 0.1969697 0.4494949 0.7020202 0.9545455\"},{\"name\":\"minor\",\"value\":\"[1] 0.07070707 0.19696970 0.32323232 0.44949495 0.57575758 0.70202020 0.82828283 0.95454545\"},{\"name\":\"major_source\",\"value\":\"[1] 2.5 5.0 7.5 10.0\"},{\"name\":\"minor_source\",\"value\":\"[1] 1.25 2.50 3.75 5.00 6.25 7.50 8.75 10.00\"}]},{\"name\":\"y\",\"children\":[{\"name\":\"range\",\"value\":\"[1] 0.55 10.45\"},{\"name\":\"labels\",\"value\":\"[1] \\\"2.5\\\" \\\"5.0\\\" \\\"7.5\\\" \\\"10.0\\\"\"},{\"name\":\"major\",\"value\":\"[1] 0.1969697 0.4494949 0.7020202 0.9545455\"},{\"name\":\"minor\",\"value\":\"[1] 0.07070707 0.19696970 0.32323232 0.44949495 0.57575758 0.70202020 0.82828283 0.95454545\"},{\"name\":\"major_source\",\"value\":\"[1] 2.5 5.0 7.5 10.0\"},{\"name\":\"minor_source\",\"value\":\"[1] 1.25 2.50 3.75 5.00 6.25 7.50 8.75 10.00\"}]}]},{\"name\":\"shrink\",\"children\":[{\"name\":\"NA\",\"value\":\"[1] TRUE\"}]},{\"name\":\"x_scales\",\"children\":[{\"name\":\"aesthetics\",\"children\":[{\"name\":\"NA\",\"value\":\"[1] \\\"x\\\" \\\"xmin\\\" \\\"xmax\\\" \\\"xend\\\" \\\"xintercept\\\"\"}]},{\"name\":\"call\",\"children\":[{\"name\":\"NA\",\"value\":\"continuous_scale(aesthetics = c(\\\"x\\\", \\\"xmin\\\", \\\"xmax\\\", \\\"xend\\\", \\\"xintercept\\\"), scale_name = \\\"position_c\\\", palette = identity, expand = expand, guide = \\\"none\\\")\"}]},{\"name\":\"guide\",\"children\":[{\"name\":\"NA\",\"value\":\"[1] \\\"none\\\"\"}]},{\"name\":\"legend\",\"children\":[{\"name\":\"NA\",\"value\":\"NULL\"}]},{\"name\":\"limits\",\"children\":[{\"name\":\"NA\",\"value\":\"NULL\"}]},{\"name\":\"na\",\"children\":[{\"name\":\"value\",\"value\":\"[1] NA\"}]},{\"name\":\"name\",\"children\":[{\"name\":\"NA\",\"value\":\"NULL\"}]},{\"name\":\"oob\",\"children\":[{\"name\":\"NA\",\"value\":\"function (x, range = c(0, 1), only.finite = TRUE) { force(range) finite <- if (only.finite) is.finite(x) else TRUE x[finite & x < range[1]] <- NA_real_ x[finite & x > range[2]] <- NA_real_ x } <environment: namespace:scales>\"}]},{\"name\":\"palette\",\"children\":[{\"name\":\"NA\",\"value\":\"function (x) x <bytecode: 0x000000000a03dc80> <environment: namespace:base>\"}]},{\"name\":\"range\",\"children\":[{\"name\":\"NA\",\"value\":\"Reference class object of class \\\"Continuous\\\" Field \\\"range\\\": [1] 1 10\"}]},{\"name\":\"rescaler\",\"children\":[{\"name\":\"NA\",\"value\":\"function (x, to = c(0, 1), from = range(x, na.rm = TRUE)) { if (zero_range(from) || zero_range(to)) return(rep(mean(to), length(x))) (x - from[1])/diff(from) * diff(to) + to[1] } <environment: namespace:scales>\"}]},{\"name\":\"scale_name\",\"children\":[{\"name\":\"NA\",\"value\":\"[1] \\\"position_c\\\"\"}]},{\"name\":\"trans\",\"children\":[{\"name\":\"name\",\"value\":\"[1] \\\"identity\\\"\"},{\"name\":\"transform\",\"value\":\"function (x) x <bytecode: 0x000000000b04c538> <environment: namespace:base>\"},{\"name\":\"inverse\",\"value\":\"function (x) x <bytecode: 0x000000000b04c538> <environment: namespace:base>\"},{\"name\":\"breaks\",\"value\":\"function (x) { labeling::extended(min(x), max(x), n, only.loose = FALSE, ...) } <environment: 0x00000000172b4908>\"},{\"name\":\"format\",\"value\":\"function (x) { if (!is.null(names(x))) return(names(x)) format(x, ..., trim = TRUE, justify = \\\"left\\\") } <environment: 0x00000000172b4a58>\"},{\"name\":\"domain\",\"value\":\"[1] -Inf Inf\"}]}]},{\"name\":\"y_scales\",\"children\":[{\"name\":\"aesthetics\",\"children\":[{\"name\":\"NA\",\"value\":\"[1] \\\"y\\\" \\\"ymin\\\" \\\"ymax\\\" \\\"yend\\\" \\\"yintercept\\\" \\\"ymin_final\\\" \\\"ymax_final\\\"\"}]},{\"name\":\"call\",\"children\":[{\"name\":\"NA\",\"value\":\"continuous_scale(aesthetics = c(\\\"y\\\", \\\"ymin\\\", \\\"ymax\\\", \\\"yend\\\", \\\"yintercept\\\", \\\"ymin_final\\\", \\\"ymax_final\\\"), scale_name = \\\"position_c\\\", palette = identity, expand = expand, guide = \\\"none\\\")\"}]},{\"name\":\"guide\",\"children\":[{\"name\":\"NA\",\"value\":\"[1] \\\"none\\\"\"}]},{\"name\":\"legend\",\"children\":[{\"name\":\"NA\",\"value\":\"NULL\"}]},{\"name\":\"limits\",\"children\":[{\"name\":\"NA\",\"value\":\"NULL\"}]},{\"name\":\"na\",\"children\":[{\"name\":\"value\",\"value\":\"[1] NA\"}]},{\"name\":\"name\",\"children\":[{\"name\":\"NA\",\"value\":\"NULL\"}]},{\"name\":\"oob\",\"children\":[{\"name\":\"NA\",\"value\":\"function (x, range = c(0, 1), only.finite = TRUE) { force(range) finite <- if (only.finite) is.finite(x) else TRUE x[finite & x < range[1]] <- NA_real_ x[finite & x > range[2]] <- NA_real_ x } <environment: namespace:scales>\"}]},{\"name\":\"palette\",\"children\":[{\"name\":\"NA\",\"value\":\"function (x) x <bytecode: 0x000000000a03dc80> <environment: namespace:base>\"}]},{\"name\":\"range\",\"children\":[{\"name\":\"NA\",\"value\":\"Reference class object of class \\\"Continuous\\\" Field \\\"range\\\": [1] 1 10\"}]},{\"name\":\"rescaler\",\"children\":[{\"name\":\"NA\",\"value\":\"function (x, to = c(0, 1), from = range(x, na.rm = TRUE)) { if (zero_range(from) || zero_range(to)) return(rep(mean(to), length(x))) (x - from[1])/diff(from) * diff(to) + to[1] } <environment: namespace:scales>\"}]},{\"name\":\"scale_name\",\"children\":[{\"name\":\"NA\",\"value\":\"[1] \\\"position_c\\\"\"}]},{\"name\":\"trans\",\"children\":[{\"name\":\"name\",\"value\":\"[1] \\\"identity\\\"\"},{\"name\":\"transform\",\"value\":\"function (x) x <bytecode: 0x000000000b04c538> <environment: namespace:base>\"},{\"name\":\"inverse\",\"value\":\"function (x) x <bytecode: 0x000000000b04c538> <environment: namespace:base>\"},{\"name\":\"breaks\",\"value\":\"function (x) { labeling::extended(min(x), max(x), n, only.loose = FALSE, ...) } <environment: 0x00000000174f4ba0>\"},{\"name\":\"format\",\"value\":\"function (x) { if (!is.null(names(x))) return(names(x)) format(x, ..., trim = TRUE, justify = \\\"left\\\") } <environment: 0x00000000174f4cf0>\"},{\"name\":\"domain\",\"value\":\"[1] -Inf Inf\"}]}]}]},{\"name\":\"plot\",\"children\":[{\"name\":\"coordinates\",\"children\":[{\"name\":\"limits\",\"children\":[{\"name\":\"x\",\"value\":\"NULL\"},{\"name\":\"y\",\"value\":\"NULL\"}]}]},{\"name\":\"data\",\"children\":[{\"name\":\"x\",\"value\":\" [1] 1 2 3 4 5 6 7 8 9 10\"}]},{\"name\":\"facet\",\"children\":[{\"name\":\"shrink\",\"value\":\"[1] TRUE\"}]},{\"name\":\"labels\",\"children\":[{\"name\":\"x\",\"value\":\"[1] \\\"x\\\"\"},{\"name\":\"y\",\"value\":\"[1] \\\"x\\\"\"}]},{\"name\":\"layers\",\"children\":[{\"name\":\"NA\",\"value\":\"geom_line: stat_identity: position_identity: (width = NULL, height = NULL)\"}]},{\"name\":\"mapping\",\"children\":[{\"name\":\"x\",\"value\":\"x\"},{\"name\":\"y\",\"value\":\"x\"}]},{\"name\":\"plot_env\",\"children\":[{\"name\":\"NA\",\"value\":\"<environment: R_GlobalEnv>\"}]},{\"name\":\"scales\",\"children\":[{\"name\":\"NA\",\"value\":\"Reference class object of class \\\"Scales\\\" Field \\\"scales\\\": [[1]] continuous_scale(aesthetics = c(\\\"x\\\", \\\"xmin\\\", \\\"xmax\\\", \\\"xend\\\", \\\"xintercept\\\"), scale_name = \\\"position_c\\\", palette = identity, expand = expand, guide = \\\"none\\\") [[2]] continuous_scale(aesthetics = c(\\\"y\\\", \\\"ymin\\\", \\\"ymax\\\", \\\"yend\\\", \\\"yintercept\\\", \\\"ymin_final\\\", \\\"ymax_final\\\"), scale_name = \\\"position_c\\\", palette = identity, expand = expand, guide = \\\"none\\\") \"}]}]}]}",
"options": {
 "type": "tree.cartesian",
"value": "size",
"zoomable": true,
"collapsible": true 
} 
},"evals": [ ] }</script>
<div id="htmlwidget-8822" style="width:960px;height:500px;" class="hierNetwork"></div>
<script type="application/json" data-for="htmlwidget-8822">{ "x": {
 "root": "{\"name\":\"ggplot\",\"children\":[{\"name\":\"data\",\"children\":[{\"name\":\"x\",\"value\":\" [1] 1 2 3 4 5 6 7 8 9 10\"},{\"name\":\"y\",\"value\":\" [1] 1 2 3 4 5 6 7 8 9 10\"},{\"name\":\"PANEL\",\"value\":\" [1] 1 1 1 1 1 1 1 1 1 1\"},{\"name\":\"group\",\"value\":\" [1] 1 1 1 1 1 1 1 1 1 1\"}]},{\"name\":\"panel\",\"children\":[{\"name\":\"layout\",\"children\":[{\"name\":\"PANEL\",\"value\":\"[1] 1\"},{\"name\":\"ROW\",\"value\":\"[1] 1\"},{\"name\":\"COL\",\"value\":\"[1] 1\"},{\"name\":\"SCALE_X\",\"value\":\"[1] 1\"},{\"name\":\"SCALE_Y\",\"value\":\"[1] 1\"}]},{\"name\":\"ranges\",\"children\":[{\"name\":\"x\",\"children\":[{\"name\":\"range\",\"value\":\"[1] 0.55 10.45\"},{\"name\":\"labels\",\"value\":\"[1] \\\"2.5\\\" \\\"5.0\\\" \\\"7.5\\\" \\\"10.0\\\"\"},{\"name\":\"major\",\"value\":\"[1] 0.1969697 0.4494949 0.7020202 0.9545455\"},{\"name\":\"minor\",\"value\":\"[1] 0.07070707 0.19696970 0.32323232 0.44949495 0.57575758 0.70202020 0.82828283 0.95454545\"},{\"name\":\"major_source\",\"value\":\"[1] 2.5 5.0 7.5 10.0\"},{\"name\":\"minor_source\",\"value\":\"[1] 1.25 2.50 3.75 5.00 6.25 7.50 8.75 10.00\"}]},{\"name\":\"y\",\"children\":[{\"name\":\"range\",\"value\":\"[1] 0.55 10.45\"},{\"name\":\"labels\",\"value\":\"[1] \\\"2.5\\\" \\\"5.0\\\" \\\"7.5\\\" \\\"10.0\\\"\"},{\"name\":\"major\",\"value\":\"[1] 0.1969697 0.4494949 0.7020202 0.9545455\"},{\"name\":\"minor\",\"value\":\"[1] 0.07070707 0.19696970 0.32323232 0.44949495 0.57575758 0.70202020 0.82828283 0.95454545\"},{\"name\":\"major_source\",\"value\":\"[1] 2.5 5.0 7.5 10.0\"},{\"name\":\"minor_source\",\"value\":\"[1] 1.25 2.50 3.75 5.00 6.25 7.50 8.75 10.00\"}]}]},{\"name\":\"shrink\",\"children\":[{\"name\":\"NA\",\"value\":\"[1] TRUE\"}]},{\"name\":\"x_scales\",\"children\":[{\"name\":\"aesthetics\",\"children\":[{\"name\":\"NA\",\"value\":\"[1] \\\"x\\\" \\\"xmin\\\" \\\"xmax\\\" \\\"xend\\\" \\\"xintercept\\\"\"}]},{\"name\":\"call\",\"children\":[{\"name\":\"NA\",\"value\":\"continuous_scale(aesthetics = c(\\\"x\\\", \\\"xmin\\\", \\\"xmax\\\", \\\"xend\\\", \\\"xintercept\\\"), scale_name = \\\"position_c\\\", palette = identity, expand = expand, guide = \\\"none\\\")\"}]},{\"name\":\"guide\",\"children\":[{\"name\":\"NA\",\"value\":\"[1] \\\"none\\\"\"}]},{\"name\":\"legend\",\"children\":[{\"name\":\"NA\",\"value\":\"NULL\"}]},{\"name\":\"limits\",\"children\":[{\"name\":\"NA\",\"value\":\"NULL\"}]},{\"name\":\"na\",\"children\":[{\"name\":\"value\",\"value\":\"[1] NA\"}]},{\"name\":\"name\",\"children\":[{\"name\":\"NA\",\"value\":\"NULL\"}]},{\"name\":\"oob\",\"children\":[{\"name\":\"NA\",\"value\":\"function (x, range = c(0, 1), only.finite = TRUE) { force(range) finite <- if (only.finite) is.finite(x) else TRUE x[finite & x < range[1]] <- NA_real_ x[finite & x > range[2]] <- NA_real_ x } <environment: namespace:scales>\"}]},{\"name\":\"palette\",\"children\":[{\"name\":\"NA\",\"value\":\"function (x) x <bytecode: 0x000000000a03dc80> <environment: namespace:base>\"}]},{\"name\":\"range\",\"children\":[{\"name\":\"NA\",\"value\":\"Reference class object of class \\\"Continuous\\\" Field \\\"range\\\": [1] 1 10\"}]},{\"name\":\"rescaler\",\"children\":[{\"name\":\"NA\",\"value\":\"function (x, to = c(0, 1), from = range(x, na.rm = TRUE)) { if (zero_range(from) || zero_range(to)) return(rep(mean(to), length(x))) (x - from[1])/diff(from) * diff(to) + to[1] } <environment: namespace:scales>\"}]},{\"name\":\"scale_name\",\"children\":[{\"name\":\"NA\",\"value\":\"[1] \\\"position_c\\\"\"}]},{\"name\":\"trans\",\"children\":[{\"name\":\"name\",\"value\":\"[1] \\\"identity\\\"\"},{\"name\":\"transform\",\"value\":\"function (x) x <bytecode: 0x000000000b04c538> <environment: namespace:base>\"},{\"name\":\"inverse\",\"value\":\"function (x) x <bytecode: 0x000000000b04c538> <environment: namespace:base>\"},{\"name\":\"breaks\",\"value\":\"function (x) { labeling::extended(min(x), max(x), n, only.loose = FALSE, ...) } <environment: 0x00000000172b4908>\"},{\"name\":\"format\",\"value\":\"function (x) { if (!is.null(names(x))) return(names(x)) format(x, ..., trim = TRUE, justify = \\\"left\\\") } <environment: 0x00000000172b4a58>\"},{\"name\":\"domain\",\"value\":\"[1] -Inf Inf\"}]}]},{\"name\":\"y_scales\",\"children\":[{\"name\":\"aesthetics\",\"children\":[{\"name\":\"NA\",\"value\":\"[1] \\\"y\\\" \\\"ymin\\\" \\\"ymax\\\" \\\"yend\\\" \\\"yintercept\\\" \\\"ymin_final\\\" \\\"ymax_final\\\"\"}]},{\"name\":\"call\",\"children\":[{\"name\":\"NA\",\"value\":\"continuous_scale(aesthetics = c(\\\"y\\\", \\\"ymin\\\", \\\"ymax\\\", \\\"yend\\\", \\\"yintercept\\\", \\\"ymin_final\\\", \\\"ymax_final\\\"), scale_name = \\\"position_c\\\", palette = identity, expand = expand, guide = \\\"none\\\")\"}]},{\"name\":\"guide\",\"children\":[{\"name\":\"NA\",\"value\":\"[1] \\\"none\\\"\"}]},{\"name\":\"legend\",\"children\":[{\"name\":\"NA\",\"value\":\"NULL\"}]},{\"name\":\"limits\",\"children\":[{\"name\":\"NA\",\"value\":\"NULL\"}]},{\"name\":\"na\",\"children\":[{\"name\":\"value\",\"value\":\"[1] NA\"}]},{\"name\":\"name\",\"children\":[{\"name\":\"NA\",\"value\":\"NULL\"}]},{\"name\":\"oob\",\"children\":[{\"name\":\"NA\",\"value\":\"function (x, range = c(0, 1), only.finite = TRUE) { force(range) finite <- if (only.finite) is.finite(x) else TRUE x[finite & x < range[1]] <- NA_real_ x[finite & x > range[2]] <- NA_real_ x } <environment: namespace:scales>\"}]},{\"name\":\"palette\",\"children\":[{\"name\":\"NA\",\"value\":\"function (x) x <bytecode: 0x000000000a03dc80> <environment: namespace:base>\"}]},{\"name\":\"range\",\"children\":[{\"name\":\"NA\",\"value\":\"Reference class object of class \\\"Continuous\\\" Field \\\"range\\\": [1] 1 10\"}]},{\"name\":\"rescaler\",\"children\":[{\"name\":\"NA\",\"value\":\"function (x, to = c(0, 1), from = range(x, na.rm = TRUE)) { if (zero_range(from) || zero_range(to)) return(rep(mean(to), length(x))) (x - from[1])/diff(from) * diff(to) + to[1] } <environment: namespace:scales>\"}]},{\"name\":\"scale_name\",\"children\":[{\"name\":\"NA\",\"value\":\"[1] \\\"position_c\\\"\"}]},{\"name\":\"trans\",\"children\":[{\"name\":\"name\",\"value\":\"[1] \\\"identity\\\"\"},{\"name\":\"transform\",\"value\":\"function (x) x <bytecode: 0x000000000b04c538> <environment: namespace:base>\"},{\"name\":\"inverse\",\"value\":\"function (x) x <bytecode: 0x000000000b04c538> <environment: namespace:base>\"},{\"name\":\"breaks\",\"value\":\"function (x) { labeling::extended(min(x), max(x), n, only.loose = FALSE, ...) } <environment: 0x00000000174f4ba0>\"},{\"name\":\"format\",\"value\":\"function (x) { if (!is.null(names(x))) return(names(x)) format(x, ..., trim = TRUE, justify = \\\"left\\\") } <environment: 0x00000000174f4cf0>\"},{\"name\":\"domain\",\"value\":\"[1] -Inf Inf\"}]}]}]},{\"name\":\"plot\",\"children\":[{\"name\":\"coordinates\",\"children\":[{\"name\":\"limits\",\"children\":[{\"name\":\"x\",\"value\":\"NULL\"},{\"name\":\"y\",\"value\":\"NULL\"}]}]},{\"name\":\"data\",\"children\":[{\"name\":\"x\",\"value\":\" [1] 1 2 3 4 5 6 7 8 9 10\"}]},{\"name\":\"facet\",\"children\":[{\"name\":\"shrink\",\"value\":\"[1] TRUE\"}]},{\"name\":\"labels\",\"children\":[{\"name\":\"x\",\"value\":\"[1] \\\"x\\\"\"},{\"name\":\"y\",\"value\":\"[1] \\\"x\\\"\"}]},{\"name\":\"layers\",\"children\":[{\"name\":\"NA\",\"value\":\"geom_line: stat_identity: position_identity: (width = NULL, height = NULL)\"}]},{\"name\":\"mapping\",\"children\":[{\"name\":\"x\",\"value\":\"x\"},{\"name\":\"y\",\"value\":\"x\"}]},{\"name\":\"plot_env\",\"children\":[{\"name\":\"NA\",\"value\":\"<environment: R_GlobalEnv>\"}]},{\"name\":\"scales\",\"children\":[{\"name\":\"NA\",\"value\":\"Reference class object of class \\\"Scales\\\" Field \\\"scales\\\": [[1]] continuous_scale(aesthetics = c(\\\"x\\\", \\\"xmin\\\", \\\"xmax\\\", \\\"xend\\\", \\\"xintercept\\\"), scale_name = \\\"position_c\\\", palette = identity, expand = expand, guide = \\\"none\\\") [[2]] continuous_scale(aesthetics = c(\\\"y\\\", \\\"ymin\\\", \\\"ymax\\\", \\\"yend\\\", \\\"yintercept\\\", \\\"ymin_final\\\", \\\"ymax_final\\\"), scale_name = \\\"position_c\\\", palette = identity, expand = expand, guide = \\\"none\\\") \"}]}]}]}",
"options": {
 "type": "tree.radial",
"value": "size",
"zoomable": true,
"collapsible": true 
} 
},"evals": [ ] }</script>
<div id="htmlwidget-9122" style="width:960px;height:500px;" class="hierNetwork"></div>
<script type="application/json" data-for="htmlwidget-9122">{ "x": {
 "root": "{\"name\":\"ggplot\",\"children\":[{\"name\":\"data\",\"children\":[{\"name\":\"x\",\"value\":\" [1] 1 2 3 4 5 6 7 8 9 10\"},{\"name\":\"y\",\"value\":\" [1] 1 2 3 4 5 6 7 8 9 10\"},{\"name\":\"PANEL\",\"value\":\" [1] 1 1 1 1 1 1 1 1 1 1\"},{\"name\":\"group\",\"value\":\" [1] 1 1 1 1 1 1 1 1 1 1\"}]},{\"name\":\"panel\",\"children\":[{\"name\":\"layout\",\"children\":[{\"name\":\"PANEL\",\"value\":\"[1] 1\"},{\"name\":\"ROW\",\"value\":\"[1] 1\"},{\"name\":\"COL\",\"value\":\"[1] 1\"},{\"name\":\"SCALE_X\",\"value\":\"[1] 1\"},{\"name\":\"SCALE_Y\",\"value\":\"[1] 1\"}]},{\"name\":\"ranges\",\"children\":[{\"name\":\"x\",\"children\":[{\"name\":\"range\",\"value\":\"[1] 0.55 10.45\"},{\"name\":\"labels\",\"value\":\"[1] \\\"2.5\\\" \\\"5.0\\\" \\\"7.5\\\" \\\"10.0\\\"\"},{\"name\":\"major\",\"value\":\"[1] 0.1969697 0.4494949 0.7020202 0.9545455\"},{\"name\":\"minor\",\"value\":\"[1] 0.07070707 0.19696970 0.32323232 0.44949495 0.57575758 0.70202020 0.82828283 0.95454545\"},{\"name\":\"major_source\",\"value\":\"[1] 2.5 5.0 7.5 10.0\"},{\"name\":\"minor_source\",\"value\":\"[1] 1.25 2.50 3.75 5.00 6.25 7.50 8.75 10.00\"}]},{\"name\":\"y\",\"children\":[{\"name\":\"range\",\"value\":\"[1] 0.55 10.45\"},{\"name\":\"labels\",\"value\":\"[1] \\\"2.5\\\" \\\"5.0\\\" \\\"7.5\\\" \\\"10.0\\\"\"},{\"name\":\"major\",\"value\":\"[1] 0.1969697 0.4494949 0.7020202 0.9545455\"},{\"name\":\"minor\",\"value\":\"[1] 0.07070707 0.19696970 0.32323232 0.44949495 0.57575758 0.70202020 0.82828283 0.95454545\"},{\"name\":\"major_source\",\"value\":\"[1] 2.5 5.0 7.5 10.0\"},{\"name\":\"minor_source\",\"value\":\"[1] 1.25 2.50 3.75 5.00 6.25 7.50 8.75 10.00\"}]}]},{\"name\":\"shrink\",\"children\":[{\"name\":\"NA\",\"value\":\"[1] TRUE\"}]},{\"name\":\"x_scales\",\"children\":[{\"name\":\"aesthetics\",\"children\":[{\"name\":\"NA\",\"value\":\"[1] \\\"x\\\" \\\"xmin\\\" \\\"xmax\\\" \\\"xend\\\" \\\"xintercept\\\"\"}]},{\"name\":\"call\",\"children\":[{\"name\":\"NA\",\"value\":\"continuous_scale(aesthetics = c(\\\"x\\\", \\\"xmin\\\", \\\"xmax\\\", \\\"xend\\\", \\\"xintercept\\\"), scale_name = \\\"position_c\\\", palette = identity, expand = expand, guide = \\\"none\\\")\"}]},{\"name\":\"guide\",\"children\":[{\"name\":\"NA\",\"value\":\"[1] \\\"none\\\"\"}]},{\"name\":\"legend\",\"children\":[{\"name\":\"NA\",\"value\":\"NULL\"}]},{\"name\":\"limits\",\"children\":[{\"name\":\"NA\",\"value\":\"NULL\"}]},{\"name\":\"na\",\"children\":[{\"name\":\"value\",\"value\":\"[1] NA\"}]},{\"name\":\"name\",\"children\":[{\"name\":\"NA\",\"value\":\"NULL\"}]},{\"name\":\"oob\",\"children\":[{\"name\":\"NA\",\"value\":\"function (x, range = c(0, 1), only.finite = TRUE) { force(range) finite <- if (only.finite) is.finite(x) else TRUE x[finite & x < range[1]] <- NA_real_ x[finite & x > range[2]] <- NA_real_ x } <environment: namespace:scales>\"}]},{\"name\":\"palette\",\"children\":[{\"name\":\"NA\",\"value\":\"function (x) x <bytecode: 0x000000000a03dc80> <environment: namespace:base>\"}]},{\"name\":\"range\",\"children\":[{\"name\":\"NA\",\"value\":\"Reference class object of class \\\"Continuous\\\" Field \\\"range\\\": [1] 1 10\"}]},{\"name\":\"rescaler\",\"children\":[{\"name\":\"NA\",\"value\":\"function (x, to = c(0, 1), from = range(x, na.rm = TRUE)) { if (zero_range(from) || zero_range(to)) return(rep(mean(to), length(x))) (x - from[1])/diff(from) * diff(to) + to[1] } <environment: namespace:scales>\"}]},{\"name\":\"scale_name\",\"children\":[{\"name\":\"NA\",\"value\":\"[1] \\\"position_c\\\"\"}]},{\"name\":\"trans\",\"children\":[{\"name\":\"name\",\"value\":\"[1] \\\"identity\\\"\"},{\"name\":\"transform\",\"value\":\"function (x) x <bytecode: 0x000000000b04c538> <environment: namespace:base>\"},{\"name\":\"inverse\",\"value\":\"function (x) x <bytecode: 0x000000000b04c538> <environment: namespace:base>\"},{\"name\":\"breaks\",\"value\":\"function (x) { labeling::extended(min(x), max(x), n, only.loose = FALSE, ...) } <environment: 0x00000000172b4908>\"},{\"name\":\"format\",\"value\":\"function (x) { if (!is.null(names(x))) return(names(x)) format(x, ..., trim = TRUE, justify = \\\"left\\\") } <environment: 0x00000000172b4a58>\"},{\"name\":\"domain\",\"value\":\"[1] -Inf Inf\"}]}]},{\"name\":\"y_scales\",\"children\":[{\"name\":\"aesthetics\",\"children\":[{\"name\":\"NA\",\"value\":\"[1] \\\"y\\\" \\\"ymin\\\" \\\"ymax\\\" \\\"yend\\\" \\\"yintercept\\\" \\\"ymin_final\\\" \\\"ymax_final\\\"\"}]},{\"name\":\"call\",\"children\":[{\"name\":\"NA\",\"value\":\"continuous_scale(aesthetics = c(\\\"y\\\", \\\"ymin\\\", \\\"ymax\\\", \\\"yend\\\", \\\"yintercept\\\", \\\"ymin_final\\\", \\\"ymax_final\\\"), scale_name = \\\"position_c\\\", palette = identity, expand = expand, guide = \\\"none\\\")\"}]},{\"name\":\"guide\",\"children\":[{\"name\":\"NA\",\"value\":\"[1] \\\"none\\\"\"}]},{\"name\":\"legend\",\"children\":[{\"name\":\"NA\",\"value\":\"NULL\"}]},{\"name\":\"limits\",\"children\":[{\"name\":\"NA\",\"value\":\"NULL\"}]},{\"name\":\"na\",\"children\":[{\"name\":\"value\",\"value\":\"[1] NA\"}]},{\"name\":\"name\",\"children\":[{\"name\":\"NA\",\"value\":\"NULL\"}]},{\"name\":\"oob\",\"children\":[{\"name\":\"NA\",\"value\":\"function (x, range = c(0, 1), only.finite = TRUE) { force(range) finite <- if (only.finite) is.finite(x) else TRUE x[finite & x < range[1]] <- NA_real_ x[finite & x > range[2]] <- NA_real_ x } <environment: namespace:scales>\"}]},{\"name\":\"palette\",\"children\":[{\"name\":\"NA\",\"value\":\"function (x) x <bytecode: 0x000000000a03dc80> <environment: namespace:base>\"}]},{\"name\":\"range\",\"children\":[{\"name\":\"NA\",\"value\":\"Reference class object of class \\\"Continuous\\\" Field \\\"range\\\": [1] 1 10\"}]},{\"name\":\"rescaler\",\"children\":[{\"name\":\"NA\",\"value\":\"function (x, to = c(0, 1), from = range(x, na.rm = TRUE)) { if (zero_range(from) || zero_range(to)) return(rep(mean(to), length(x))) (x - from[1])/diff(from) * diff(to) + to[1] } <environment: namespace:scales>\"}]},{\"name\":\"scale_name\",\"children\":[{\"name\":\"NA\",\"value\":\"[1] \\\"position_c\\\"\"}]},{\"name\":\"trans\",\"children\":[{\"name\":\"name\",\"value\":\"[1] \\\"identity\\\"\"},{\"name\":\"transform\",\"value\":\"function (x) x <bytecode: 0x000000000b04c538> <environment: namespace:base>\"},{\"name\":\"inverse\",\"value\":\"function (x) x <bytecode: 0x000000000b04c538> <environment: namespace:base>\"},{\"name\":\"breaks\",\"value\":\"function (x) { labeling::extended(min(x), max(x), n, only.loose = FALSE, ...) } <environment: 0x00000000174f4ba0>\"},{\"name\":\"format\",\"value\":\"function (x) { if (!is.null(names(x))) return(names(x)) format(x, ..., trim = TRUE, justify = \\\"left\\\") } <environment: 0x00000000174f4cf0>\"},{\"name\":\"domain\",\"value\":\"[1] -Inf Inf\"}]}]}]},{\"name\":\"plot\",\"children\":[{\"name\":\"coordinates\",\"children\":[{\"name\":\"limits\",\"children\":[{\"name\":\"x\",\"value\":\"NULL\"},{\"name\":\"y\",\"value\":\"NULL\"}]}]},{\"name\":\"data\",\"children\":[{\"name\":\"x\",\"value\":\" [1] 1 2 3 4 5 6 7 8 9 10\"}]},{\"name\":\"facet\",\"children\":[{\"name\":\"shrink\",\"value\":\"[1] TRUE\"}]},{\"name\":\"labels\",\"children\":[{\"name\":\"x\",\"value\":\"[1] \\\"x\\\"\"},{\"name\":\"y\",\"value\":\"[1] \\\"x\\\"\"}]},{\"name\":\"layers\",\"children\":[{\"name\":\"NA\",\"value\":\"geom_line: stat_identity: position_identity: (width = NULL, height = NULL)\"}]},{\"name\":\"mapping\",\"children\":[{\"name\":\"x\",\"value\":\"x\"},{\"name\":\"y\",\"value\":\"x\"}]},{\"name\":\"plot_env\",\"children\":[{\"name\":\"NA\",\"value\":\"<environment: R_GlobalEnv>\"}]},{\"name\":\"scales\",\"children\":[{\"name\":\"NA\",\"value\":\"Reference class object of class \\\"Scales\\\" Field \\\"scales\\\": [[1]] continuous_scale(aesthetics = c(\\\"x\\\", \\\"xmin\\\", \\\"xmax\\\", \\\"xend\\\", \\\"xintercept\\\"), scale_name = \\\"position_c\\\", palette = identity, expand = expand, guide = \\\"none\\\") [[2]] continuous_scale(aesthetics = c(\\\"y\\\", \\\"ymin\\\", \\\"ymax\\\", \\\"yend\\\", \\\"yintercept\\\", \\\"ymin_final\\\", \\\"ymax_final\\\"), scale_name = \\\"position_c\\\", palette = identity, expand = expand, guide = \\\"none\\\") \"}]}]}]}",
"options": {
 "type": "cluster.cartesian",
"value": "size",
"zoomable": true,
"collapsible": true 
} 
},"evals": [ ] }</script>
<div id="htmlwidget-1788" style="width:960px;height:500px;" class="hierNetwork"></div>
<script type="application/json" data-for="htmlwidget-1788">{ "x": {
 "root": "{\"name\":\"ggplot\",\"children\":[{\"name\":\"data\",\"children\":[{\"name\":\"x\",\"value\":\" [1] 1 2 3 4 5 6 7 8 9 10\"},{\"name\":\"y\",\"value\":\" [1] 1 2 3 4 5 6 7 8 9 10\"},{\"name\":\"PANEL\",\"value\":\" [1] 1 1 1 1 1 1 1 1 1 1\"},{\"name\":\"group\",\"value\":\" [1] 1 1 1 1 1 1 1 1 1 1\"}]},{\"name\":\"panel\",\"children\":[{\"name\":\"layout\",\"children\":[{\"name\":\"PANEL\",\"value\":\"[1] 1\"},{\"name\":\"ROW\",\"value\":\"[1] 1\"},{\"name\":\"COL\",\"value\":\"[1] 1\"},{\"name\":\"SCALE_X\",\"value\":\"[1] 1\"},{\"name\":\"SCALE_Y\",\"value\":\"[1] 1\"}]},{\"name\":\"ranges\",\"children\":[{\"name\":\"x\",\"children\":[{\"name\":\"range\",\"value\":\"[1] 0.55 10.45\"},{\"name\":\"labels\",\"value\":\"[1] \\\"2.5\\\" \\\"5.0\\\" \\\"7.5\\\" \\\"10.0\\\"\"},{\"name\":\"major\",\"value\":\"[1] 0.1969697 0.4494949 0.7020202 0.9545455\"},{\"name\":\"minor\",\"value\":\"[1] 0.07070707 0.19696970 0.32323232 0.44949495 0.57575758 0.70202020 0.82828283 0.95454545\"},{\"name\":\"major_source\",\"value\":\"[1] 2.5 5.0 7.5 10.0\"},{\"name\":\"minor_source\",\"value\":\"[1] 1.25 2.50 3.75 5.00 6.25 7.50 8.75 10.00\"}]},{\"name\":\"y\",\"children\":[{\"name\":\"range\",\"value\":\"[1] 0.55 10.45\"},{\"name\":\"labels\",\"value\":\"[1] \\\"2.5\\\" \\\"5.0\\\" \\\"7.5\\\" \\\"10.0\\\"\"},{\"name\":\"major\",\"value\":\"[1] 0.1969697 0.4494949 0.7020202 0.9545455\"},{\"name\":\"minor\",\"value\":\"[1] 0.07070707 0.19696970 0.32323232 0.44949495 0.57575758 0.70202020 0.82828283 0.95454545\"},{\"name\":\"major_source\",\"value\":\"[1] 2.5 5.0 7.5 10.0\"},{\"name\":\"minor_source\",\"value\":\"[1] 1.25 2.50 3.75 5.00 6.25 7.50 8.75 10.00\"}]}]},{\"name\":\"shrink\",\"children\":[{\"name\":\"NA\",\"value\":\"[1] TRUE\"}]},{\"name\":\"x_scales\",\"children\":[{\"name\":\"aesthetics\",\"children\":[{\"name\":\"NA\",\"value\":\"[1] \\\"x\\\" \\\"xmin\\\" \\\"xmax\\\" \\\"xend\\\" \\\"xintercept\\\"\"}]},{\"name\":\"call\",\"children\":[{\"name\":\"NA\",\"value\":\"continuous_scale(aesthetics = c(\\\"x\\\", \\\"xmin\\\", \\\"xmax\\\", \\\"xend\\\", \\\"xintercept\\\"), scale_name = \\\"position_c\\\", palette = identity, expand = expand, guide = \\\"none\\\")\"}]},{\"name\":\"guide\",\"children\":[{\"name\":\"NA\",\"value\":\"[1] \\\"none\\\"\"}]},{\"name\":\"legend\",\"children\":[{\"name\":\"NA\",\"value\":\"NULL\"}]},{\"name\":\"limits\",\"children\":[{\"name\":\"NA\",\"value\":\"NULL\"}]},{\"name\":\"na\",\"children\":[{\"name\":\"value\",\"value\":\"[1] NA\"}]},{\"name\":\"name\",\"children\":[{\"name\":\"NA\",\"value\":\"NULL\"}]},{\"name\":\"oob\",\"children\":[{\"name\":\"NA\",\"value\":\"function (x, range = c(0, 1), only.finite = TRUE) { force(range) finite <- if (only.finite) is.finite(x) else TRUE x[finite & x < range[1]] <- NA_real_ x[finite & x > range[2]] <- NA_real_ x } <environment: namespace:scales>\"}]},{\"name\":\"palette\",\"children\":[{\"name\":\"NA\",\"value\":\"function (x) x <bytecode: 0x000000000a03dc80> <environment: namespace:base>\"}]},{\"name\":\"range\",\"children\":[{\"name\":\"NA\",\"value\":\"Reference class object of class \\\"Continuous\\\" Field \\\"range\\\": [1] 1 10\"}]},{\"name\":\"rescaler\",\"children\":[{\"name\":\"NA\",\"value\":\"function (x, to = c(0, 1), from = range(x, na.rm = TRUE)) { if (zero_range(from) || zero_range(to)) return(rep(mean(to), length(x))) (x - from[1])/diff(from) * diff(to) + to[1] } <environment: namespace:scales>\"}]},{\"name\":\"scale_name\",\"children\":[{\"name\":\"NA\",\"value\":\"[1] \\\"position_c\\\"\"}]},{\"name\":\"trans\",\"children\":[{\"name\":\"name\",\"value\":\"[1] \\\"identity\\\"\"},{\"name\":\"transform\",\"value\":\"function (x) x <bytecode: 0x000000000b04c538> <environment: namespace:base>\"},{\"name\":\"inverse\",\"value\":\"function (x) x <bytecode: 0x000000000b04c538> <environment: namespace:base>\"},{\"name\":\"breaks\",\"value\":\"function (x) { labeling::extended(min(x), max(x), n, only.loose = FALSE, ...) } <environment: 0x00000000172b4908>\"},{\"name\":\"format\",\"value\":\"function (x) { if (!is.null(names(x))) return(names(x)) format(x, ..., trim = TRUE, justify = \\\"left\\\") } <environment: 0x00000000172b4a58>\"},{\"name\":\"domain\",\"value\":\"[1] -Inf Inf\"}]}]},{\"name\":\"y_scales\",\"children\":[{\"name\":\"aesthetics\",\"children\":[{\"name\":\"NA\",\"value\":\"[1] \\\"y\\\" \\\"ymin\\\" \\\"ymax\\\" \\\"yend\\\" \\\"yintercept\\\" \\\"ymin_final\\\" \\\"ymax_final\\\"\"}]},{\"name\":\"call\",\"children\":[{\"name\":\"NA\",\"value\":\"continuous_scale(aesthetics = c(\\\"y\\\", \\\"ymin\\\", \\\"ymax\\\", \\\"yend\\\", \\\"yintercept\\\", \\\"ymin_final\\\", \\\"ymax_final\\\"), scale_name = \\\"position_c\\\", palette = identity, expand = expand, guide = \\\"none\\\")\"}]},{\"name\":\"guide\",\"children\":[{\"name\":\"NA\",\"value\":\"[1] \\\"none\\\"\"}]},{\"name\":\"legend\",\"children\":[{\"name\":\"NA\",\"value\":\"NULL\"}]},{\"name\":\"limits\",\"children\":[{\"name\":\"NA\",\"value\":\"NULL\"}]},{\"name\":\"na\",\"children\":[{\"name\":\"value\",\"value\":\"[1] NA\"}]},{\"name\":\"name\",\"children\":[{\"name\":\"NA\",\"value\":\"NULL\"}]},{\"name\":\"oob\",\"children\":[{\"name\":\"NA\",\"value\":\"function (x, range = c(0, 1), only.finite = TRUE) { force(range) finite <- if (only.finite) is.finite(x) else TRUE x[finite & x < range[1]] <- NA_real_ x[finite & x > range[2]] <- NA_real_ x } <environment: namespace:scales>\"}]},{\"name\":\"palette\",\"children\":[{\"name\":\"NA\",\"value\":\"function (x) x <bytecode: 0x000000000a03dc80> <environment: namespace:base>\"}]},{\"name\":\"range\",\"children\":[{\"name\":\"NA\",\"value\":\"Reference class object of class \\\"Continuous\\\" Field \\\"range\\\": [1] 1 10\"}]},{\"name\":\"rescaler\",\"children\":[{\"name\":\"NA\",\"value\":\"function (x, to = c(0, 1), from = range(x, na.rm = TRUE)) { if (zero_range(from) || zero_range(to)) return(rep(mean(to), length(x))) (x - from[1])/diff(from) * diff(to) + to[1] } <environment: namespace:scales>\"}]},{\"name\":\"scale_name\",\"children\":[{\"name\":\"NA\",\"value\":\"[1] \\\"position_c\\\"\"}]},{\"name\":\"trans\",\"children\":[{\"name\":\"name\",\"value\":\"[1] \\\"identity\\\"\"},{\"name\":\"transform\",\"value\":\"function (x) x <bytecode: 0x000000000b04c538> <environment: namespace:base>\"},{\"name\":\"inverse\",\"value\":\"function (x) x <bytecode: 0x000000000b04c538> <environment: namespace:base>\"},{\"name\":\"breaks\",\"value\":\"function (x) { labeling::extended(min(x), max(x), n, only.loose = FALSE, ...) } <environment: 0x00000000174f4ba0>\"},{\"name\":\"format\",\"value\":\"function (x) { if (!is.null(names(x))) return(names(x)) format(x, ..., trim = TRUE, justify = \\\"left\\\") } <environment: 0x00000000174f4cf0>\"},{\"name\":\"domain\",\"value\":\"[1] -Inf Inf\"}]}]}]},{\"name\":\"plot\",\"children\":[{\"name\":\"coordinates\",\"children\":[{\"name\":\"limits\",\"children\":[{\"name\":\"x\",\"value\":\"NULL\"},{\"name\":\"y\",\"value\":\"NULL\"}]}]},{\"name\":\"data\",\"children\":[{\"name\":\"x\",\"value\":\" [1] 1 2 3 4 5 6 7 8 9 10\"}]},{\"name\":\"facet\",\"children\":[{\"name\":\"shrink\",\"value\":\"[1] TRUE\"}]},{\"name\":\"labels\",\"children\":[{\"name\":\"x\",\"value\":\"[1] \\\"x\\\"\"},{\"name\":\"y\",\"value\":\"[1] \\\"x\\\"\"}]},{\"name\":\"layers\",\"children\":[{\"name\":\"NA\",\"value\":\"geom_line: stat_identity: position_identity: (width = NULL, height = NULL)\"}]},{\"name\":\"mapping\",\"children\":[{\"name\":\"x\",\"value\":\"x\"},{\"name\":\"y\",\"value\":\"x\"}]},{\"name\":\"plot_env\",\"children\":[{\"name\":\"NA\",\"value\":\"<environment: R_GlobalEnv>\"}]},{\"name\":\"scales\",\"children\":[{\"name\":\"NA\",\"value\":\"Reference class object of class \\\"Scales\\\" Field \\\"scales\\\": [[1]] continuous_scale(aesthetics = c(\\\"x\\\", \\\"xmin\\\", \\\"xmax\\\", \\\"xend\\\", \\\"xintercept\\\"), scale_name = \\\"position_c\\\", palette = identity, expand = expand, guide = \\\"none\\\") [[2]] continuous_scale(aesthetics = c(\\\"y\\\", \\\"ymin\\\", \\\"ymax\\\", \\\"yend\\\", \\\"yintercept\\\", \\\"ymin_final\\\", \\\"ymax_final\\\"), scale_name = \\\"position_c\\\", palette = identity, expand = expand, guide = \\\"none\\\") \"}]}]}]}",
"options": {
 "type": "cluster.radial",
"value": "size",
"zoomable": true,
"collapsible": true 
} 
},"evals": [ ] }</script>
</body>
</html>

Modified http://d3js.org/d3.v3.min.js to a secure url

https://d3js.org/d3.v3.min.js