Plotly：双 y 轴图弄乱了折线图

Question

我正在尝试绘制降雨和温度的双轴图。我已经订购了底部的月份，但这导致我的折线图搞砸了。如何确保添加的行使用相同的 x 轴？

temprain<-data.frame(month = c(1:12), 
   Train = c(250,220, 180,97,38,27,31,47,70,140,200,250), 
   Tair = c(17,16, 15,13,9,6,5,9,12,13,14,16))
tempseq<-seq(0,20,by=0.5)
rainseq<-seq(0,260,by=1)

xlab<-list(type = "category",
           categoryorder = "array",
           categoryarray = month.name,
           showgrid = TRUE,
           showline = TRUE,
           autorange = TRUE,
           showticklabels = TRUE,
           ticks = "outside",
           tickangle = 0
)

plot_ly(temprain) %>%
  add_bars(x = ~MonthName, y = ~Train, type = "bar", name = "Rain") %>%
  add_lines(x = ~MonthName, y = ~Tair, yaxis = "y2", name = "Temp") %>% 
  layout(xaxis = xlab,
    yaxis = list(showline = TRUE, side = "left", 
                 title = "Rainfall (mm)Temp", range = tempseq), 
    yaxis2 = list(showline = TRUE, side = "right", 
                  overlaying = "y",  title = "Air Temp (C)", range = rainseq), 
    showlegend = FALSE,  
    margin = list(pad = 0, b = 50, l = 50, r = 50)) 

我也试过了，还是不行，临时图消失了

plot_ly(temprain, x = ~MonthName, y = ~Tair, name = "Temp") %>%
  add_bars(x = ~MonthName, y = ~Train, yaxis = "y2", type = "bar", name = "Rain") %>%
  layout(xaxis = xlab,
    yaxis = list(showline = TRUE, side = "left", 
                 title = "Air Temp (C)", range = tempseq),  
    yaxis2 = list(showline = TRUE, side = "right", 
                  overlaying = "y",
                 title = "Rainfall (mm)", range = rainseq), 
    showlegend = FALSE,  
    margin = list(pad = 0, b = 50, l = 50, r = 50))

Answer 1

解决方法如下：

您的数据：

temprain<-data.frame(month = c(1:12), 
                     Train = c(250,220, 180,97,38,27,31,47,70,140,200,250), 
                     Tair = c(17,16, 15,13,9,6,5,9,12,13,14,16))

从month 生成月份缩写列：

mymonths <- c("Jan","Feb","Mar",
              "Apr","May","Jun",
              "Jul","Aug","Sep",
              "Oct","Nov","Dec")

# match the month numbers against abbreviations:
temprain$MonthAbb = mymonths[ temprain$month ]

# This is the code to archieving a consistent combined graph:
temprain$MonthAbb <- factor(temprain$MonthAbb, levels = c(as.character(temprain$MonthAbb)))

现在绘制你的数据：

fig <- plot_ly(temprain)
# Add the Train trace:
fig <- fig %>% add_trace(x = ~MonthAbb, y = ~Train, name = "Train", type = "bar")

ay <- list(
  tickfont = list(color = "red"),
  overlaying = "y",
  side = "right",
  title = "<b>Tair</b>")

# Add the Tair trace:
fig <- fig %>% add_trace(x = ~MonthAbb, y = ~Tair, name = "Tair", yaxis = "y2", mode = "lines+markers", type = "scatter")

fig <- fig %>% layout(yaxis2 = ay,
  xaxis = list(title="Month"),
  yaxis = list(title="<b>Train</b>"))%>%
  layout(xaxis = list(
           zerolinecolor = '#ffff',
           zerolinewidth = 2,
           gridcolor = 'ffff'),
         yaxis = list(
           zerolinecolor = '#ffff',
           zerolinewidth = 2,
           gridcolor = 'ffff')
  )

fig

输出：