Question

我有一个包含31个站点名称的列表。

> typeof(Asites)
[1] "list"
> str(Asites)
Classes ‘tbl_df’, ‘tbl’ and 'data.frame':   31 obs. of  1 variable:
 $ Asites: chr  "45.88:-64.35" "45.88:-64.37" "45.89:-64.33" "45.89:-64.34" ...

我想编写一个case_when语句，将所有这些站点的名称更改为我的数据框中的相同值。但是，由于信息存储在列表中，因此出现以下错误消息：

df %>%
  mutate(site2 = case_when(site %in% Asites ~ "A", 
                           TRUE ~ "B"))
Error in mutate_impl(.data, dots) : 
  Evaluation error: operations are possible only for numeric, logical or complex types.

如何更改Asites，以使其正常工作？

编辑（1/25/18）：

由于我在df中有超过900万个观测值，因此我只为df $ site和Asites提供了dput。

dput(df$site[1:1000])
c("BennettMeadow", "BennettMeadow", "BennettMeadow", "BennettMeadow", 
"BennettMeadow", "BennettMeadow", "BennettMeadow", "BennettMeadow", 
"BennettMeadow", "BennettMeadow", "BennettMeadow", "BennettMeadow", 
"BennettMeadow", "BennettMeadow", "BennettMeadow", "BennettMeadow", 
"BennettMeadow", "BennettMeadow", "BennettMeadow", "BennettMeadow", 
"BennettMeadow", "BennettMeadow", "BennettMeadow", "BennettMeadow", 
"BennettMeadow", "BennettMeadow", "BennettMeadow", "BennettMeadow", 
"BennettMeadow", "BennettMeadow", "BennettMeadow", "BennettMeadow", 
"BennettMeadow", "BennettMeadow", "BennettMeadow", "BennettMeadow", 
"BennettMeadow", "BennettMeadow", "BennettMeadow", "BennettMeadow", 
"BennettMeadow", "BennettMeadow", "BennettMeadow", "BennettMeadow", 
"BennettMeadow", "BennettMeadow", "BennettMeadow", "BennettMeadow", 
"BennettMeadow", "BennettMeadow", "BennettMeadow", "BennettMeadow", 
"BennettMeadow", "BennettMeadow", "BennettMeadow", "BennettMeadow", 
"BennettMeadow", "BennettMeadow", "BennettMeadow", "BennettMeadow", 
"NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", 
"NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", 
"NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", 
"NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", 
"NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", 
"NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", 
"NA:NA", "NA:NA", "NA:NA", "NA:NA", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", 
"NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", 
"NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", 
"NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", 
"NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", 
"NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", 
"NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.9:-64.36", "45.9:-64.36", 
"45.9:-64.36", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.35", "45.91:-64.35", "45.91:-64.35", 
"45.91:-64.35", "45.91:-64.35", "45.89:-64.34", "45.89:-64.34", 
"45.89:-64.34", "45.89:-64.34", "45.89:-64.34", "45.89:-64.34", 
"45.89:-64.34", "45.89:-64.34", "45.89:-64.34", "45.89:-64.34", 
"45.89:-64.34", "45.89:-64.34", "45.89:-64.34", "45.89:-64.34", 
"45.89:-64.34", "45.89:-64.34", "45.89:-64.34", "45.89:-64.34", 
"45.89:-64.34", "45.89:-64.34", "45.89:-64.34", "45.89:-64.34", 
"45.89:-64.34", "45.9:-64.32", "45.9:-64.32", "45.89:-64.33", 
"45.89:-64.33", "45.89:-64.33", "45.89:-64.33", "45.89:-64.33", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.34", "45.91:-64.34", "45.91:-64.34", "45.91:-64.34", 
"45.91:-64.35", "45.91:-64.35", "45.91:-64.35", "45.91:-64.35", 
"45.91:-64.35", "45.89:-64.34", "45.89:-64.34", "45.89:-64.34", 
"45.89:-64.34", "45.89:-64.34", "45.89:-64.34", "45.89:-64.34", 
"45.89:-64.34", "45.89:-64.34", "45.89:-64.34", "45.89:-64.34", 
"45.89:-64.34", "45.89:-64.34", "45.89:-64.34", "45.89:-64.34", 
"45.89:-64.34", "45.89:-64.34", "45.89:-64.34", "45.89:-64.34", 
"45.89:-64.34", "45.9:-64.32", "45.9:-64.32", "45.89:-64.33", 
"45.89:-64.33", "45.89:-64.33", "45.89:-64.33", "45.89:-64.33", 
"NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", 
"NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", 
"NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", 
"NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", 
"45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", 
"45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", 
"45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", 
"45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", 
"45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", 
"45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", 
"45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", 
"45.9:-64.34", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", 
"NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", 
"NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", 
"NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", "NA:NA", 
"NA:NA", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", 
"45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", 
"45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", 
"45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", 
"45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", 
"45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", 
"45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", 
"45.9:-64.34", "45.9:-64.34", "45.91:-64.33", "45.91:-64.33", 
"45.91:-64.33", "45.91:-64.33", "45.91:-64.33", "45.91:-64.33", 
"45.91:-64.33", "45.91:-64.33", "45.91:-64.33", "45.91:-64.33", 
"45.91:-64.33", "45.91:-64.33", "45.91:-64.33", "45.91:-64.33", 
"45.91:-64.33", "45.91:-64.33", "45.91:-64.33", "45.91:-64.33", 
"45.91:-64.33", "45.91:-64.33", "45.91:-64.33", "45.91:-64.33", 
"45.91:-64.33", "45.91:-64.33", "45.91:-64.33", "45.91:-64.33", 
"45.91:-64.33", "45.91:-64.33", "45.91:-64.33", "45.91:-64.33", 
"45.91:-64.33", "45.91:-64.33", "45.91:-64.33", "45.91:-64.33", 
"45.92:-64.33", "45.92:-64.33", "45.92:-64.33", "45.92:-64.33", 
"45.92:-64.33", "45.91:-64.33", "45.91:-64.33", "45.91:-64.33", 
"45.91:-64.33", "45.91:-64.33", "45.91:-64.33", "45.91:-64.33", 
"45.91:-64.33", "45.91:-64.33", "45.91:-64.33", "45.91:-64.33", 
"45.91:-64.33", "45.91:-64.33", "45.91:-64.33", "45.91:-64.33", 
"45.91:-64.33", "45.91:-64.33", "45.91:-64.33", "45.91:-64.33", 
"45.91:-64.33", "45.91:-64.33", "45.91:-64.33", "45.91:-64.33", 
"45.91:-64.33", "45.91:-64.33", "45.91:-64.33", "45.91:-64.33", 
"45.91:-64.33", "45.91:-64.33", "45.91:-64.33", "45.91:-64.33", 
"45.91:-64.33", "45.91:-64.33", "45.91:-64.33", "45.92:-64.33", 
"45.92:-64.33", "45.92:-64.33", "45.92:-64.33", "45.92:-64.33", 
"45.91:-64.33", "45.91:-64.33", "45.91:-64.33", "45.91:-64.33", 
"45.91:-64.33", "45.91:-64.33", "45.91:-64.33", "45.91:-64.33", 
"45.91:-64.33", "45.91:-64.33", "45.91:-64.33", "45.91:-64.33", 
"45.91:-64.33", "45.91:-64.33", "45.91:-64.33", "45.9:-64.33", 
"45.9:-64.33", "45.9:-64.33", "45.9:-64.33", "45.9:-64.33", "45.9:-64.33", 
"45.9:-64.33", "45.9:-64.33", "45.9:-64.33", "45.9:-64.33", "45.9:-64.33", 
"45.9:-64.33", "45.9:-64.33", "45.9:-64.33", "45.9:-64.33", "45.9:-64.33", 
"45.9:-64.33", "45.9:-64.33", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", 
"45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", 
"45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", 
"45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", 
"45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", 
"45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", 
"45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.34", "45.9:-64.33", 
"45.9:-64.33", "45.9:-64.33", "45.9:-64.33", "45.9:-64.33", "45.9:-64.33", 
"45.9:-64.33", "45.9:-64.33", "45.9:-64.33", "45.9:-64.33", "45.9:-64.33", 
"45.9:-64.33", "45.9:-64.33", "45.9:-64.33", "45.9:-64.33", "45.9:-64.33", 
"45.9:-64.33", "45.9:-64.33", "45.9:-64.33", "45.91:-64.33", 
"45.91:-64.33", "45.91:-64.33", "45.91:-64.33", "45.91:-64.33", 
"45.91:-64.33", "45.91:-64.33", "45.91:-64.33", "45.91:-64.33", 
"45.91:-64.33", "45.91:-64.33", "45.91:-64.33", "45.91:-64.33", 
"45.91:-64.33", "45.91:-64.33", "45.9:-64.33", "45.9:-64.33", 
"45.9:-64.33")

dput(Asites)
structure(list(recvDeployName = c("45.88:-64.35", "45.88:-64.37", 
"45.89:-64.33", "45.89:-64.34", "45.89:-64.35", "45.89:-64.36", 
"45.9:-64.32", "45.9:-64.33", "45.9:-64.34", "45.9:-64.35", "45.9:-64.36", 
"45.9:-64.37", "45.91:-64.32", "45.91:-64.33", "45.91:-64.34", 
"45.91:-64.35", "45.91:-64.36", "45.92:-64.33", "45.92:-64.34", 
"45.92:-64.35", "Bridge St Sackville (SHEEP)", "COLONY", "COLONY1 ", 
"COLONY2", "COLONY2", "DIKES", "HWY", "LOWERW", "RCI Sackville", 
"Sackville Eng", "SCHOOL", "SE", "SE")), row.names = c(NA, -33L
), class = c("tbl_df", "tbl", "data.frame"))

Answer 1

这是我昨天试图传达的信息：

library(dplyr)

df %>%
  mutate(site2 = case_when(site %in% unlist(Asites) ~ "A", 
                           TRUE ~ "B")) %>%
  with(table(site2)) # just to show the breakdown of site2's contents, you'd drop this line IRL

# result
site2
A   B 
792 208

使用dplyr_0.7.8似乎对我有用。

仅当参考数据帧Asites仅具有位置值时，此策略才有效。如果参考数据框不仅仅包含位置，您可能希望使用Asites$recvDeployName引用（如avid_useR建议）仅针对特定列进行测试。

dplyr case_when带有字符列表的语句

1 个答案: