Ifelse 条件而不创建 NA

Question

我有一个包含开始时间和停止时间的 data.frame。如果Start > 1 AND Stop

我可以放什么来代替NA，所以它会跳过不满足条件的行？

到目前为止我所拥有的：

data.frame$names <- ifelse(
    (data.frame$Start >=1) & (data.frame$Stop<=5),
    print('Name'), 
    NA)

我尝试像这样使用if，但什么也没发生：

if (data.frame$Start => 1 && data.frame$Stop <=5) {
    data.frame$names = print ('Name')
}

我想要一个新列，当Start=>1 AND StopStart>=5 AND Stop

        Start Stop Names
    1      1    2  name
    2      2    3  name
    3      3    4  name
    4      4    5  name
    5      5    6 name2
    6      6    7 name2
    7      7    8 name2
    8      8    9 name2
    9      9   10 name2
    10    10   11     

这是一个可重现的示例数据集：

Start<- c(1:10)
Stop<- c(2:11)
df=data.frame(Start,Stop)
df
       Start Stop
    1      1    2
    2      2    3
    3      3    4
    4      4    5
    5      5    6
    6      6    7
    7      7    8
    8      8    9
    9      9   10
    10    10   11

Answer 1

这是一个使用 case_when 的选项 -

library(dplyr)

df <- df %>%
  mutate(Names = case_when(Start >= 1 & Stop <= 5 ~ 'name', 
                           Start >= 5 & Stop <= 10 ~ 'name2', 
                           TRUE ~ ''))
df

#   Start Stop Names
#1      1    2  name
#2      2    3  name
#3      3    4  name
#4      4    5  name
#5      5    6 name2
#6      6    7 name2
#7      7    8 name2
#8      8    9 name2
#9      9   10 name2
#10    10   11      

Answer 2

您可以使用'' 来代替NA：

data.frame$Names <- ifelse(((data.frame$Start >1) & (data.frame$Stop<5)),print('Name'),'')

编辑以下 cmets： 下面的 dplyr 解决方案优雅且易于阅读。在基础 R 中，您还可以像这样嵌入两个 ifelse：

df$Names <- ifelse(((df$Start >=1) & (df$Stop<=5)),print('Name'),
              ifelse(((df$Start >=5) & (df$Stop<=10)),print('Name2'),''))

> df
   Start Stop Names
1      1    2  Name
2      2    3  Name
3      3    4  Name
4      4    5  Name
5      5    6 Name2
6      6    7 Name2
7      7    8 Name2
8      8    9 Name2
9      9   10 Name2
10    10   11