这就是我的数据的样子:
> dput(data)
structure(list(Name = c("Mark", "Tere", "Marcus", "Heidi", "Georg",
"Tieme", "Joan", "Tytus", "Mark", "Tere", "Marcus", "Heidi",
"Georg", "Tieme", "Joan", "Tytus", "Mark", "Tere", "Marcus",
"Heidi", "Georg", "Tieme", "Joan", "Tytus", "Mark", "Tere", "Marcus",
"Heidi", "Georg", "Tieme", "Joan", "Tytus", "Mark", "Tere", "Marcus",
"Heidi", "Georg", "Tieme", "Joan", "Tytus", "Mark", "Tere", "Marcus",
"Heidi", "Georg", "Tieme", "Joan", "Tytus"), position = structure(c(1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, …Run Code Online (Sandbox Code Playgroud)