library(tidyverse)
data <- read_csv("light_medium.csv")

data_light <- data |>
    filter(weight == "light")
data_medium <- data |>
    filter(weight == "medium")

plotly::plot_ly() |>
    plotly::add_mesh(
        x = data_light$pen - 939,
        y = data_light$crit_dmg,
        z = data_light$power,
        color = "light"
    ) |>
    plotly::add_mesh(
        x = data_medium$pen,
        y = data_medium$crit_dmg - 0.02,
        z = data_medium$power,
        color = "medium"
    ) |>
    plotly::layout(
        scene = list(
            xaxis = list(title = "penetration"),
            yaxis = list(title = "crit dmg"),
            zaxis = list(title = "power")
        )
    )