问用R中的单个变量中的数字乘以第一个数字

EN

我有一个数据集，其中有一列概述了人们喝果汁的量，这是基于一项调查。接受者可以回答每天、每周或每月喝果汁的次数。

该列被设置为一个3位数的整数，其中第一个数字是他们是否选择了每天/每周/每月，其余的数字是他们在这段时间内喝果汁的次数。所以104人意味着他们每天喝4次果汁。209次意味着每周9次。等。

结构是这样的：

juice <- c(101,204,310)

我想创建一个新的列来标准化数据，这样所有的数据都是“每周”数字。因此，如果整数以1 (daily)开头，它应该将第二个2位数(作为单个数字，例如04 =4倍)乘以7，并从开头删除"1“。如果它以2(每周)开头，只需删除第一个数字。如果以3(每月)开头，则除以30，再乘以7，然后去掉第一个数字。

我是R的新手，不知道如何处理这个问题--任何帮助都将不胜感激！