#install.packages("pacman")

library("pacman")

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

Base de datos

amplificacion <- vroom ("https://raw.githubusercontent.com/FernandaZuniga2509/Metabol-mica/refs/heads/main/amplificacion.csv")
## `curl` package not installed, falling back to using `url()`
## 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

Grafica

grafica_amplif <- ggplot(data=amplificacion,
                         mapping=aes(x= Cycle,
                                     y=A4))+
  geom_line(color="violet")+
  geom_point(color="#F2F527", size=0.5)+
  theme_classic()+
  labs(title="Curva de amplificación RT-qPCR SyBr Green",
       subtitle="muestra: cerebro 100ng",
       caption ="Diseñó: Fernanda Zúñiga",
       x= "Ciclos",
       y= "Fluoresencia ")

grafica_amplif