This is my initial code:library(ggplot2)library(dplyr)library(plotly)library(reshape2)# Define the f