Curva de amplificación qPCR

if(!require("pacman"))   install.packages("pacman")

## Loading required package: pacman

library("pacman")

p_load("vroom", 
       "dplyr", 
       "ggplot2") 

Amplificacion <- vroom(file="https://raw.githubusercontent.com/ManuelLaraMVZ/resultados_PCR_practica/refs/heads/main/Metabo_ago-dic2025_Amplif.csv")

## Rows: 51 Columns: 6
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## dbl (6): Cycle, A1, A2, A3, A4, A8
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

Amplificacion

## # A tibble: 51 × 6
##    Cycle     A1       A2     A3     A4      A8
##    <dbl>  <dbl>    <dbl>  <dbl>  <dbl>   <dbl>
##  1     1 -13.7  -42.0    -74.1  -282.  -77.4  
##  2     2  -3.74 -26.2    -41.4  -262.   20.5  
##  3     3   7.58  -0.0427  -5.23 -102.   14.7  
##  4     4   6.38   0.909    7.19 -137.   -0.216
##  5     5   8.38   5.01     5.57  -10.9   2.26 
##  6     6   8.40   9.52     9.43   21.6  -0.104
##  7     7   5.64   4.50     5.68   86.3   1.32 
##  8     8   7.16   6.23     5.99   59.1  -6.46 
##  9     9   7.97   4.29    -2.00   59.0 -10.4  
## 10    10   9.38   1.93     3.47   45.9  -0.420
## # ℹ 41 more rows

grafica <- ggplot(Amplificacion,
                  mapping = aes(x = Cycle,
                                y= A2))+
                    geom_line(color="#205E0D",
                              size=0.5)+
                    theme_classic()+
                    labs(title=
                           "Curva de amplificación pozo A2",
                         subtitle = "Muestra:Hígado/ 1 uL GFP",
                         caption = "Diseñado por Fernada Zúñiga",
                         x="Ciclos",
                         y="Fluorescencia") +
  geom_point(size=0.5, color="#0E3602")

## Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
## ℹ Please use `linewidth` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

grafica