Мы можем использовать ifelse
или case_when
df$Mongolia <- ifelse(nchar(df$Mongolia) >=5, df$Mongolia/5, df$Mongolia)
или просто индексировать
i1 <- nchar(df$Mongolia) >=5
Или использовать %/%
i1 <- (df$Mongolia %/% 1e4) > 0
df$Mongolia[i1] <- df$Mongolia[i1]/1000