如何从Qualterly time列-R创建数值变量

我有一个数据集，当前看起来如下：

Time    Var1 Var2 
2013 Q4 123  756
2013 Q4 657  987
2014 Q1 746  756
2014 Q1 66   999
2014 Q2 774  542

Time    Var1 Var2 n.Time
2013 Q4 123  756  1
2013 Q4 657  987  1
2014 Q1 746  756  2
2014 Q1 66   999  2
2014 Q2 774  542  3

我需要把这个分类的“时间”变量转换成一个数字变量，可能看起来像这样：

Time    Var1 Var2 
2013 Q4 123  756
2013 Q4 657  987
2014 Q1 746  756
2014 Q1 66   999
2014 Q2 774  542

Time    Var1 Var2 n.Time
2013 Q4 123  756  1
2013 Q4 657  987  1
2014 Q1 746  756  2
2014 Q1 66   999  2
2014 Q2 774  542  3

或者类似的东西，给“时间”列一个成比例的数值

我已经试过了

df$n.Time <- as.yearqtr(df$Time)

---

df$n.Time您喜欢这项工作吗

df$n.Time <- as.numeric(as.factor(df$Time))

df$n.Time您喜欢这项工作吗

df$n.Time <- as.numeric(as.factor(df$Time))

df$n.Time我想您正在寻找从
Time
列拆分
Q
部分，然后将其更改为数值

df$n.Time <- as.factor(substr(as.character(df$Time),
             gregexpr("Q",df$Time),nchar(as.character(df$Time))))

df$n.Time我想您正在寻找从
Time
列拆分
Q
部分，然后将其更改为数值

df$n.Time <- as.factor(substr(as.character(df$Time),
             gregexpr("Q",df$Time),nchar(as.character(df$Time))))

df$n.Time