dat <- data.frame(name = c("red", "blue", "yellow", "green"), ball = 1:4)

red	1
blue	2
yellow	3
green	4

特別抽球遊戲, 袋內有上面4色球10個,
每次抽出一個球, 比如第一次抽出yellow的球 (3/10), 就將袋內的yellow球都抽起來(10-3), 餘7球(3色), 然後再抽第二次,
如果第二次抽到blue, 就將袋內的blue球都抽起來.... 直至到第四次完成

請問有方法用 R 地求出4色球的所有組合的機率嗎?