Im not sure what you mean by "print" but I think this is what you want
df <- data.frame(stringsAsFactors = FALSE,
Length = c(30L, 60L, 75L),
Occurrence = c(25L, 40L, 20L),
Location = c("New York", "New York", "Philadelphia")
)
library(purrr)
map2_dfr(1:dim(df)[2], df$Occurrence, ~df[rep(.x, each=.y),])
#> Length Occurrence Location
#> 1 30 25 New York
#> 2 30 25 New York
#> 3 30 25 New York
#> 4 30 25 New York
#> 5 30 25 New York
#> 6 30 25 New York
#> 7 30 25 New York
#> 8 30 25 New York
#> 9 30 25 New York
#> 10 30 25 New York
#> 11 30 25 New York
#> 12 30 25 New York
#> 13 30 25 New York
#> 14 30 25 New York
#> 15 30 25 New York
#> 16 30 25 New York
#> 17 30 25 New York
#> 18 30 25 New York
#> 19 30 25 New York
#> 20 30 25 New York
#> 21 30 25 New York
#> 22 30 25 New York
#> 23 30 25 New York
#> 24 30 25 New York
#> 25 30 25 New York
#> 26 60 40 New York
#> 27 60 40 New York
#> 28 60 40 New York
#> 29 60 40 New York
#> 30 60 40 New York
#> 31 60 40 New York
#> 32 60 40 New York
#> 33 60 40 New York
#> 34 60 40 New York
#> 35 60 40 New York
#> 36 60 40 New York
#> 37 60 40 New York
#> 38 60 40 New York
#> 39 60 40 New York
#> 40 60 40 New York
#> 41 60 40 New York
#> 42 60 40 New York
#> 43 60 40 New York
#> 44 60 40 New York
#> 45 60 40 New York
#> 46 60 40 New York
#> 47 60 40 New York
#> 48 60 40 New York
#> 49 60 40 New York
#> 50 60 40 New York
#> 51 60 40 New York
#> 52 60 40 New York
#> 53 60 40 New York
#> 54 60 40 New York
#> 55 60 40 New York
#> 56 60 40 New York
#> 57 60 40 New York
#> 58 60 40 New York
#> 59 60 40 New York
#> 60 60 40 New York
#> 61 60 40 New York
#> 62 60 40 New York
#> 63 60 40 New York
#> 64 60 40 New York
#> 65 60 40 New York
#> 66 75 20 Philadelphia
#> 67 75 20 Philadelphia
#> 68 75 20 Philadelphia
#> 69 75 20 Philadelphia
#> 70 75 20 Philadelphia
#> 71 75 20 Philadelphia
#> 72 75 20 Philadelphia
#> 73 75 20 Philadelphia
#> 74 75 20 Philadelphia
#> 75 75 20 Philadelphia
#> 76 75 20 Philadelphia
#> 77 75 20 Philadelphia
#> 78 75 20 Philadelphia
#> 79 75 20 Philadelphia
#> 80 75 20 Philadelphia
#> 81 75 20 Philadelphia
#> 82 75 20 Philadelphia
#> 83 75 20 Philadelphia
#> 84 75 20 Philadelphia
#> 85 75 20 Philadelphia
Created on 2019-03-14 by the reprex package (v0.2.1)