library(dplyr)
library(ggplot2)
data_tbl <- tibble(
x = rnorm(100, 0, 1),
y = rnorm(100, 0, 1),
z = abs(x) + abs(y)
)
gartner_magic_chart_plt(
.data = data_tbl,
.x_col = x,
.y_col = y,
.point_size_col = z,
.x_lab = "los",
.y_lab = "ra",
.plot_title = "tst",
.top_right_label = "High RA-LOS",
.top_left_label = "High RA",
.bottom_left_label = "Leader",
.bottom_right_label = "High LOS"
)
gartner_magic_chart_plt(
.data = data_tbl,
.x_col = x,
.y_col = y,
.point_size_col = NULL,
.x_lab = "los",
.y_lab = "ra",
.plot_title = "tst",
.top_right_label = "High RA-LOS",
.top_left_label = "High RA",
.bottom_left_label = "Leader",
.bottom_right_label = "High LOS"
)
Run the code above in your browser using DataLab