由于没有提供任何数据，我想我可以从头开始创建一些东西。使用mutate和as.integer非常简单。
我不知道我是否使用了正确的逻辑来从整数到学年，但听起来它很接近你所描述的。

socialactiondata <- tibble(fake_double = runif(n = 100, min = 1, max = 10))

socialactiondata %>%
  mutate(
    fake_integer = as.integer(fake_double), 
    year_of_school = fake_integer + 4 # no idea if this is the correct logic you need, but you can write it here
  )