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

这是我的情节 distribution scatter plot 1 sample from R

注意点1.5,5 - 这个数据集来自哪里？

任何人都知道我做错了什么？

Answer 1

我认为由于数据列2中因子到 numeric 变量的错误转换存在一些问题，以下内容应该修复它（不是点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())

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

1 个答案: