Paquetería

#install.packages("pacman")

library("pacman")

p_load("vroom", #llamar bases de datos
       "dplyr", #facilita el manejo de datos
       "ggplot2") #graficar

Base de datos

amplificacion <- vroom("https://raw.githubusercontent.com/ManuelLaraMVZ/Metabo_ago_dic_2025/refs/heads/main/Amplificacion.csv")
## Rows: 51 Columns: 7
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## dbl (7): Cycle, A1, A2, A3, A4, A5, A6
## 
## ℹ 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 × 7
##    Cycle    A1     A2     A3    A4     A5      A6
##    <dbl> <dbl>  <dbl>  <dbl> <dbl>  <dbl>   <dbl>
##  1     1 -88.2 -54.3  -40.4   69.4  -2.20  0.0597
##  2     2  44.1 -34.3  -21.6  122.   67.3   9.08  
##  3     3 117.   -6.29  -7.19 195.   94.2  16.6   
##  4     4 161.    6.23   6.42 263.  107.   20.8   
##  5     5 198.   12.2   14.1  325.  134.   19.2   
##  6     6 240.   12.4   13.8  389.  131.   10.3   
##  7     7 275.   10.2   15.3  464.  126.   17.4   
##  8     8 305.   11.8   11.4  540.  112.   19.9   
##  9     9 346.    6.42   4.41 626.   92.3  16.0   
## 10    10 391.    8.87   3.59 725.  115.   18.7   
## # ℹ 41 more rows

Gráfica

grafica_amplif <- ggplot(data= amplificacion,
                         mapping = aes(x= Cycle,
                                       y = A2))+
  geom_line(color="#4C0D7A")+
  geom_point(color="#A509C8", size = 0.5)+
  theme_classic()+
  labs(title = "Curva de amplificación RT-qPCR SyBr Green",
       subtitle = "Muestra: riñón 100 ng",
       caption = "Diseñó: Manuel Lara",
       x= "Ciclos",
       y = "Fluoresencia")

grafica_amplif