if (FALSE) {
library(beadplexr)
data("lplex")
df <- lplex[[1]]
df$bead_group <- ifelse(df$`FSC-A` < 4e5L, "A", "B")
# Using facs_plot
facs_plot(df, .type = "scatter")
facs_plot(df, .type = "density1d")
facs_plot(df, .type = "density2d")
facs_plot(df, .type = "hexbin")
facs_plot(df, .type = "scatter", .beads = "bead_group")
facs_plot(df, .type = "density1d", .beads = "bead_group")
facs_plot(df, .type = "hexbin", .bins = 50)
facs_plot(df, .x = "FL2-H", .type = "scatter", .beads = "bead_group")
# Individual functions
facs_scatter(df)
facs_scatter(df, .beads = "bead_group", .plot_distinct = FALSE)
facs_scatter(df, .beads = "bead_group")
facs_scatter(df, .x = "FL2-H", .y = "FL6-H", .beads = "bead_group")
facs_density1d(df)
facs_density1d(df, .beads = "bead_group")
facs_density2d(df)
facs_density2d(df, .beads = "bead_group")
facs_hexbin(df)
facs_hexbin(df, .bins = 30)
}
Run the code above in your browser using DataLab