list(endpoints = structure(list(x1 = structure(c(1L, 2L, 1L,
2L, 1L, 2L, 1L, 2L), .Label = c("a", "b"), class = "factor"),
x2 = structure(c(1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L), .Label = c("a",
"b"), class = "factor"), .bottom = c(0, 0.43, 0.095, 0.62,
0, 0.095, 0.335, 0.62), .top = c(0.095, 0.62, 0.38, 1, 0.095,
0.285, 0.62, 1), .axis = c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L
)), row.names = c(NA, -8L), class = "data.frame"), category_midpoints = list(
x1 = structure(c(a = 0.19, b = 0.715), .Dim = 2L, .Dimnames = list(
c("a", "b"))), x2 = structure(c(a = 0.1425, b = 0.6675
), .Dim = 2L, .Dimnames = list(c("a", "b")))), alluvium_midpoints = structure(list(
x1 = structure(c(1L, 1L, 2L, 2L), .Label = c("a", "b"), class = "factor"),
x2 = structure(c(1L, 2L, 1L, 2L), .Label = c("a", "b"), class = "factor"),
.axis_from = c(1L, 1L, 1L, 1L), .axis_to = c(2L, 2L, 2L,
2L), .x = c(1.5, 1.5, 1.5, 1.5), .y = c(0.0475, 0.3575, 0.3575,
0.81), .slope = c(0, 0.266666666666667, -0.372222222222222,
0)), row.names = c(NA, -4L), class = "data.frame"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.