Rhodo
Rhodo

Reputation: 1334

Formatting axis in Surface plot Plotly R

Making a 3 month curve for natural gas prices. I'm having some axis issues. I'd like to be able to have the dates show up instead of number of days.

library(ggplot2)
library(Quandl)
library(magrittr)
require(plotly)

#Get first 3 month on the nat gas curve data from Quandl
my_start_date <- "2013-01-05"

gas1<-Quandl("CHRIS/CME_NG1", start_date = my_start_date, type = "xts")
gas2<-Quandl("CHRIS/CME_NG2", start_date = my_start_date, type = "xts")
gas3<-Quandl("CHRIS/CME_NG3", start_date = my_start_date, type = "xts")

#isolate the last prices
gas1a<-gas1[,"Last"]
gas2a<-gas2[,"Last"]
gas3a<-gas3[,"Last"]

p <- merge(as.zoo(gas1a), as.zoo(gas2a), as.zoo(gas3a), all = FALSE)

#3d graph
plot_ly(z = p, type = "surface")%>%
  layout(title = "3 month Nat Gas curve",
         scene = list(
            xaxis = list(title = "Month"),
            yaxis = list(title = "Days"),
            zaxis = list(title = "Price")))

Upvotes: 0

Views: 924

Answers (1)

MLavoie
MLavoie

Reputation: 9836

Are you looking for this?

plot_ly(y=index(p), z = p, type = "surface")%>%
  layout(title = "3 month Nat Gas curve",
         scene = list(
            xaxis = list(title = "Month"),
            yaxis = list(title = "Days", tickangle = 180),
            zaxis = list(title = "Price")))

Upvotes: 1

Related Questions