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

Cargar datos

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

Revisar nombres

colnames(datos)

Convertir a formato largo

datos_long <- datos %>% pivot_longer( cols = -Cycle, names_to = “Muestra”, values_to = “Fluorescencia” )

install.packages(“tidyr”) library(tidyr) # Asegurar formato numérico datos_long\(Cycle <- as.numeric(datos_long\)Cycle) datos_long\(Fluorescencia <- as.numeric(datos_long\)Fluorescencia)

Graficar múltiples curvas

ggplot(datos_long, aes(x = Cycle, y = Fluorescencia, color = Muestra)) + geom_line(size = 1) + labs(title = “Curvas de amplificación múltiples RT-qPCR”, x = “Número de ciclo”, y = “Fluorescencia”, color = “Muestra”) + theme_minimal() install.packages(“tidyverse”) # solo una vez library(tidyverse)