if (FALSE) {
library(beadplexr)
library(ggplot2)
data("lplex")
df <- lplex[[1]] |>
bp_clara(.parameter = c("FSC-A", "SSC-A"), .column_name = "analyte", .k = 2)
df |>
beadplexr:::assign_analyte_id(.parameter = c("FSC-A", "SSC-A"),
.analyte_id = c("A", "B"),
.column_name = "pop name",
.cluster_column_name = "analyte") |>
ggplot() +
aes(x = `FSC-A`, y = `SSC-A`, colour = `pop name`) +
geom_point()
df |>
beadplexr:::assign_analyte_id(.parameter = c("FSC-A", "SSC-A"),
.analyte_id = c("A", "B"),
.column_name = "pop name",
.cluster_column_name = "analyte", .desc = TRUE) |>
ggplot() +
aes(x = `FSC-A`, y = `SSC-A`, colour = `pop name`) +
geom_point()
}
Run the code above in your browser using DataLab