奇数甚至在r

Question

    persnr     date   
411223-6213 2011-01-19 
420211-6911 2012-01-19 
420604-7716 2007-09-01 
430404-8558 2011-09-01 
431030-7030 2011-09-01
440127-0055 2012-09-01

persnr如果第10位是奇数或偶数,我想创建一个新列.新列将是真还是假,取决于第10位persnr是奇数还是偶数.odd = true,even = false

我还想创建另一个列för'date',例如2011-09-01是秋天,在新列中,fall = true 2012-01-19是spring,在新列spring = false.

这当然是基本的,但我是R中的新用户,可能不是正确的.

Answer 1

你可以试试substr.不确定你是否也计算了这个-角色.在这种情况下,

 v1 <- as.numeric(substr(df1$persnr,10,10))

或者取代10按11在@尼科的帖子

 df1$newCol <- as.logical(v1%%2)

我更愿意将它作为一个逻辑列,但如果你需要将它改为'奇数','偶'

df1$newCol <- c('even', 'odd')[df1$newCol+1L]