# Define input file
fastx_input <- system.file("extdata/small_derep_R1.fa", package = "Rsearch")
# Generate and display plot without cutoff
size_plot <- plot_size_dist(fastx_input = fastx_input,
input_format = "fasta")
print(size_plot)
# Generate and display plot with a cutoff at size 100
size_plot <- plot_size_dist(fastx_input = fastx_input,
input_format = "fasta",
cutoff = 100)
print(size_plot)
# Generate and display plot with custom y-axis breaks
size_plot <- plot_size_dist(fastx_input = fastx_input,
input_format = "fasta",
y_breaks = c(1, 50, 500, 5000))
print(size_plot)
# Generate and display plot with linear y-axis
size_plot <- plot_size_dist(fastx_input = fastx_input,
input_format = "fasta",
log_scale_y = FALSE)
print(size_plot)
Run the code above in your browser using DataLab