library(vroom) library(ggplot2)

datos <- vroom(“https://raw.githubusercontent.com/ManuelLaraMVZ/Metabolomica_2026_1/refs/heads/main/Metabolo%CC%81mica%20curvas%20de%20disociacio%CC%81n_ambos%20grupos.csv”)

colnames(datos) head(datos)

ggplot(datos, aes(x = Cycle, y = A1)) + geom_line(size = 1) + labs(title = “Curva de disociación qPCR - Muestra G1”, x = “Temperatura (°C)”, y = “Fluorescencia”) + theme_minimal()