# NOT RUN {
data("volcano")
surface <- as.data.frame(as.table(volcano))
surface$Var1 <- as.numeric(surface$Var1)
surface$Var2 <- as.numeric(surface$Var2)
surface %>%
e_charts(Var1) %>%
e_surface(Var2, Freq) %>%
e_visual_map(Freq)
# }
Run the code above in your browser using DataLab