R Markdown Presentation & Plotly

library(plotly)
setwd("C:/Users/Bruno Gonzalez/Documents")

hydro_gen <- read.csv("generacionHidro.csv")
hydro_gen$FECHA <- as.Date(hydro_gen$FECHA, "%d/%m/%y")

Hydro generation on 2016 in México.

month <- "01"
hydro_month <- subset(hydro_gen, format.Date(FECHA, "%m")== month)
dup <- duplicated(format.Date(hydro_month$FECHA, "%d"))
days <- format.Date(hydro_month[!dup,]$FECHA, "%d")

days_m <- matrix(hydro_month$TOTAL, nrow = 24, ncol = length(days))



plot_ly(z=days_m, type="surface")

## Warning in doColorRamp(colorMatrix, x, alpha, ifelse(is.na(na.color), "", :
## '.Random.seed' is not an integer vector but of type 'NULL', so ignored