Is it possible to have multiple axes plots in Plotly R

Leakage is all zero's. but I made this as a starting point.

example_df <- function(intext) {
  tf <- tempfile()
  writeLines(intext, con = tf)
  require(tidyverse)
  as_tibble(read.delim(tf))
}
(df <- example_df("Amps	Volts	Leakage	macro	device	chip	group
1.63E-04	1.86	0	R_NSPESDNFETSLPE01E	NSG_NSP_W560_N16_DOP1p25_L80_WF35_1_1	0 0	0 0 R_NSPESDNFETSLPE01E NSG_NSP_W560_N16_DOP1p25_L80_WF35_1_1
1.13E-04	2.25	0	R_NSPESDNFETSLPE01E	NSG_NSP_W560_N16_DOP1p25_L80_WF35_1_1	0 0	0 0 R_NSPESDNFETSLPE01E NSG_NSP_W560_N16_DOP1p25_L80_WF35_1_1
1.37E-04	2.58	0	R_NSPESDNFETSLPE01E	NSG_NSP_W560_N16_DOP1p25_L80_WF35_1_1	0 0	0 0 R_NSPESDNFETSLPE01E NSG_NSP_W560_N16_DOP1p25_L80_WF35_1_1
5.38E-04	2.92	0	R_NSPESDNFETSLPE01E	NSG_NSP_W560_N16_DOP1p25_L80_WF35_1_1	0 0	0 0 R_NSPESDNFETSLPE01E NSG_NSP_W560_N16_DOP1p25_L80_WF35_1_1
1.40E-03	3.22	0	R_NSPESDNFETSLPE01E	NSG_NSP_W560_N16_DOP1p25_L80_WF35_1_1	0 0	0 0 R_NSPESDNFETSLPE01E NSG_NSP_W560_N16_DOP1p25_L80_WF35_1_1
2.59E-03	3.53	0	R_NSPESDNFETSLPE01E	NSG_NSP_W560_N16_DOP1p25_L80_WF35_1_1	0 0	0 0 R_NSPESDNFETSLPE01E NSG_NSP_W560_N16_DOP1p25_L80_WF35_1_1
4.45E-03	3.79	0	R_NSPESDNFETSLPE01E	NSG_NSP_W560_N16_DOP1p25_L80_WF35_1_1	0 0	0 0 R_NSPESDNFETSLPE01E NSG_NSP_W560_N16_DOP1p25_L80_WF35_1_1
6.74E-03	4.03	0	R_NSPESDNFETSLPE01E	NSG_NSP_W560_N16_DOP1p25_L80_WF35_1_1	0 0	0 0 R_NSPESDNFETSLPE01E NSG_NSP_W560_N16_DOP1p25_L80_WF35_1_1
9.38E-03	4.25	0	R_NSPESDNFETSLPE01E	NSG_NSP_W560_N16_DOP1p25_L80_WF35_1_1	0 0	0 0 R_NSPESDNFETSLPE01E NSG_NSP_W560_N16_DOP1p25_L80_WF35_1_1
1.84E-02	4.09	0	R_NSPESDNFETSLPE01E	NSG_NSP_W560_N16_DOP1p25_L80_WF35_1_1	0 0	0 0 R_NSPESDNFETSLPE01E NSG_NSP_W560_N16_DOP1p25_L80_WF35_1_1
2.50E-02	3.95	0	R_NSPESDNFETSLPE01E	NSG_NSP_W560_N16_DOP1p25_L80_WF35_1_1	0 0	0 0 R_NSPESDNFETSLPE01E NSG_NSP_W560_N16_DOP1p25_L80_WF35_1_1
3.07E-02	3.98	0	R_NSPESDNFETSLPE01E	NSG_NSP_W560_N16_DOP1p25_L80_WF35_1_1	0 0	0 0 R_NSPESDNFETSLPE01E NSG_NSP_W560_N16_DOP1p25_L80_WF35_1_1
3.75E-02	3.88	0	R_NSPESDNFETSLPE01E	NSG_NSP_W560_N16_DOP1p25_L80_WF35_1_1	0 0	0 0 R_NSPESDNFETSLPE01E NSG_NSP_W560_N16_DOP1p25_L80_WF35_1_1"))




library(plotly)
ax <- list(
  tickfont = list(color = "red"),
  overlaying = "x",
  side = "top",
  title = "second x axis"
)

df1 <- df %>% select(x=Volts,y=Amps)


df2 <- df %>% select(x=Leakage,y=Amps)


fig <- plot_ly()
fig <- fig %>% add_lines(x = df1$x, y = df1$y, name = "df1") #,line = list(shape = "spline"))
fig <- fig %>% add_lines(x = df2$x, y = df2$y, name = "df2", xaxis = "x2")
fig <- fig %>% layout(
  title = "Double Y Axis", xaxis2 = ax,
  xaxis = list(title="x")
)

fig