如何根據以下數據計算年齡的彙總統計信息

Question

我有以下給出的數據。希望將「年份」列中的數據轉換爲現在的年齡（年數）。

tripduration starttime stoptime  Year 
340   1/7/2017 0:00 1/7/2017 0:05 1994 
439   1/7/2017 0:02 1/7/2017 0:09 1980 
186   1/7/2017 0:04 1/7/2017 0:07 1984 
442   1/7/2017 0:05 1/7/2017 0:13 1969 
170  1/7/2017 0:07 1/7/2017 0:10 1986 

因此，要在第一線解決方案，我想從1994年，但無法找到差異減去起始時間2017年1月7日。

你能否讓我知道是否有可能從給定的數據中找到年齡的年數。我如何查找上一年（年）列的年數。

Answer 1

是的，這是可能的。您只需將開始時間轉換爲一年，然後就可以創建一個新列。那麼你應該能夠減去兩年的專欄。試試這個啓動：

df <- data.frame(starttime=c("1/7/2017 0:00")) 
df 
#>  starttime 
#> 1 1/7/2017 0:00 
library(lubridate) 
#> 
#> Attaching package: 'lubridate' 
#> The following object is masked from 'package:base': 
#> 
#>  date 
year(strptime(df$starttime, "%d/%m/%Y")) 
#> Warning in strptime(df$starttime, "%d/%m/%Y"): unknown timezone 'default/ 
#> America/Vancouver' 
#> [1] 2017 

而一個基礎R解決方案（無須加載lubridate包）：

df <- data.frame(starttime=c("1/7/2017 0:00")) 
df 
#>  starttime 
#> 1 1/7/2017 0:00 
strptime(df$starttime, "%d/%m/%Y")$year + 1900 
#> [1] 2017 

Answer 2

我們可以使用正則表達式來識別年份。

# Create example data frame 
dt <- read.table(text = "tripduration starttime stoptime  Year 
340   '1/7/2017 0:00' '1/7/2017 0:05' 1994 
       439   '1/7/2017 0:02' '1/7/2017 0:09' 1980 
       186   '1/7/2017 0:04' '1/7/2017 0:07' 1984 
       442   '1/7/2017 0:05' '1/7/2017 0:13' 1969 
       170  '1/7/2017 0:07' '1/7/2017 0:10' 1986", 
       header = TRUE, stringsAsFactors = FALSE) 

# Use regular expression to get the year in starttime 
dt$startYear <- as.numeric(gsub(".*(\\d{4}).*", "\\1", dt$starttime)) 
# Calculate the age 
dt$age <- dt$startYear - dt$Year 
dt 
    tripduration  starttime  stoptime Year startYear age 
1   340 1/7/2017 0:00 1/7/2017 0:05 1994  2017 23 
2   439 1/7/2017 0:02 1/7/2017 0:09 1980  2017 37 
3   186 1/7/2017 0:04 1/7/2017 0:07 1984  2017 33 
4   442 1/7/2017 0:05 1/7/2017 0:13 1969  2017 48 
5   170 1/7/2017 0:07 1/7/2017 0:10 1986  2017 31