0

目前我正在 r 中的一个图上绘制 2000 条线。我正在使用电子表格中的数据，由于敏感信息，我无法透露，但我会尝试说明它是如何排列的。

x1/x1/x1/x1/x1/x1/etc.
y1/y1/y1/y1/y1/y1/etc.
x2/x2/x2/x2/x2/x2/etc.
y2/y2/y2/y2/y2/y2/etc.
...
x4436/x4436/x4436/etc.
y4436/y4436/y4436/etc.

其中每个 x1,y1 是单独一行上的一个点。我需要在每条线的端点上绘制一个点，但我似乎无法让我的代码正常工作。目前我正在使用它来生成积分：

    for (k in (1:2218)*2) {
    q <- unlist(e_web_clear[2*k])
    w <- unlist(e_web_clear[716])
    points(w, q, col = "lightblue")
    }

就像我想象的那样，它会循环回到每隔一行的每个点，只获取每行的 y 值，并且它只会从我的数据的最后一列（第 716 列）中获取值。

不用说，它没有按预期工作，有什么建议吗？

编辑：

此处仅包含一小部分值的电子表格

以及用于生成行的代码：

     for (j in (1:2218)*2) {
     x <- unlist(e_web_clear[2*j-1,])
     y <- unlist(e_web_clear[2*j,])
     lines(x,y,'l',lwd=.00000000001, col="black")
     }

数据被导入为文本文件

编辑2：

这是我得到的图表。

我想要得到的图表将以浅蓝色突出显示每条线的端点。我相信它应该看起来像这样。http://imgur.com/13b9MZL

4

1 回答 1

0

弄清楚了。

我编辑了我的线循环，在每条线的最后一个矢量点上放置一个点。

 for (j in (1:2218)*2) {
 x <- unlist(e_web_clear[2*j-1,])
 y <- unlist(e_web_clear[2*j,])
 lines(x,y,'l',lwd=.00000000001, col="black")
 points(x[358], y[358], lwd = 1.5, cex = .1, col = "lightblue")
 }
于 2013-06-17T15:23:05.167 回答