Как обозначить отдельные точки векторами в R - PullRequest
Новая
       59

Как обозначить отдельные точки векторами в R

0 голосов
/ 31 января 2020

Я довольно новичок в кодировании и R в целом. Я пытаюсь понять, как создавать графики как в виде отдельных точек, так и векторов. Я должен получить одинаковый результат для обоих вариантов, но я не могу понять, как соотнести метки для точек при использовании векторов.

Вот таблица, которую мне дали

Вот мой код для отдельного построения и сюжета 

plot(
        x = NULL,
        xlim = c(0, 8),
        ylim = c(0, 10),
        main = "Problem 3a- Individual Points Fuction",
        xlab = "x",
        ylab = "y",
        las = 1
    )

text( 0.6, 7.5, "A" )
points( 1, 7, pch = 19, cex = 3, col = "navy" )

text( 3.4, 2.5, "B" )
points( 4, 3, pch = 15, cex = 6, col = "blueviolet" )

text( 5.6, 4.0, "C" )
points( 6, 5, pch = 17, cex = 4, col = "firebrick2" )

text( 1.6, 1.5, "D" )
points( 2, 2, pch = 18, cex = 5, col = "cyan3" )

text( 6.8, 3.5, "E" )
points( 7, 4, pch = 16, cex = 2, col = "seagreen3" )

Вот мой код для векторного метода с plot : 

plot(
        x = NULL,
        xlim = c(0, 8),
        ylim = c(0, 10),
        main = "Problem 3b- Vector Points Fuction",
        xlab = "x",
        ylab = "y",
        las = 1
    )

points(

x = c(1, 4, 6, 2, 7),

y = c(7, 3, 5, 2, 4),

pch = c(19, 15, 17, 18, 16),

cex = c(3, 6, 4, 5, 2),

col = c("navy", "blueviolet", "firebrick2", "cyan3", "seagreen3"),

)

Кажется, я не могу понять, как пометить точки на векторе и пометить его в определенных координатах. Я пытался просто поместить Text = ("A", "B" и т. Д. c), а также пытался сделать этот вектор тоже (text = c ("A" и т. Д. c), но Я продолжаю получать ошибки. Любые советы и ресурсы будут оценены.

1 Ответ

0 голосов
/ 02 февраля 2020

Вы можете использовать функцию text, как показано ниже. Я добавил переменную xDisp, чтобы легко установить положение надписей (при необходимости можно добавить переменную yDisp и для вертикального положения). 

xDisp = -0.5

  plot(
    x = NULL,
    xlim = c(0, 8),
    ylim = c(0, 10),
    main = "Problem 3b- Vector Points Fuction",
    xlab = "x",
    ylab = "y",
    las = 1
  )

  points(

    x = c(1, 4, 6, 2, 7),

    y = c(7, 3, 5, 2, 4),

    pch = c(19, 15, 17, 18, 16),

    cex = c(3, 6, 4, 5, 2),

    col = c("navy", "blueviolet", "firebrick2", "cyan3", "seagreen3")

  )

  text(

    x = c(1+xDisp, 4+xDisp, 6+xDisp, 2+xDisp, 7+xDisp), y = c(7, 3, 5, 2, 4), labels = c("A","B","C","D","E")

  )

enter image description here

...