怎么用r语言表达掷骰子中出现4的次数

是这样的，我在编写一个随机掷骰子的函数，但是我不清楚怎么写if里的条件:以上随机掷的六个骰子中，出现4的次数等于1。后面都是以此列推的