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
