tests/testthat/test-chartsettings-combinedscatter.R
In Displayr/flipChart: Single function for calling charts - CChart
context("ChartSettings - CombinedScatter")
dat <- LifeCycleSavings
test_that("ChartSettings - CombinedScatter",
{
v.ind <- c(x = 1, y = 2, sizes = 3, colors = NA, groups = 5)
attr(dat, "scatter.variable.indices") <- v.ind
res <- CChart("CombinedScatter", dat, scatter.labels.as.hovertext = FALSE,
scatter.colors.column = NA, data.label.font.autocolor = TRUE,
scatter.sizes.as.diameter = FALSE, scatter.colors.as.categorical = TRUE,
values.grid.width = 0.5, values.grid.color = "#FF000080",
categories.grid.width = 0.5, categories.grid.color = "#FF000080",
colors = "#0000FF", marker.size = 6, opacity = 0.3, append.data = TRUE)
expect_equal(attr(res, "ChartSettings")$BubbleScale, 60)
expect_equal(attr(res, "ChartSettings")$BubbleSizeType, "Area")
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$DataLabelsFont$color, "#0000FF")
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$BackgroundColor, "#0000FF4C")
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$Marker,
list(Size = 6, OutlineStyle = "None", BackgroundColor = "#0000FF4C"))
expect_equal(attr(res, "ChartSettings")$PrimaryAxis$MajorGridLine,
list(Color = "#FF000080", Width = 0.375009375234381, Style = "Solid"))
expect_equal(attr(res, "ChartSettings")$ValueAxis$MajorGridLine,
list(Color = "#FF000080", Width = 0.375009375234381, Style = "Solid"))
#expect_equal(attr(res, "ChartLabels"), list(PrimaryAxisTitle = "sr", ValueAxisTitle = "pop15"))
expect_true(attr(res, "ChartSettings")$PrimaryAxis$ShowTitle)
expect_true(attr(res, "ChartSettings")$ValueAxis$ShowTitle)
v.ind <- c(x = 1, y = 2, sizes = 3, colors = 4, groups = 5)
attr(dat, "scatter.variable.indices") <- v.ind
res <- CChart("CombinedScatter", dat, scatter.labels.as.hovertext = TRUE,
scatter.colors.column = NA, marker.size = 10,
scatter.sizes.as.diameter = TRUE, scatter.colors.as.categorical = TRUE,
colors = "#0000FF", append.data = TRUE)
expect_equal(attr(res, "ChartSettings")$BubbleScale, 100)
expect_equal(attr(res, "ChartSettings")$BubbleSizeType, "Width")
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$ShowDataLabels, FALSE)
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$BackgroundColor, "#0000FF66")
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$Marker,
list(Size = 10, OutlineStyle = "None", BackgroundColor = "#0000FF66"))
res <- CChart("CombinedScatter", dat, scatter.labels.as.hovertext = TRUE,
scatter.groups = round(dat[,5]/5), small.multiples = TRUE,
warn.if.no.match = FALSE, append.data = TRUE)
expect_equal(attr(res, "ChartWarning"),
" Small multiples are not supported by PowerPoint. It will be exported to PowerPoint as an image. Set 'PowerPoint Export > Format' to 'Microsoft Chart' and select a supported chart type or set the export format to 'Image' to suppress this warning.")
v.ind <- c(x = 1, y = 2, sizes = NA, colors = 4, groups = 5)
attr(dat, "scatter.variable.indices") <- v.ind
res <- CChart("CombinedScatter", dat[1:3,], scatter.labels.as.hovertext = TRUE,
scatter.sizes.column = NA, scatter.colors.as.categorical = TRUE,
colors = c("#FF0000", "#00FF00", "#0000FF"), marker.size = 6,
append.data = TRUE)
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[2]]$BackgroundColor, "#00FF00FF")
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[3]]$Marker,
list(Size = 6, OutlineStyle = "None", BackgroundColor = "#0000FFFF"))
v.ind <- c(x = 1, y = 2, sizes = 3, colors = 4, groups = 5)
attr(dat, "scatter.variable.indices") <- v.ind
res <- CChart("CombinedScatter", dat, scatter.colors.as.categorical = FALSE,
colors = c("red", "white", "blue"), marker.size = 3, append.data = TRUE)
expect_equal(attr(res, "ChartType"), "Bubble")
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$OutlineStyle, "None")
expect_equal(length(attr(res, "ChartSettings")$TemplateSeries[[1]]$CustomPoints), 50)
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$CustomPoints[[2]],
list(Index = 1, Marker = list(BackgroundColor = "#FFB8B866",
Style = "Circle", Size = 3)))
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$CustomPoints[[49]],
list(Index = 48, Marker = list(BackgroundColor = "#FF040466",
Style = "Circle", Size = 3)))
v.ind <- c(x = 1, y = 2, sizes = NULL, colors = 4, groups = 5)
attr(dat, "scatter.variable.indices") <- v.ind
res <- CChart("CombinedScatter", dat, scatter.colors.as.categorical = FALSE,
scatter.sizes.column = NULL, marker.size = 6, opacity = 0.4,
scatter.labels.as.hovertext = FALSE, data.label.font.autocolor = TRUE,
annotation.list = list(list(type = "Arrow - up",
data = "sr", threstype = "above threshold", threshold = "15",
color = "red", size = 15, width = 1, font.family = "Arial",
font.weight = "normal", font.style = "normal", format = ".2f", prefix = "$"),
list(type = "Marker border", data = "sr", threstype = "below threshold",
threshold = "3", width = 2, color = "red")),
colors = terrain.colors(5), append.data = TRUE)
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$CustomPoints[[1]],
list(Index = 0, Marker = list(BackgroundColor = "#EBB66566",
Style = "Circle", Size = 6)))
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$CustomPoints[[7]],
list(Index = 6, Marker = list(BackgroundColor = "#86CB0066",
Style = "Circle", Size = 6, OutlineColor = "red", OutlineWidth = 2,
OutlineStyle = "Solid")))
expect_equal(attr(res, "ChartLabels")$SeriesLabels[[1]]$CustomPoints[[46]],
list(Index = 45, Font = list(color = "#0BA900"), Segments = list(
list(Text = "Zambia"), list(Font = list(color = "red", size = 11.2528132033008,
family = "Arial", bold = FALSE, italic = FALSE), Text = "↑"))))
v.ind <- c(x = 1, y = 2, sizes = NULL, colors = NULL, groups = NULL)
attr(dat, "scatter.variable.indices") <- v.ind
expect_error(res <- CChart("CombinedScatter", dat, scatter.labels.as.hovertext = TRUE,
scatter.colors.column = NULL, scatter.colors.as.categorical = TRUE,
colors = "#3E7DCC99", annotation.list = list(list(
type = "Marker border", data = "sr", threstype = "below threshold",
threshold = "3", width = 2, color = "red")), append.data = TRUE), NA)
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$CustomPoints[[1]],
list(Index = 6, Marker = list(OutlineColor = "red", OutlineWidth = 2,
OutlineStyle = "Solid", Style = "Circle", Size = 6, BackgroundColor = "#3E7DCC99")))
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$CustomPoints[[4]]$Index,41)
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$CustomPoints[[4]]$Marker$OutlineWidth, 2)
v.ind <- c(x = 1, y = 2, sizes = NULL, colors = NULL, groups = NULL)
attr(dat, "scatter.variable.indices") <- v.ind
expect_error(res <- CChart("CombinedScatter", dat,
data.label.font.autocolor = TRUE, scatter.labels.as.hovertext = FALSE,
scatter.colors.column = NULL, annotation.list = list(list(
type = "Marker border", data = "sr", threstype = "below threshold",
threshold = "3", width = 2, color = "red")), append.data = TRUE), NA)
expect_equal(attr(res, "ChartLabels")$SeriesLabels[[1]], list(ShowValue = TRUE))
v.ind <- c(x = 1, y = 2, sizes = NULL, colors = NULL, groups = NULL)
attr(dat, "scatter.variable.indices") <- v.ind
expect_error(res <- CChart("CombinedScatter", dat,
data.label.font.autocolor = TRUE, scatter.labels.as.hovertext = FALSE,
scatter.colors.column = NULL, annotation.list = list(list(type = "Arrow - up",
data = "sr", threstype = "above threshold", threshold = "15",
color = "red", size = 15, width = 1, font.family = "Arial",
font.weight = "normal", font.style = "normal", format = ".2f", prefix = "$"),list(
type = "Marker border", data = "sr", threstype = "below threshold",
threshold = "3", width = 2, color = "red")), append.data = TRUE), NA)
expect_equal(attr(res, "ChartLabels")$SeriesLabels[[1]]$ShowValue, FALSE)
expect_equal(attr(res, "ChartLabels")$SeriesLabels[[1]]$CustomPoints[[46]],
list(Index = 45, Segments = list(list(Text = "Zambia"), list(
Font = list(color = "red", size = 11.2528132033008, family = "Arial",
bold = FALSE, italic = FALSE), Text = "↑"))))
pasted <- list(structure(c("", "a", "b", "c", "d", "e", "f", "g", "x",
"1", "2", "4", "2", "4", "6", "3", "y", "6", "7", "5", "5", "2",
"8", "9", "z", "1", "2", "3", "4", "5", "6", "7"), .Dim = c(8L,
4L)), FALSE, NULL, NULL)
pd <- PrepareData("CombinedScatter", input.data.pasted = pasted)
res <- CChart("CombinedScatter", pd$data, colors = "#FF0000", opacity = NULL,
append.data = TRUE, scatter.colors.as.categorical = TRUE)
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$BackgroundColor, "#FF000066")
})
dat.char.colors <- structure(list(`X-coord` = c(2, 6, 7, 3, 4), `Y-coord` = c(3,
5, 7, 3, 8), Size = c(1, 2, 3, 4, 5), Group = c("A", "A", "B",
"B", "C")), row.names = c("alpha", "beta", "gamma", "delta",
"epsilon"), scatter.variable.indices = c(x = 1, y = 2, sizes = 3,
colors = 4, groups = 4), class = "data.frame")
dat.char.coords <- structure(list(Day = c("Monday", "Tuesday", "Monday", "Wednesay",
"Friday", "Monday", "Tuesday", "Thursday", "Wednesday"), Time = c("Lunch",
"Dinner", "Breakfast", "Breakfast", "Lunch", "Lunch", "Dinner",
"Lunch", "Lunch")), row.names = c("Amy", "Ben", "Jim", "Tim",
"Ian", "Sara", "Rod", "Bob", "Liz"), scatter.variable.indices = c(x = 1,
y = 2, sizes = NA, colors = NA, groups = 2), class = "data.frame")
dat.factor.coords <- structure(list(Species = structure(c(2L, 2L, 2L, 1L, 3L, 2L,
3L, 3L, 2L, 2L, 2L, 2L, 3L, 2L, 2L, 3L, 3L, 3L, 1L, 1L), .Label = c("setosa",
"versicolor", "virginica"), class = "factor"), `Grid: Petal.Length` = c(4.7,
4.4, 4.1, 1.7, 5.1, 3.7, 4.8, 6.4, 4.4, 4.7, 4.1, 4.5, 5.1, 4.5,
4.1, 6.7, 5.4, 5.7, 1.6, 1.4)), scatter.variable.indices = c(x = 1,
y = 2, sizes = NA, colors = NA, groups = NA), row.names = c(64L,
91L, 68L, 24L, 111L, 82L, 139L, 132L, 88L, 51L, 89L, 69L, 134L,
85L, 100L, 123L, 140L, 125L, 26L, 18L), class = "data.frame")
test_that("CombinedScatterplot ChartData conversion",
{
res <- convertChartDataToNumeric(dat.char.colors)
expect_equal(unlist(lapply(res, class)), c(`X-coord` = "numeric",
`Y-coord` = "numeric", Size = "numeric", Group = "factor"))
expect_equal(dim(res), dim(dat.char.colors))
expect_equal(attr(res, "scatter.variable.indices"),
attr(dat.char.colors, "scatter.variable.indices"))
res <- convertChartDataToNumeric(dat.char.coords)
expect_equal(unlist(lapply(res, class)), c(Day = "integer", Time = "integer"))
expect_equal(dim(res), dim(dat.char.coords))
expect_equal(attr(res, "scatter.variable.indices"),
attr(dat.char.coords, "scatter.variable.indices"))
res <- convertChartDataToNumeric(dat.factor.coords)
expect_equal(unlist(lapply(res, class)),
c(Species = "integer", `Grid: Petal.Length` = "numeric"))
expect_equal(dim(res), dim(dat.factor.coords))
expect_equal(attr(res, "scatter.variable.indices"),
attr(dat.factor.coords, "scatter.variable.indices"))
})
dat <- structure(list(multi1 = structure(c(6L, 5L, 3L, 3L, 3L, 2L, 4L,
2L, 9L, 2L, 6L, 4L, 7L, 6L, 10L, 7L, 6L, 2L, 3L, 5L), .Dim = c(10L,
2L), .Dimnames = list(c("A", "B", "C", "D", "E", "F", "G", "H",
"I", "J"), c("Col 1", "Col 2"))), multi2 = structure(c(7, 6,
4, 4, 4, 3, 5, 3, 10, 3, 6, 4, 7, 6, 10, 7, 6, 2, 3, 5), .Dim = c(10L,
2L), .Dimnames = list(c("A", "B", "C", "D", "E", "F", "G", "H",
"I", "J"), c("Col 1", "Col 2"))), multi3 = structure(c(7, 6,
4, 4, 4, 3, 5, 3, 10, 3, 7, 5, 8, 7, 11, 8, 7, 3, 4, 6), .Dim = c(10L,
2L), .Dimnames = list(c("A", "B", "C", "D", "E", "F", "G", "H",
"I", "J"), c("Col 1", "Col 2")))), scatter.variable.indices = c(x = 1,
y = 2, sizes = 3, colors = 4))
test_that("CombinedScatter with multiple tables",
{
expect_warning(CChart("CombinedScatter", dat, append.data = TRUE),
"overlapping points")
expect_warning(CChart("CombinedScatter", dat, trend.lines = TRUE,
scatter.x.column = 1, scatter.y.column = 2, append.data = T),
"overlapping points")
})
dat.with.factors <- structure(list(Income = structure(c(7L, 4L, 7L, 2L, NA, 3L, 7L),
levels = c("Less than $15,000",
"$15,001 to $30,000", "$30,001 to $45,000", "$45,001 to $60,000",
"$60,001 to $90,000", "$90,001 to $120,000", "$120,001 to $150,000",
"$150,001 to $200,000", "$200,001 or more"), class = "factor",
questiontype = "PickOne", dataset = "Cola Tracking - January to December.sav",
values = c(`Less than $15,000` = 3000, `$15,001 to $30,000` = 22000,
`$30,001 to $45,000` = 37000, `$45,001 to $60,000` = 51000,
`$60,001 to $90,000` = 72000, `$90,001 to $120,000` = 103000,
`$120,001 to $150,000` = 132000, `$150,001 to $200,000` = 168000,
`$200,001 or more` = 280000), sourcevalues = c(`Less than $15,000` = 3000,
`$15,001 to $30,000` = 22000, `$30,001 to $45,000` = 37000, `$45,001 to $60,000` = 51000,
`$60,001 to $90,000` = 72000, `$90,001 to $120,000` = 103000,
`$120,001 to $150,000` = 132000, `$150,001 to $200,000` = 168000,
`$200,001 or more` = 280000), codeframe = list(`Less than $15,000` = 3000,
`$15,001 to $30,000` = 22000, `$30,001 to $45,000` = 37000,
`$45,001 to $60,000` = 51000, `$60,001 to $90,000` = 72000,
`$90,001 to $120,000` = 103000, `$120,001 to $150,000` = 132000,
`$150,001 to $200,000` = 168000, `$200,001 or more` = 280000,
NET = c(3000, 22000, 37000, 51000, 72000, 103000, 132000,
168000, 280000)), name = "d2", label = "Income", question = "Income"),
Age = structure(c(2L, 6L, 8L, 8L, 4L, 9L, 6L), levels = c("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 or more"), class = "factor",
questiontype = "PickOne", dataset = "Cola Tracking - January to December.sav",
values = c(`18 to 24` = 21, `25 to 29` = 27, `30 to 34` = 32,
`35 to 39` = 37, `40 to 44` = 42,`45 to 49` = 47, `50 to 54` = 52,
`55 to 64` = 60, `65 or more` = 77), sourcevalues = c(`18 to 24` = 21,
`25 to 29` = 27, `30 to 34` = 32,
`35 to 39` = 37, `40 to 44` = 42, `45 to 49` = 47, `50 to 54` = 52,
`55 to 64` = 60, `65 or more` = 77), codeframe = list(`18 to 24` = 21,
`25 to 29` = 27, `30 to 34` = 32, `35 to 39` = 37, `40 to 44` = 42,
`45 to 49` = 47, `50 to 54` = 52, `55 to 64` = 60, `65 or more` = 77,
NET = c(21, 27, 32, 37, 42, 47, 52, 60, 77)), name = "d1", label = "Age", question = "Age")),
row.names = 1:7, scatter.variable.indices = c(x = 1, y = 2, sizes = NA, colors = 2, groups = NA),
class = "data.frame")
test_that("Exporting scatter with factor data",
{
expect_warning(CChart("CombinedScatter", dat.with.factors, colors = ChartColors(10),
scatter.colors.column = 2, append.data = TRUE), "missing values")
})
Displayr/flipChart documentation built on Sept. 20, 2024, 10:56 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("ChartSettings - CombinedScatter")
dat <- LifeCycleSavings
test_that("ChartSettings - CombinedScatter",
{
v.ind <- c(x = 1, y = 2, sizes = 3, colors = NA, groups = 5)
attr(dat, "scatter.variable.indices") <- v.ind
res <- CChart("CombinedScatter", dat, scatter.labels.as.hovertext = FALSE,
scatter.colors.column = NA, data.label.font.autocolor = TRUE,
scatter.sizes.as.diameter = FALSE, scatter.colors.as.categorical = TRUE,
values.grid.width = 0.5, values.grid.color = "#FF000080",
categories.grid.width = 0.5, categories.grid.color = "#FF000080",
colors = "#0000FF", marker.size = 6, opacity = 0.3, append.data = TRUE)
expect_equal(attr(res, "ChartSettings")$BubbleScale, 60)
expect_equal(attr(res, "ChartSettings")$BubbleSizeType, "Area")
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$DataLabelsFont$color, "#0000FF")
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$BackgroundColor, "#0000FF4C")
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$Marker,
list(Size = 6, OutlineStyle = "None", BackgroundColor = "#0000FF4C"))
expect_equal(attr(res, "ChartSettings")$PrimaryAxis$MajorGridLine,
list(Color = "#FF000080", Width = 0.375009375234381, Style = "Solid"))
expect_equal(attr(res, "ChartSettings")$ValueAxis$MajorGridLine,
list(Color = "#FF000080", Width = 0.375009375234381, Style = "Solid"))
#expect_equal(attr(res, "ChartLabels"), list(PrimaryAxisTitle = "sr", ValueAxisTitle = "pop15"))
expect_true(attr(res, "ChartSettings")$PrimaryAxis$ShowTitle)
expect_true(attr(res, "ChartSettings")$ValueAxis$ShowTitle)
v.ind <- c(x = 1, y = 2, sizes = 3, colors = 4, groups = 5)
attr(dat, "scatter.variable.indices") <- v.ind
res <- CChart("CombinedScatter", dat, scatter.labels.as.hovertext = TRUE,
scatter.colors.column = NA, marker.size = 10,
scatter.sizes.as.diameter = TRUE, scatter.colors.as.categorical = TRUE,
colors = "#0000FF", append.data = TRUE)
expect_equal(attr(res, "ChartSettings")$BubbleScale, 100)
expect_equal(attr(res, "ChartSettings")$BubbleSizeType, "Width")
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$ShowDataLabels, FALSE)
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$BackgroundColor, "#0000FF66")
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$Marker,
list(Size = 10, OutlineStyle = "None", BackgroundColor = "#0000FF66"))
res <- CChart("CombinedScatter", dat, scatter.labels.as.hovertext = TRUE,
scatter.groups = round(dat[,5]/5), small.multiples = TRUE,
warn.if.no.match = FALSE, append.data = TRUE)
expect_equal(attr(res, "ChartWarning"),
" Small multiples are not supported by PowerPoint. It will be exported to PowerPoint as an image. Set 'PowerPoint Export > Format' to 'Microsoft Chart' and select a supported chart type or set the export format to 'Image' to suppress this warning.")
v.ind <- c(x = 1, y = 2, sizes = NA, colors = 4, groups = 5)
attr(dat, "scatter.variable.indices") <- v.ind
res <- CChart("CombinedScatter", dat[1:3,], scatter.labels.as.hovertext = TRUE,
scatter.sizes.column = NA, scatter.colors.as.categorical = TRUE,
colors = c("#FF0000", "#00FF00", "#0000FF"), marker.size = 6,
append.data = TRUE)
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[2]]$BackgroundColor, "#00FF00FF")
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[3]]$Marker,
list(Size = 6, OutlineStyle = "None", BackgroundColor = "#0000FFFF"))
v.ind <- c(x = 1, y = 2, sizes = 3, colors = 4, groups = 5)
attr(dat, "scatter.variable.indices") <- v.ind
res <- CChart("CombinedScatter", dat, scatter.colors.as.categorical = FALSE,
colors = c("red", "white", "blue"), marker.size = 3, append.data = TRUE)
expect_equal(attr(res, "ChartType"), "Bubble")
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$OutlineStyle, "None")
expect_equal(length(attr(res, "ChartSettings")$TemplateSeries[[1]]$CustomPoints), 50)
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$CustomPoints[[2]],
list(Index = 1, Marker = list(BackgroundColor = "#FFB8B866",
Style = "Circle", Size = 3)))
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$CustomPoints[[49]],
list(Index = 48, Marker = list(BackgroundColor = "#FF040466",
Style = "Circle", Size = 3)))
v.ind <- c(x = 1, y = 2, sizes = NULL, colors = 4, groups = 5)
attr(dat, "scatter.variable.indices") <- v.ind
res <- CChart("CombinedScatter", dat, scatter.colors.as.categorical = FALSE,
scatter.sizes.column = NULL, marker.size = 6, opacity = 0.4,
scatter.labels.as.hovertext = FALSE, data.label.font.autocolor = TRUE,
annotation.list = list(list(type = "Arrow - up",
data = "sr", threstype = "above threshold", threshold = "15",
color = "red", size = 15, width = 1, font.family = "Arial",
font.weight = "normal", font.style = "normal", format = ".2f", prefix = "$"),
list(type = "Marker border", data = "sr", threstype = "below threshold",
threshold = "3", width = 2, color = "red")),
colors = terrain.colors(5), append.data = TRUE)
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$CustomPoints[[1]],
list(Index = 0, Marker = list(BackgroundColor = "#EBB66566",
Style = "Circle", Size = 6)))
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$CustomPoints[[7]],
list(Index = 6, Marker = list(BackgroundColor = "#86CB0066",
Style = "Circle", Size = 6, OutlineColor = "red", OutlineWidth = 2,
OutlineStyle = "Solid")))
expect_equal(attr(res, "ChartLabels")$SeriesLabels[[1]]$CustomPoints[[46]],
list(Index = 45, Font = list(color = "#0BA900"), Segments = list(
list(Text = "Zambia"), list(Font = list(color = "red", size = 11.2528132033008,
family = "Arial", bold = FALSE, italic = FALSE), Text = "↑"))))
v.ind <- c(x = 1, y = 2, sizes = NULL, colors = NULL, groups = NULL)
attr(dat, "scatter.variable.indices") <- v.ind
expect_error(res <- CChart("CombinedScatter", dat, scatter.labels.as.hovertext = TRUE,
scatter.colors.column = NULL, scatter.colors.as.categorical = TRUE,
colors = "#3E7DCC99", annotation.list = list(list(
type = "Marker border", data = "sr", threstype = "below threshold",
threshold = "3", width = 2, color = "red")), append.data = TRUE), NA)
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$CustomPoints[[1]],
list(Index = 6, Marker = list(OutlineColor = "red", OutlineWidth = 2,
OutlineStyle = "Solid", Style = "Circle", Size = 6, BackgroundColor = "#3E7DCC99")))
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$CustomPoints[[4]]$Index,41)
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$CustomPoints[[4]]$Marker$OutlineWidth, 2)
v.ind <- c(x = 1, y = 2, sizes = NULL, colors = NULL, groups = NULL)
attr(dat, "scatter.variable.indices") <- v.ind
expect_error(res <- CChart("CombinedScatter", dat,
data.label.font.autocolor = TRUE, scatter.labels.as.hovertext = FALSE,
scatter.colors.column = NULL, annotation.list = list(list(
type = "Marker border", data = "sr", threstype = "below threshold",
threshold = "3", width = 2, color = "red")), append.data = TRUE), NA)
expect_equal(attr(res, "ChartLabels")$SeriesLabels[[1]], list(ShowValue = TRUE))
v.ind <- c(x = 1, y = 2, sizes = NULL, colors = NULL, groups = NULL)
attr(dat, "scatter.variable.indices") <- v.ind
expect_error(res <- CChart("CombinedScatter", dat,
data.label.font.autocolor = TRUE, scatter.labels.as.hovertext = FALSE,
scatter.colors.column = NULL, annotation.list = list(list(type = "Arrow - up",
data = "sr", threstype = "above threshold", threshold = "15",
color = "red", size = 15, width = 1, font.family = "Arial",
font.weight = "normal", font.style = "normal", format = ".2f", prefix = "$"),list(
type = "Marker border", data = "sr", threstype = "below threshold",
threshold = "3", width = 2, color = "red")), append.data = TRUE), NA)
expect_equal(attr(res, "ChartLabels")$SeriesLabels[[1]]$ShowValue, FALSE)
expect_equal(attr(res, "ChartLabels")$SeriesLabels[[1]]$CustomPoints[[46]],
list(Index = 45, Segments = list(list(Text = "Zambia"), list(
Font = list(color = "red", size = 11.2528132033008, family = "Arial",
bold = FALSE, italic = FALSE), Text = "↑"))))
pasted <- list(structure(c("", "a", "b", "c", "d", "e", "f", "g", "x",
"1", "2", "4", "2", "4", "6", "3", "y", "6", "7", "5", "5", "2",
"8", "9", "z", "1", "2", "3", "4", "5", "6", "7"), .Dim = c(8L,
4L)), FALSE, NULL, NULL)
pd <- PrepareData("CombinedScatter", input.data.pasted = pasted)
res <- CChart("CombinedScatter", pd$data, colors = "#FF0000", opacity = NULL,
append.data = TRUE, scatter.colors.as.categorical = TRUE)
expect_equal(attr(res, "ChartSettings")$TemplateSeries[[1]]$BackgroundColor, "#FF000066")
})
dat.char.colors <- structure(list(`X-coord` = c(2, 6, 7, 3, 4), `Y-coord` = c(3,
5, 7, 3, 8), Size = c(1, 2, 3, 4, 5), Group = c("A", "A", "B",
"B", "C")), row.names = c("alpha", "beta", "gamma", "delta",
"epsilon"), scatter.variable.indices = c(x = 1, y = 2, sizes = 3,
colors = 4, groups = 4), class = "data.frame")
dat.char.coords <- structure(list(Day = c("Monday", "Tuesday", "Monday", "Wednesay",
"Friday", "Monday", "Tuesday", "Thursday", "Wednesday"), Time = c("Lunch",
"Dinner", "Breakfast", "Breakfast", "Lunch", "Lunch", "Dinner",
"Lunch", "Lunch")), row.names = c("Amy", "Ben", "Jim", "Tim",
"Ian", "Sara", "Rod", "Bob", "Liz"), scatter.variable.indices = c(x = 1,
y = 2, sizes = NA, colors = NA, groups = 2), class = "data.frame")
dat.factor.coords <- structure(list(Species = structure(c(2L, 2L, 2L, 1L, 3L, 2L,
3L, 3L, 2L, 2L, 2L, 2L, 3L, 2L, 2L, 3L, 3L, 3L, 1L, 1L), .Label = c("setosa",
"versicolor", "virginica"), class = "factor"), `Grid: Petal.Length` = c(4.7,
4.4, 4.1, 1.7, 5.1, 3.7, 4.8, 6.4, 4.4, 4.7, 4.1, 4.5, 5.1, 4.5,
4.1, 6.7, 5.4, 5.7, 1.6, 1.4)), scatter.variable.indices = c(x = 1,
y = 2, sizes = NA, colors = NA, groups = NA), row.names = c(64L,
91L, 68L, 24L, 111L, 82L, 139L, 132L, 88L, 51L, 89L, 69L, 134L,
85L, 100L, 123L, 140L, 125L, 26L, 18L), class = "data.frame")
test_that("CombinedScatterplot ChartData conversion",
{
res <- convertChartDataToNumeric(dat.char.colors)
expect_equal(unlist(lapply(res, class)), c(`X-coord` = "numeric",
`Y-coord` = "numeric", Size = "numeric", Group = "factor"))
expect_equal(dim(res), dim(dat.char.colors))
expect_equal(attr(res, "scatter.variable.indices"),
attr(dat.char.colors, "scatter.variable.indices"))
res <- convertChartDataToNumeric(dat.char.coords)
expect_equal(unlist(lapply(res, class)), c(Day = "integer", Time = "integer"))
expect_equal(dim(res), dim(dat.char.coords))
expect_equal(attr(res, "scatter.variable.indices"),
attr(dat.char.coords, "scatter.variable.indices"))
res <- convertChartDataToNumeric(dat.factor.coords)
expect_equal(unlist(lapply(res, class)),
c(Species = "integer", `Grid: Petal.Length` = "numeric"))
expect_equal(dim(res), dim(dat.factor.coords))
expect_equal(attr(res, "scatter.variable.indices"),
attr(dat.factor.coords, "scatter.variable.indices"))
})
dat <- structure(list(multi1 = structure(c(6L, 5L, 3L, 3L, 3L, 2L, 4L,
2L, 9L, 2L, 6L, 4L, 7L, 6L, 10L, 7L, 6L, 2L, 3L, 5L), .Dim = c(10L,
2L), .Dimnames = list(c("A", "B", "C", "D", "E", "F", "G", "H",
"I", "J"), c("Col 1", "Col 2"))), multi2 = structure(c(7, 6,
4, 4, 4, 3, 5, 3, 10, 3, 6, 4, 7, 6, 10, 7, 6, 2, 3, 5), .Dim = c(10L,
2L), .Dimnames = list(c("A", "B", "C", "D", "E", "F", "G", "H",
"I", "J"), c("Col 1", "Col 2"))), multi3 = structure(c(7, 6,
4, 4, 4, 3, 5, 3, 10, 3, 7, 5, 8, 7, 11, 8, 7, 3, 4, 6), .Dim = c(10L,
2L), .Dimnames = list(c("A", "B", "C", "D", "E", "F", "G", "H",
"I", "J"), c("Col 1", "Col 2")))), scatter.variable.indices = c(x = 1,
y = 2, sizes = 3, colors = 4))
test_that("CombinedScatter with multiple tables",
{
expect_warning(CChart("CombinedScatter", dat, append.data = TRUE),
"overlapping points")
expect_warning(CChart("CombinedScatter", dat, trend.lines = TRUE,
scatter.x.column = 1, scatter.y.column = 2, append.data = T),
"overlapping points")
})
dat.with.factors <- structure(list(Income = structure(c(7L, 4L, 7L, 2L, NA, 3L, 7L),
levels = c("Less than $15,000",
"$15,001 to $30,000", "$30,001 to $45,000", "$45,001 to $60,000",
"$60,001 to $90,000", "$90,001 to $120,000", "$120,001 to $150,000",
"$150,001 to $200,000", "$200,001 or more"), class = "factor",
questiontype = "PickOne", dataset = "Cola Tracking - January to December.sav",
values = c(`Less than $15,000` = 3000, `$15,001 to $30,000` = 22000,
`$30,001 to $45,000` = 37000, `$45,001 to $60,000` = 51000,
`$60,001 to $90,000` = 72000, `$90,001 to $120,000` = 103000,
`$120,001 to $150,000` = 132000, `$150,001 to $200,000` = 168000,
`$200,001 or more` = 280000), sourcevalues = c(`Less than $15,000` = 3000,
`$15,001 to $30,000` = 22000, `$30,001 to $45,000` = 37000, `$45,001 to $60,000` = 51000,
`$60,001 to $90,000` = 72000, `$90,001 to $120,000` = 103000,
`$120,001 to $150,000` = 132000, `$150,001 to $200,000` = 168000,
`$200,001 or more` = 280000), codeframe = list(`Less than $15,000` = 3000,
`$15,001 to $30,000` = 22000, `$30,001 to $45,000` = 37000,
`$45,001 to $60,000` = 51000, `$60,001 to $90,000` = 72000,
`$90,001 to $120,000` = 103000, `$120,001 to $150,000` = 132000,
`$150,001 to $200,000` = 168000, `$200,001 or more` = 280000,
NET = c(3000, 22000, 37000, 51000, 72000, 103000, 132000,
168000, 280000)), name = "d2", label = "Income", question = "Income"),
Age = structure(c(2L, 6L, 8L, 8L, 4L, 9L, 6L), levels = c("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 or more"), class = "factor",
questiontype = "PickOne", dataset = "Cola Tracking - January to December.sav",
values = c(`18 to 24` = 21, `25 to 29` = 27, `30 to 34` = 32,
`35 to 39` = 37, `40 to 44` = 42,`45 to 49` = 47, `50 to 54` = 52,
`55 to 64` = 60, `65 or more` = 77), sourcevalues = c(`18 to 24` = 21,
`25 to 29` = 27, `30 to 34` = 32,
`35 to 39` = 37, `40 to 44` = 42, `45 to 49` = 47, `50 to 54` = 52,
`55 to 64` = 60, `65 or more` = 77), codeframe = list(`18 to 24` = 21,
`25 to 29` = 27, `30 to 34` = 32, `35 to 39` = 37, `40 to 44` = 42,
`45 to 49` = 47, `50 to 54` = 52, `55 to 64` = 60, `65 or more` = 77,
NET = c(21, 27, 32, 37, 42, 47, 52, 60, 77)), name = "d1", label = "Age", question = "Age")),
row.names = 1:7, scatter.variable.indices = c(x = 1, y = 2, sizes = NA, colors = 2, groups = NA),
class = "data.frame")
test_that("Exporting scatter with factor data",
{
expect_warning(CChart("CombinedScatter", dat.with.factors, colors = ChartColors(10),
scatter.colors.column = 2, append.data = TRUE), "missing values")
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.