如何删除r中数值变量的某些数字

我已经创建了

df1

  year gvkey      ipo
1 1996  1004 19880101
2 1997  1004 19880101
3 1998  1004 19880101
4 1999  1004 19880101
5 2000  1004 19880101
6 2001  1004 19880101
....


year = numeric

gvkey (id) = numeric

ipo = numeric

我想更改

df1

，使其看起来像这样，以便我可以计算公司年龄：

  year gvkey ipo
1 1996  1004 1988
2 1997  1004 1988
3 1998  1004 1988
4 1999  1004 1988
5 2000  1004 1988
6 2001  1004 1988
...

我发现有人从

字符

变量中删除了某些部分。我试图将

ipo

更改为

character

，但随后我的

df1

变成了一个值，当我再次尝试将该值更改为数据帧时，其他变量

year

和

gvkey

都消失了

是否也可以删除数值变量的某些数字

---

非常感谢

另一个选项是

sub

df1 %>%
  mutate(ipo = as.numeric(substr(ipo, 1, 4)))

  year gvkey  ipo
1 1996  1004 1988
2 1997  1004 1988
3 1998  1004 1988
4 1999  1004 1988
5 2000  1004 1988
6 2001  1004 1988

df1$ipo <- as.numeric(sub('^(....).*', '\\1', df1$ipo))

df1$ipo