That isn't really more helpful, I think you want to do something similar to this, but we can't actually give better help, if you don't provide a reproducible example.
library(dplyr)
library(tidyr)
df <- tibble::tribble(
~Species, ~Petal.Length,
"setosa", 1.4,
"setosa", 1.4,
"setosa", 1.3,
"setosa", 1.5,
"setosa", 1.4,
"versicolor", 4.7,
"versicolor", 4.5,
"versicolor", 4.9,
"versicolor", 4,
"versicolor", 4.6,
"virginica", 6,
"virginica", 5.1,
"virginica", 5.9,
"virginica", 5.6,
"virginica", 5.8
)
df
#> # A tibble: 15 x 2
#> Species Petal.Length
#> <chr> <dbl>
#> 1 setosa 1.4
#> 2 setosa 1.4
#> 3 setosa 1.3
#> 4 setosa 1.5
#> 5 setosa 1.4
#> 6 versicolor 4.7
#> 7 versicolor 4.5
#> 8 versicolor 4.9
#> 9 versicolor 4
#> 10 versicolor 4.6
#> 11 virginica 6
#> 12 virginica 5.1
#> 13 virginica 5.9
#> 14 virginica 5.6
#> 15 virginica 5.8
df %>%
group_by(Species) %>%
mutate(n = row_number(), cols = paste0('petal_length_', n)) %>%
select(-n) %>%
spread(cols, Petal.Length)
#> # A tibble: 3 x 6
#> # Groups: Species [3]
#> Species petal_length_1 petal_length_2 petal_length_3 petal_length_4
#> <chr> <dbl> <dbl> <dbl> <dbl>
#> 1 setosa 1.4 1.4 1.3 1.5
#> 2 versic… 4.7 4.5 4.9 4
#> 3 virgin… 6 5.1 5.9 5.6
#> # … with 1 more variable: petal_length_5 <dbl>
Created on 2019-02-08 by the reprex package (v0.2.1)