使用绘图R？添加垂直线并在图形的y轴标签中突出显示一个值。

Question

This is my code:

Name<-c('Launch', 'Login', 'Default_Salary_Page', 'DownloadSlip', 'Advance_SalaryPage', 'Raise', 'Certificates')
Avg<-c(2.35,8.91,5.06,1.2,4.22,7.42,1.00)
Percentile_90<-c(3.35,9.91,6.06,2.54,6.45,8.12,2.05)
input<-data.frame(Name,Avg,Percentile_90
plot_ly(input,x=~Name,y=~Avg,name='Avg', type='scatter')%>%add_trace(y=~Percentile_90,name='Percentile_90', type='scatter')

I got a nice plot but I want to add some extra features in the plot. I want to add a red vertical line in y axis at value 5 and name that line as SLA.

Can somebody suggest any solution.

Answer 1

Maybe:

p <- plot_ly(input, x=~Name, y=~Avg, name='Avg', mode='markers', type='scatter')
p <- add_trace(p, y=~Percentile_90, name='Percentile_90', mode='markers', type='scatter')
p <- add_lines(p, y = 5,name='SLA', mode='lines', line=list(color='red'))
p