dat <- electricity
data_lines <- cbind(data.frame("Time" = dat$fparam), dat$data) %>%
tidyr::pivot_longer(cols = 1 + 1:ncol(dat$data))
colors_plot <- RColorBrewer::brewer.pal(11, "Spectral")
colors_plot <- grDevices::colorRampPalette(colors_plot)(ncol(dat$data))
data_lines$color <- rep(colors_plot, nrow(dat$data))
data_lines$name <- as.numeric(data_lines$name)
result <- ggplot2::ggplot(
data_lines,
ggplot2::aes(y = Time, x = name, z = value, color = color)
) +
ggplot2::theme_void() +
stat_3D(theta = 0, phi = 15, geom = "path") +
ggplot2::scale_color_manual(
breaks = data_lines$color,
values = data_lines$color
) +
ggplot2::guides(color = "none")
Run the code above in your browser using DataLab