Отрезки отрезков линий от координат

Question

Я хочу построить отрезки. Каждая линия имеет начальную точку (x1 / y1) и конечную точку (x2 / y2). Я слежу за этим Ответ , но это не работает. Я просто получаю пустой график:

Вот команды, которые я использовал:

data <- matrix(1:12, ncol = 4, dimnames = list(c("a","b","c"), c("x1","y1","x2","y2")))
plot(NA, xlim=c(0,15), ylim=c(0,15), xlab="x", ylab="y")
segments(data["x1"], data["y1"], data["x2"], data["y2"])

data дает:

  x1 y1 x2 y2
a  1  4  7 10
b  2  5  8 11
c  3  6  9 12

Позже я планирую загрузить данные из текстового файла (csv). Но для этого первого теста я просто использую эти сгенерированные бессмысленные числа.

Поскольку я не получаю сообщения об ошибках, я застрял здесь. Какую основную ошибку я совершил? Спасибо за вашу помощь.

Я использую:

R version 3.2.3 (2015-12-10) -- "Wooden Christmas-Tree"
Platform: x86_64-pc-linux-gnu (64-bit)

Answer 1

Как говорит StupidWolf в комментариях, для матрицы отсутствуют запятые. Правильно:

segments(data[,"x1"], data[,"y1"], data[,"x2"], data[,"y2"]) 

Но: Вы можете загрузить csv данные непосредственно во фрейм данных и затем отобразить их. Матрица не нужна.

Пример данных в файле с именем data.csv:

x1,y1,x2,y2
1,1,5,7
6,4,12,10
8,2,3,9

Команды:

data=read.csv("data.csv", sep=",")
plot(NA, xlim=c(0,15), ylim=c(0,15), xlab="x", ylab="y")
segments(data$x1, data$y1, data$x2, data$y2)