# library(dplyr)
# dout <- pokemon %>%
# filter(
# type_1 == "water"
# ) %>%
# group_by(type_1, color_1) %>%
# reframe(
# probability = c(0, 0.25, 0.5, 0.75, 1),
# quantile = quantile(speed, probability)
# )
dout <- data.frame(
type_1 = rep("water", 5),
color_1 = rep("#6890F0", 5),
probability = c(0, 0.25, 0.5, 0.75, 1),
quantile = c(15, 57.25, 70, 82, 115)
)
d3po(dout) %>%
po_area(daes(
x = probability, y = quantile, group = type_1,
color = color_1
)) %>%
po_title("Sample Quantiles for Water Pokemon Speed")
Run the code above in your browser using DataLab