2017-04-14 92 views
0

这是我的代码:添加一条垂直线并使用绘图R突出显示图中y轴标签中的值。

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') 

我有一个很好的情节,但我想在剧情中添加一些额外的功能。我想在值为5的y轴上添加一条红色垂直线,并将该线命名为SLA。

有人可以提出任何解决方案。

+1

尝试编辑这个职位有相应的回报和标签,使用代码周围的大括号所以它是可读性cpde。如果人们确信他们知道它说什么,你会更快找到帮助。 – sconfluentus

回答

0

可能:

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 
+0

谢谢@guscht。你的代码以某种方式给了我一个想法,但它仍然有一些问题与我的预期结果。我修改了代码,现在得到了完美的结果。 –

+0

add_lines(p,y = 5,name =“SLA”,color =“red”,list(color ='rgb(205,12,24)',width = 4,dash ='dot')) –

+0

调整好代码以使其工作。 – guscht

相关问题