列の値に応じてデータテーブルに列を動的に追加

Question

列によって定義された値と固定された選択値に応じて、シーケンス列をdata.tableに追加する最適な方法は何ですか。次の例では、入力と希望する出力がilustrates：

library(data.table) 

# Input 
# Add a column sequence till 7 starting from the value of column V2. 
dt <- data.table(c("A","D","H"), c(2, 4, 5)) 

# Desired Ouput 
dt <- data.table(c(rep("A", 6), rep("D", 4), rep("H", 3)), new_column = c(2:7, 4:7, 5:7)) 
dt 

Answer 1

これはあなたの後に何を達成していますか？

dt[ , .(new_column = V2:7), by = V1 ] 

出力：

V1 new_column 
1: A   2 
2: A   3 
3: A   4 
4: A   5 
5: A   6 
6: A   7 
7: D   4 
8: D   5 
9: D   6 
10: D   7 
11: H   5 
12: H   6 
13: H   7