listcol.R

library(tidyverse)

# list col for age --------------------------------------------------
df_listcol <- tibble(
  age = list(30, 40, 50, 55, "65+")
)

typeof(df_listcol$age)
#> [1] "list"

## filter out the weird obs, remainder can be converted to double

df_listcol_sub <- df_listcol %>%
  filter(age != "65+") %>%
  mutate(age = as.numeric(age))

typeof(df_listcol_sub$age)
#> [1] "double"

## recode the weird obs, remainder can be converted to double

df_listcol_recode <- df_listcol %>%
  mutate(
    age = ifelse(age == "65+", 65, age),
    age = as.numeric(age)
    )

typeof(df_listcol_recode$age)
#> [1] "double"

# char col for age --------------------------------------------------

df_charcol <- tibble(
  age = c(30, 40, 50, 55, "65+")
)

typeof(df_charcol$age)
#> [1] "character"

df_charcol_sub <- df_charcol %>%
  filter(age != "65+") %>%
  mutate(age = as.numeric(age))

typeof(df_charcol_sub$age)
#> [1] "double"

df_charcol_recode <- df_charcol %>%
  mutate(
    age = ifelse(age == "65+", 65, age),
    age = as.numeric(age)
  )

typeof(df_charcol_recode$age)
#> [1] "double"

#' Created on 2018-04-17 by the [reprex package](http://reprex.tidyverse.org) (v0.2.0).