R绘图线显示不正确

Question

我正在尝试使用同一数据框中不同列的数据创建折线图。我可以创建初始图，但是当我添加lines（）时，线条显示不正确（出现奇怪的直线，并且颜色不起作用）。

我的数据框是这样的：

    GEN   NE   LWR  UPR        color 
1    0   549  134  5600  chartreuse3 
2    1   447  128  3840  chartreuse3 
3    2   361  140  2720  chartreuse3

和我的脚本：

data = read.table(file, as.is = T, col.names=c("GEN","NE","LWR","UPR","color"))
x=data$GEN
y=data$NE
U=data$UPR
L=data$LWR
plotCI(x, y, xlim=c(0,70), pch=20, ui=U, li=L, log="y",
       col=as.character(data$color), barcol=as.character(data$color),
       lwd=0.1, lty=2, gap=2)
lines(x, y,lwd = 1,col=as.character(data$color))

Plot with lines

预先感谢您的帮助！ （我敢肯定这是一个愚蠢的问题。）