其实一开始贴数据还能复制粘贴,比现在贴图好多了
# 假设成功读入了数据df
label=character(nrow(df))
# 季节属性包含全年
label = ifelse(grepl("全年",df$季节属性), "非季节性", label)
# 季节属性同时包含春夏秋冬。顺序可能有变化,故判断春夏秋冬出现次数
label = ifelse(stringr::str_count(df$季节属性,“[春夏秋冬]")==4, ”非季节性“,“季节性”)
# 空值
label[df$季节属性==""] = ifelse(grepl(“[春夏秋冬]",df$季节属性[df$季节属性==""]), “季节性”, "非季节性")
df$应实现标记效果=label