R曲线散点图，带有颜色编码和误差条

Question

我有import pandas as pd import os # Create function that converts csv 2 excel def csv2excel(filepath, sep=','): df = pd.read_csv(filepath, sep=sep) newpath = os.path.splitext(filepath)[0] + '.xlsx' df.to_excel(newpath, index=False) # Loop through files and call the function for f in os.listdir('.'): if f.endswith('.csv') and f.startswith('abcd'): csv2excel(f) 数据我想使用xy＆＃39; s R进行投标。 y点有一个相关的错误，我想绘制错误条。这些点也与一组两个级别相关联。

以下是数据：

plotly

在这里，我定义了组级别：

set.seed(1)
df <- data.frame(x=rnorm(20),y=rnorm(20),y.err=runif(20,0,0.1))

而且，这是我的密码：

df$optimal <- F
df$optimal[1] <- T
df$optimal <- factor(df$optimal,levels=c(F,T))

这给了我：

如您所见，缺少蓝点（最佳点）的误差条。

当我不按library(dplyr) library(plotly) scatter.plot <- plot_ly(type='scatter',mode="markers",color=~df$optimal,x=~df$x,y=~df$y,data=df) %>% layout(title="TITLE",xaxis=list(title="X",zeroline=F),yaxis=list(title="Y",zeroline=F)) scatter.plot <- scatter.plot %>% add_trace(scatter.plot,error_y=list(value=df$y.err),data=df,showlegend=F) 着色时，不会发生这种情况：

df$optimal

你有什么想法吗？