У меня есть датафрейм имен. И у меня есть вектор различных продуктов питания. Я хочу выбрать один элемент из этого вектора случайным образом для каждого Имени, чтобы data.table выглядел следующим образом.

x<- c("apple","pepsi","rice","coke","banana","butter","bread")

library(data.table)

dt <- fread('

Name  NextItem
John   rice
Logan  butter
Sarah  bread
Vinny  rice
')

Я хочу, чтобы выборка с заменой. я пытался

dt[,NextItem:= sample(x,1)] но он выбирает один и тот же элемент питания (векторный элемент) для всех, а не разные случайные элементы, как в вышеупомянутом примере.