如果有条件并从值中提取4个字符

Question

我有一个数据框，其中包含$ date为102009的列，因此我想将年份提取为2009年

Answer 1

您可以使用R中的substring功能以及ifelse。

columns$date <- substring(as.character(columns$date), 3)
columns$cases<- ifelse(columns$cases == 1, "C1",
                ifelse(columns$cases == 2, "C2",
                ifelse(columns$cases == 3, "C3", "CDEF"))))