Plotting Lag Fit

The hardware and bandwidth for this mirror is donated by METANET, the Webhosting and Full Service-Cloud Provider.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]metanet.ch.

Plotting Lag Fit

Maks Necki

2024-10-05

This vignette describes the plot_lag_fit function, which is used to plot a single growth curve along with the calculated lag and the rationale for lag calculation.

The plot_lag_fit Function

Introduction

The plot_lag_fit function creates a plot for a provided growth curve using data generated by the Calculate.Lag function. The plot includes the growth curve, calculated lag, and additional information related to the lag calculation method.

Usage

The function takes the following parameters:

data_new: A data frame generated by the Calculate.Lag function with required columns such as “time,” “biomass,” “tangent.point,” “predicted.data,” “threshold,” “N0,” “second.deriv.b,” “line.intercept,” and “line.slope.”
log10_transform: If set to TRUE, it plots the y-axis (biomass) on a log10 scale.
print_lag_info: If set to TRUE, it prints the lag length on the graph. The function returns a ggplot object with the growth curve and other plot elements.

Examples

# Load required libraries
library(dplyr)

# Generate example data using Calculate.Lag function
set.seed(123)
time <- 1:10
biomass <- c(0.1, 0.3, 0.7, 1.5, 3.0, 5.0, 8.0, 12.0, 18.0, 25.0)
tangent.point <- c(0.3, 0.5, 0.9, 2.0, 4.0, 6.0, 9.0, 12.0, 17.0, 24.0)
predicted.data <- c(0.1, 0.4, 0.8, 1.6, 3.2, 6.0, 8.8, 12.5, 18.2, 25.1)
threshold <- c(0.3, 0.8, 1.3, 2.3, 4.3, 7.0, 10.2, 15.0, 21.0, 28.0)
N0 <- c(0.1, 0.1, 0.1, 0.1, 0.1, 0.1, 0.1, 0.1, 0.1, 0.1)
second.deriv.b <- c(0.02, 0.04, 0.09, 0.2, 0.4, 0.6, 0.9, 1.2, 1.7, 2.4)
line.intercept <- c(0.1, 0.1, 0.1, 0.1, 0.1, 0.1, 0.1, 0.1, 0.1, 0.1)
line.slope <- c(0.2, 0.2, 0.2, 0.2, 0.2, 0.2, 0.2, 0.2, 0.2, 0.2)

data_new <- data.frame(
  time = time,
  biomass = biomass,
  tangent.point = tangent.point,
  predicted.data = predicted.data,
  threshold = threshold,
  N0 = N0,
  second.deriv.b = second.deriv.b,
  line.intercept = line.intercept,
  line.slope = line.slope
)

# Plot the growth curve with lag information
plot <- plot_lag_fit(data_new, print_lag_info = TRUE, log10_transform = TRUE)

# Print the plot
print(plot)

Conclusion

The plot_lag_fit function is useful for visualizing a growth curve and the calculated lag, providing valuable insights into bacterial growth analysis.

These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.