plot_diversity output

[Ahmedalaraby20]

plot_diversity output

[sheridar]

Hi @Ahmedalaraby20, sorry about the delayed response. I haven't been able to reproduce your issue, can you send me the meta.data from your object?

[Ahmedalaraby20]

Hey,
Please find attached the metadata RDS
meta.zip

[sheridar]

Really sorry about the delayed response, using your object I still haven't been able to reproduce the issue, here is the code I tried, and I attached a screenshot from Inkscape. It might be good to try re-installing djvdj from github and then re-running. Is the code/data you sent the exact same code/data.frame used to generate your previous plot?

div_fns <- c(
  simpson = abdiv::simpson,
  shannon = abdiv::shannon,
  pielou  = abdiv::pielou_e
)

obj <- readRDS("~/Projects/djvdj/data-old/ahmed/2024-02-26_meta/meta.rds")

set.seed(42)

obj |>
  plot_diversity(
    data_col    = "cdr3",
    cluster_col = "subset",
    chain       = "TRA",
    downsample  = TRUE,
    method      = div_fns,
    alpha       = 0.5,
    linetype    = 2,
    color       = "black"
  ) +
  theme(
    strip.text = element_text(face = "bold"),
    axis.text.x = element_text(size = 10, angle = 90,  hjust = 1)
  )

ggsave("issue_141_plot.svg", width = 10, height = 7.5, units = "cm")

[Ahmedalaraby20]

@sheridar Thanks a lot