Построение двух наборов линий из двух категорий (например, цвет)

Question

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

Мой фрейм данных выглядит так:

Index    Frequency Colour
1              1    Black
2              1    Black
3              0.8  Black
4              0    Black
1              0    Gray50
2              0    Gray50
3        0.88235294 Gray50
4              1    Gray50
1              1    Black
2              1    Black
3        0.85714286 Black
4              0    Black
1       0.02631579  Gray50
2         0.0625    Gray50
3          0.875    Gray50
4              1    Gray50
1              1    Black
2              1    Black
3             0.875 Black
4              0    Black
1              0    Gray50
2              0    Gray50
3        0.86666667 Gray50
4              1    Gray50 

Вот грубый пример типа линейного графика, который я хотел бы

Мой код до сих пор:

#object made from dataframe
alleles <- parallel_allele_freq

##plot 

plot(alleles$Index,alleles$Frequency,xlab = "Gradient",xaxt = 'n',
     ylab = "Frequency of P allele",
     col = alleles$Colour, pch = 16, cex = 1.25, type = "b")

axis(1, at = seq(1, 4, by = 1))

И вот график, который я получаю, со связанными черными и серыми линиями.

Кто-нибудь знает, как я могу получить это так, чтобы каждая строка была только 4 очка в порядке в файле и в соответствии с цветом? Любая помощь очень ценится!

Answer 1

Далее я просто запускаю цикл, чтобы получить каждые четыре строки. Я не уверен, что это то, что вы после...

x <- read.table("temp.txt", header = TRUE)
plot(x$Index[1:4], x$Frequency[1:4], col=tolower(x$Colour[1]), 
     type = "b", lwd = 2,
     xlab = "Gradient", xaxt = 'n',
     ylab = "Frequency of P allele",
     pch = 16, cex = 1.25)

for (j in 1:5)
  points(x$Index[(j*4)+1:4], x$Frequency[(j*4)+1:4], 
          col=tolower(x$Colour[(j*4)+1]),
          type = "b", lwd = 2)

axis(1, at = seq(1, 4, by = 1))