Cruvas de disociación E2

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

datos <- vroom(“https://raw.githubusercontent.com/ManuelLaraMVZ/resultados_PCR_practica/refs/heads/main/Disoci_ejemplo1.csv”)

colnames(datos) head(datos)

datos_long <- datos %>% pivot_longer( cols = -Temperature, names_to = “Muestra”, values_to = “Fluorescencia” ) datos_long\(Temperature <- as.numeric(datos_long\)Temperature) datos_long\(Fluorescencia <- as.numeric(datos_long\)Fluorescencia)

ggplot(datos_long, aes(x = Temperature, y = Fluorescencia, color = Muestra)) + geom_line(size = 1) + labs(title = “Curvas de disociación múltiples qPCR”, x = “Temperatura (°C)”, y = “Fluorescencia”, color = “Muestra”) + theme_minimal()