---

#“Curva de amplificación qPCR absoluta” # “Jessica Peralta” # html_document

library(vroom) library(ggplot2) library(dplyr)

datos <- vroom(“https://raw.githubusercontent.com/ManuelLaraMVZ/Metabolomica_2026_1/refs/heads/main/Amplificacion_ambos%20grupos.csv”)

head(datos)

ggplot(datos, aes(x = Cycle, “G1-M”)) + geom_line(size = 1) + geom_point() + labs(title = “Curva de amplificación qPCR absoluta - Muestra G1-M”, x = “Número de ciclo”, y = “Fluorescencia”) + theme_minimal()

colnames(datos) str(datos)

ggplot(datos, aes(x = Cycle, y = G1-M)) + geom_line(size = 1) + geom_point() + labs(title = “Curva de amplificación qPCR absoluta - Muestra G1”, x = “Número de ciclo”, y = “Fluorescencia”) + theme_minimal()