https://github.com/bradyajohnston/chromr

Read and Plot FPLC Chromatograms
https://github.com/bradyajohnston/chromr

chromatography ggplot2 r

Last synced: 17 days ago
JSON representation

Read and Plot FPLC Chromatograms

• Host: GitHub
• URL: https://github.com/bradyajohnston/chromr
• Owner: BradyAJohnston
• License: other
• Created: 2021-06-09T09:19:46.000Z (over 3 years ago)
• Default Branch: main
• Last Pushed: 2024-11-12T05:23:23.000Z (about 2 months ago)
• Last Synced: 2024-11-12T06:23:43.502Z (about 2 months ago)
• Topics: chromatography, ggplot2, r
• Language: R
• Homepage: https://bradyajohnston.github.io/chromr/
• Size: 4.64 MB
• Stars: 0
• Watchers: 2
• Forks: 0
• Open Issues: 0
• Metadata Files:
  • Readme: README.Rmd
  • Contributing: .github/CONTRIBUTING.md
  • License: LICENSE
  • Code of conduct: .github/CODE_OF_CONDUCT.md
  • Support: .github/SUPPORT.md

Awesome Lists containing this project

README

        
---

output: github_document

---

```{r, include = FALSE}

knitr::opts_chunk$set(

  collapse = TRUE,

  comment = "#>",

  fig.path = "man/figures/README-",

  out.width = "100%"

)

```

# chromr

[![Codecov test coverage](https://codecov.io/gh/BradyAJohnston/chromr/branch/main/graph/badge.svg)](https://app.codecov.io/gh/BradyAJohnston/chromr?branch=main) [![R-CMD-check](https://github.com/BradyAJohnston/chromr/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/BradyAJohnston/chromr/actions/workflows/R-CMD-check.yaml)

The goal of chromr is to ...

## Installation

You can install the development version of chromr from [GitHub](https://github.com/) with:

``` r

# install.packages("devtools")

devtools::install_github("BradyAJohnston/chromr")

```

## Example

Reading of chromatogram files and plotting from the BioRad QuadTech.

```{r example}

library(chromr)

## basic example code

```

```{r}

fl <- system.file(

  "extdata",

  "sec.txt", 

  package = "chromr"

)

dat <- fl %>% 

  chrom_read_quadtech()

dat

```

```{r}

dat %>% 

  dplyr::select(-a280) %>% 

  chrom_plot(ylim = c())

```

```{r}

fl <- system.file(

  "extdata",

  "sec_no_volume.txt", 

  package = "chromr"

)

fl %>% 

  chrom_read_quadtech() %>% 

  chrom_add_volume(0.3) %>% 

  chrom_plot(xlim = c(0, 3), ylim = c(NA, 0.01))

```

## Fractions2

```{r}

fl1 <- system.file("extdata",

                   "20220809_SFPQfl_TEVdig_S200_part1.TXT",

                   package = "chromr")

fl2 <- system.file("extdata",

                   "20220809_SFPQfl_TEVdig_S200_part2.TXT",

                   package = "chromr")

df1 <- chrom_read_quadtech(fl1)

df2 <- chrom_read_quadtech(fl2)

dat <- chrom_append_run(df1, df2)

chrom_plot_fractions(dat, wl_frac = 280)

```