Load the Data

sunspots <- read.csv("data/Sunspots.csv")

Create plot

p <- plot_ly(sunspots, x = sunspots$Date, y = sunspots$Monthly.Mean.Total.Sunspot.Number, type = "scatter", mode = "lines")
p <- p %>% 
  layout(title = "Sunspot Frequency")
p