Question

目前我正在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列）。

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

编辑：

仅包含一小部分值here

的电子表格

以及用于生成行的代码：

     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")
     }

数据导入为文本文件

EDIT2：

this是我得到的图表。

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

Answer 1

想通了。

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

 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")
 }

绘制r中电子表格中的特定点

1 个答案: