Finerenone started at 10 mg/kg daily by oral gavage on 4/16/2026,
S typh infection by oral gavage on 4/23/2026.
library(tidyverse)
Warning: package 'ggplot2' was built under R version 4.5.2
Warning: package 'tibble' was built under R version 4.5.2
Warning: package 'tidyr' was built under R version 4.5.2
Warning: package 'readr' was built under R version 4.5.2
Warning: package 'purrr' was built under R version 4.5.2
Warning: package 'dplyr' was built under R version 4.5.2
Warning: package 'lubridate' was built under R version
4.5.2
── Attaching core tidyverse packages ──── tidyverse 2.0.0 ──
✔ dplyr 1.2.0 ✔ readr 2.2.0
✔ forcats 1.0.1 ✔ stringr 1.6.0
✔ ggplot2 4.0.2 ✔ tibble 3.3.1
✔ lubridate 1.9.5 ✔ tidyr 1.3.2
✔ purrr 1.2.1
── Conflicts ────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag() masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
library(readxl)library(janitor)
Attaching package: 'janitor'
The following objects are masked from 'package:stats':
chisq.test, fisher.test
library(ggtext)
Import data file
dt <- readxl::read_excel("MST-66_bodywt.xlsx")
Now let’s make the basic plot
Questions:
Does finerenone make inflammation worse, cause mortality with intestinal inflammation (like spironolactone?)
Does finerenone reduce intestinal fibrosis- like it does in heart and kidney?
dt |>pivot_longer(cols =-c(Tx:cage),names_to ='date',values_to ='weight_g') |>mutate(date =excel_numeric_to_date(as.numeric(date))) |>ggplot() +aes(x = date, y = weight_g, color = Tx, group = Tx) +geom_jitter(width =0.4) +geom_smooth() +labs(x ='Date', y ="Mouse Body Weight (g)", title ="<span style='color:blue;'>Finerenone</span> Prevention in the *Salmonella typhimurium*<br>Inflammation to Fibrosis Mouse Model") +annotate(geom ='text', x =as.Date("2026-04-15"), y =23.5, label ="Finerenone", color ="blue") +annotate(geom ='text', x =as.Date("2026-04-15"), y =19.5, label ="Control", color ='red') +annotate(geom ='text', x =as.Date("2026-04-16"), y =18, label ="Start Finerenone\non 16 April") +geom_segment(aes(x =as.Date("2026-04-16"), xend =as.Date("2026-04-16"), y =17, yend =15), color ='black',arrow =arrow(length =unit(0.2, "cm"))) +annotate(geom ='text', x =as.Date("2026-04-23"), y =16.8, label ="Start Salmonella\n infxn on 23 April") +geom_segment(aes(x =as.Date("2026-04-23"), xend =as.Date("2026-04-23"), y =16, yend =15), color ='black',arrow =arrow(length =unit(0.2, "cm"))) +scale_color_manual(values =c('blue', 'red')) +theme_linedraw()+theme(legend.position ='none') +theme(plot.title =element_markdown() # Required to render the HTML/Markdown )
`geom_smooth()` using method = 'loess' and formula = 'y ~
x'
Try without smoothing - averaging and curves
dt |>pivot_longer(cols =-c(Tx:cage),names_to ='date',values_to ='weight_g') |>mutate(date =excel_numeric_to_date(as.numeric(date))) |>ggplot() +aes(x = date, y = weight_g, color = Tx, group = Tx) +geom_jitter(width =0.3) +stat_summary(fun ="mean", geom ="line", aes(group = Tx)) +labs(x ='Date', y ="Mouse Body Weight (g)", title ="<span style='color:blue;'>Finerenone</span> Prevention in the *Salmonella typhimurium*<br>Inflammation to Fibrosis Mouse Model") +annotate(geom ='text', x =as.Date("2026-04-15"), y =23.2, label ="Finerenone", color ="blue") +annotate(geom ='text', x =as.Date("2026-04-15"), y =19.2, label ="Salmonella\nControl", color ='red') +annotate(geom ='text', x =as.Date("2026-04-16"), y =17.5, label ="Start Finerenone\non 16 April") +geom_segment(aes(x =as.Date("2026-04-16"), xend =as.Date("2026-04-16"), y =17, yend =15), color ='black',arrow =arrow(length =unit(0.2, "cm"))) +annotate(geom ='text', x =as.Date("2026-04-23"), y =16.5, label ="Start Salmonella\n infxn on 23 April") +geom_segment(aes(x =as.Date("2026-04-23"), xend =as.Date("2026-04-23"), y =16, yend =15), color ='black',arrow =arrow(length =unit(0.2, "cm"))) +geom_segment(aes(x =as.Date("2026-04-23"), xend =as.Date("2026-04-23"), y =17, yend =19), color ='black',arrow =arrow(length =unit(0.2, "cm"))) +scale_color_manual(values =c('blue', 'red')) +theme_linedraw()+theme(legend.position ='none') +theme(plot.title =element_markdown() )
