df <- data.frame(
id = c(1, 1, 1, 2, 2),
visit = c("v1", "v1", "v1", "v1", "v1"),
item = c("A", "A", "B", "A", "C"),
value = c(3, 5, 2, 1, 9)
)
to_wide(
df,
keys = c("id", "visit"),
item_col = "item",
value_col = "value",
items = c("A", "B", "C"),
agg_fun = max
)
Run the code above in your browser using DataLab