如何解决使用垂直线添加覆盖图会导致绘图R中的错误
我有一个图,我想添加垂直线以分离出数据中的区域。我已经使用基于数据值的颜色为原始数据着色。但是,当我添加代码以应用这些行时,出现以下错误:
错误:标题列必须具有一致的长度,只有长度为1的值才被回收:
- 长度2:列
x
,y
- 长度100:列
name
,列color
我已经使用Nile数据使用此处提供的示例代码重新创建了我的处境。为什么会发生这种情况,我该怎么办才能解决问题?
library(plotly)
data("Nile")
n = Nile
df <- data.frame(n)
df$size <- ifelse(n> 999,'Large','Small')
rmean20 = stats::filter(df$n,rep(1/20,20),side=2)
colorSet <- c("red","green")
p.rm = plot_ly(df,x=x,y=n,type="scatter",mode="markers",name=df$size,color = ~size,colors = colorSet)
p.rm = add_lines(p.rm,y=rmean20,name="Bandwidth = 20")
p.rm = layout(p.rm,title = "Running mean")
print(p.rm)
p.rm = add_lines(p.rm,x = c(40,40),y = c(400,1400))
print(p.rm)
谢谢
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。