用R语言实现数据帧的频率扩展

我的问题涉及数据帧内部的操作。我掌握的数据是

data_i_have<-data.frame(Nature=c("a","b","c","d"),Freq=c(1,2,2,1),Values=c(1,4,6,2))

我拥有的数据你可以做

with(data_i_have, {
    data.frame(
        Nature = rep(Nature, Freq), Freq = 1, Values = rep(Values / Freq, Freq)
    )
})
#   Nature Freq Values
# 1      a    1      1
# 2      b    1      2
# 3      b    1      2
# 4      c    1      3
# 5      c    1      3
# 6      d    1      2

规则是
值/Freq
？
with(data_i_have, {
    data.frame(
        Nature = rep(Nature, Freq), Freq = 1, Values = rep(Values / Freq, Freq)
    )
})
#   Nature Freq Values
# 1      a    1      1
# 2      b    1      2
# 3      b    1      2
# 4      c    1      3
# 5      c    1      3
# 6      d    1      2