Warning: file_get_contents(/data/phpspider/zhask/data//catemap/6/xamarin/3.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/2/unit-testing/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 在内部变异时使用case_是否需要数据帧名称?_R_Dplyr - Fatal编程技术网

R 在内部变异时使用case_是否需要数据帧名称?

R 在内部变异时使用case_是否需要数据帧名称?,r,dplyr,R,Dplyr,我们可以使用$而不是调用full$ full <- full %>% mutate(Title = case_when( full$Title %in% c('Mlle', 'Ms') ~ 'Miss', full$Title == 'Mme' ~ 'Mrs', full$Title %in% rare_title ~ 'Rare Title', TRUE ~ full$Title )) full% 变异(标题=案例)( %c('Mlle'

我们可以使用
$
而不是调用
full$

full <- full %>% 
  mutate(Title = case_when(
    full$Title %in% c('Mlle', 'Ms') ~ 'Miss',
    full$Title == 'Mme' ~ 'Mrs',
    full$Title %in% rare_title ~ 'Rare Title',
    TRUE ~ full$Title
  ))
full%
变异(标题=案例)(
%c('Mlle','Ms')~'Miss'中的$Title%,
.$Title=='Mme'~'Mrs',
.$Title%在%ravel\u Title~“ravel Title”中,
正确.$Title
))
数据
set.seed(24)
满的
full <- full %>% 
  mutate(Title = case_when(
    full$Title %in% c('Mlle', 'Ms') ~ 'Miss',
    full$Title == 'Mme' ~ 'Mrs',
    full$Title %in% rare_title ~ 'Rare Title',
    TRUE ~ full$Title
  ))
full <- full %>% 
          mutate(Title = case_when(
                 .$Title %in% c('Mlle', 'Ms') ~ 'Miss',
                  .$Title == 'Mme' ~ 'Mrs',
                   .$Title %in% rare_title ~ 'Rare Title',
                    TRUE ~ .$Title
             ))
set.seed(24)
full <- data.frame(Title = sample(c('Mlle', 'Ms', 'Mme', 'Colonel', 'Jr'), 20,
                 replace=TRUE), stringsAsFactors= FALSE)
rare_title <- 'Colonel'