Let’s say you have a data frame with Japanese Calendar Years with Nengo like this.
If you want to convert them into Common Era, you can make use of mutate with case_when function like this.
case_when( nengo == "昭和" ~ year + 1925, nengo == "平成" ~ year + 1988, TRUE ~ 0)
It would look like this on the mutate dialog.
Here is the resulting data frame with a new column with the years in Common Era.