时间戳

首页 > 解决方案 > 如何将“19”填充到字符串

r - 如何将“19”填充到字符串

问题描述

我有以下数据集。

# A tibble: 30,560 x 3
   fips  year    emp
   <chr> <chr> <dbl>
 1 01001 10     9828
 2 01001 20     6261
 3 01001 30     8172
 4 01001 40     6752
 5 01001 50     5957
 6 01001 60     5818
 7 01001 70     8118
 8 01001 80    12433
 9 01001 90    15432
10 01001 2000  22847
# … with 30,550 more rows

我想得到以下输出。

# A tibble: 30,560 x 3
   fips  year    emp
   <chr> <chr> <dbl>
 1 01001 1910   9828
 2 01001 1920   6261
 3 01001 1930   8172
 4 01001 1940   6752
 5 01001 1950   5957
 6 01001 1960   5818
 7 01001 1970   8118
 8 01001 1980  12433
 9 01001 1990  15432
10 01001 2000  22847
# … with 30,550 more rows

为了获得这个数据集，我编写了以下代码。但这会非常乏味。我也尝试str_pad，但填充“19”不起作用。你能告诉我更聪明的方法吗？

emp %>% 
  mutate(year= ifelse(year == "00", "1900",
              ifelse(year == "10", "1910",
              ifelse(year == "20", "1920", 
              ifelse(year == "30", "1930",
              ifelse(year == "40", "1940",
              ifelse(year == "50", "1950",
              ifelse(year == "60", "1960",
              ifelse(year == "70", "1970",
              ifelse(year == "80", "1980",
              ifelse(year == "90", "1990", 
                     "2000")))))))))))

标签： rstring-concatenation

解决方案

推荐阅读