RPubs ini dibuat guna memenuhi tugas laporan praktikum mata kuliah Komputasi Statistika, semoga dapat bermanfaat bagi pengguna untuk bahan pembelajaran. Terima kasih:)

test

asignación bioestadística UPRH

# Define the time column and gene names > time_column <- "Time (min)" > gene_names <- c("x1", "x2", "x3", "x4", "x5") > # Time-series plots for each gene > for (gene in gene_names) { + p <- ggplot(data, aes(x = `Time (min)`, y = .data[[gene]])) + + geom_line(color = "blue") + + labs(title = paste("Time Series Plot for", gene), + x = "Time(min)", + y = paste("Brain Activity in", gene)) + + theme_minimal() + ggsave(paste0("time_series_", gene, ".png"), plot = p) + }

web 4