Как получить среднее значение индекса строки на основе последовательного сопоставления?.

---

доброе утро ,

У меня есть индекс и строка для построения графика.
0 1
1 2
2 2
3 5
4 5
5 5
6 5
7 8
8 8
9 2
10 2
11 2
теперь мне нужно среднее значение для индекса последовательных значений..
любить
среднее значение 2 1,5
среднее значение 5 18/4=4,5
среднее значение для 8 15/2 =7,5
среднее значение для 2 30/2 = 15

Это будет большая помощь, если я получу решение...
Надеясь на лучшее, я получил решения для предыдущих
решения...
Спасибо
Дхананджай

Что я уже пробовал:

Public Class Thing
    Public Name As String = ""
    Public Number As Double = 0

    Public Sub New(number As Double, name As String)
        Me.Name = name
        Me.Number = Number
    End Sub
End Class

Public Class Form2



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim things As List(Of Thing) = New List(Of Thing)()
        Dim s As String = IO.File.ReadAllText("C:\Users\mks\Desktop\Newfolder\p17846.sp1")

        For i As Integer = 0 To s.Length - 1 Step 1
            things.Add(New Thing(i, s.Substring(i, 1)))
        Next


        

        Dim AverageMichael As Double = things.Where(Function(thing) thing.Name = "8").Average(Function(thing) thing.Number)
        Dim AverageRian As Double = things.Where(Function(thing) thing.Name = "4").Average(Function(thing) thing.Number)

        MessageBox.Show(AverageMichael)
        MessageBox.Show(AverageRian)
    End Sub
End Class

---