如何从数字向量中提取前4位数字？

Question

game_ID <- c("201600768", "201600842", "201693456", "201700848", "201804567")

我的数据集中有一个列，其中包含许多数字，例如上面的数字。我想从每个数字中提取前4位数字（因为这是游戏发生的一年），然后将它们分成一个新列。

有什么建议吗？

Answer 1

如果它们始终处于前四个位置，则可以在基本r中使用substr来识别位置：

game_ID <- c("201600768", "201600842", "201693456", "201700848", "201804567")
substr(game_ID, 0, 4)

使用

# [1] "2016" "2016" "2016" "2017" "2018"

如果您的数据是较大数据框中的列，则可以

df <- data.frame(var1 = LETTERS[1:5],
                 var2 = 1:5,
                 game_ID = c("201600768", "201600842", "201693456", "201700848", "201804567"))

：您可以简单地执行此操作。 ：

df$year <- substr(df$game_ID, 0, 4)

输出：

#   var1 var2   game_ID year
# 1    A    1 201600768 2016
# 2    B    2 201600842 2016
# 3    C    3 201693456 2016
# 4    D    4 201700848 2017
# 5    E    5 201804567 2018

Answer 2

使用Stringr软件包到str_extract前4位数字。您可以使用以下代码：

library(dplyr)
library(stringr)
as.data.frame(game_ID) %>%
  mutate(new = str_extract(game_ID, "\\d{4}"))

输出：

    game_ID  new
1 201600768 2016
2 201600842 2016
3 201693456 2016
4 201700848 2017
5 201804567 2018