Curvas qPCR

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

## Loading required package: pacman

library("pacman")

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

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

## Rows: 61 Columns: 6
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## dbl (6): Temperature, 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.

Melting

## # A tibble: 61 × 6
##    Temperature     A1     A2     A3     A4     A8
##          <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>
##  1        65   14541. 13541. 14551. 10918. 10745.
##  2        65.5 14412. 13483. 14365. 10809. 10622.
##  3        66   14282. 13425. 14179. 10701. 10499.
##  4        66.5 14152. 13367. 13993. 10592. 10377.
##  5        67   14023. 13308. 13806. 10483. 10254.
##  6        67.5 13893. 13250. 13620. 10375. 10132.
##  7        68   13763. 13192. 13434. 10266. 10009.
##  8        68.5 13620. 13116. 13235. 10150.  9879.
##  9        69   13462. 13023. 13027. 10025.  9747.
## 10        69.5 13292. 12908. 12810.  9897.  9609.
## # ℹ 51 more rows

grafica <- ggplot(Melting,
                  mapping = aes(x = Temperature,
                                y= A2))+
                    geom_line(color="#9527F5",
                              size=0.5)+
                    theme_classic()+
                    labs(title=
                           "Curva de disociación pozo A2",
                         subtitle = "Muestra:Hígado/ 1 uL GFP",
                         caption = "Diseñado por Fernada Zúñiga",
                         x="Temperatura",
                         y="Fluorescencia") +
  geom_point(size=0.5, color="#46166E")

## 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