
# Plotly librarie
library(plotly)

# Use the mtcars dataset :
head(mtcars)

# Make the graph
plot_ly(mtcars, x = ~mpg, y = ~disp, type="scatter", mode = "markers" , marker=list( color=ifelse(mtcars$mpg>20,"red","blue") , opacity=0.5 , size=30) ) %>%

#Add the segment with add_trace
add_trace(x = c(20, 20), y= c(min(mtcars$disp), max(mtcars$disp)), mode = "lines") %>%

#Layout
layout(showlegend=F)

# Plotly librarie

library(plotly)

# Use the mtcars dataset :

head(mtcars)

# Make the graph

plot_ly(mtcars, x = ~mpg, y = ~disp, type="scatter", mode = "markers" , marker=list( color=ifelse(mtcars$mpg>20,"red","blue") , opacity=0.5 , size=30) ) %>%

#Add the segment with add_trace