r - 数据点在我的 R 图上的位置错误

Question

我有两列数据要绘制成散点图，这些点似乎不在正确的位置，好像轴已移动并且数据点已重新排序。数据来自一个更大的集合，计划是使用“线条”在绘图中添加更多线条。我已经很久没有使用 R 并且正在关注 QuickR 网站上的示例折线图。数据已经被分箱并且应该产生分布曲线。计划是在 knime 中使用 R 代码，如果/当它工作。

这是我的数据和代码

1                  |   0.2  |                 ?
2                  |   0.3  |0.9040357526438414
3                  |   0.4  |5.411174917770767
4                  |   0.5  |6.680564306410919
5                  |   0.6  |6.209330779324634
6                  |   0.7  |6.064339545114229
7                  |   0.8  |6.689841006370736
8                  |   0.9  |8.755978393214562
9                  |   1.0  |13.11661304772278
10                 |   1.1  |17.093411510054928
11                 |   1.2  |15.479560872141883
12                 |   1.3  |8.420296969382726
13                 |   1.4  |3.5346457261075566
14                 |   1.5  |1.6256413200367157
15                 |   1.6  |2.2848049576096026
16                 |   1.7  |1.2394427974974978
17                 |   1.8  |0.28169014084507044
18                 |   1.9  |                 ?
19                 |   2.0  |                 ?
20                 |   2.1  |                 ?
21                 |   2.2  |                 ?
22                 |   2.3  |                 ?
23                 |   2.4  |                 ?
24                 |   2.5  |                 ?
25                 |   2.6  |                 ?
26                 |   2.7  |                 ?
27                 |   2.8  |                 ?
28                 |   2.9  |                 ?

nwells=c(2, 6, 10, 14, 18) #to take the columns I want from the larger dataset
plot(3, 20, type="n", xlim=c(0, 3), ylim=c(0, 26), xlab="Intensity",
    ylab="Proportion", xaxs="i", yaxs="i") 
colors <- rainbow(length(nwells)) 
linetype <- c(1:length(nwells)) 
plotchar <- seq(nwells)

# add lines 

      well <- data1[2]
  bin <-data1[1] 
  data<-data.frame(bin, well)
      lines(data, type="p", lwd=1.5,
        lty=1, col=colors[n], pch=plotchar[n], grid()) 

这是我的绘图 分布散点图 1 来自 R 的样本

请注意 1.5, 5 处的点 - 在这个数据集中它来自哪里？

有人知道我做错了什么吗？

Answer 1

我认为由于数据列 2 中从因子到数值变量的错误转换存在一些问题，以下应该解决它（不是点 1.5，5 不再存在）：

data[,2] <- as.numeric(as.character(data[,2]))
well <- data1[2]
bin <-data1[1] 
data<-data.frame(bin, well)
lines(data, type="p", lwd=2.5,
      lty=1, col=colors, pch=plotchar, grid())