如何根據條件洗掉行

在一個示例資料集中，我有公司有各自的 exit_date，如果有一家公司在 2018 年離開直到財政年度結束，我想顯示該公司名稱我需要在財政年度之后顯示公??司名稱，該行應該被洗掉

Company <- c("Nokia","Samsung","Moto","Blue Berry","Vivo","Redmi")
Exit_date <- c(NA, "2019-08-25", "2019-12-31", "2018-12-31","2020-09-15",NA)
data <- data.frame(Company,Exit_date)   
data$Exit_date <-as.Date(data$Exit_date,format = "%Y-%m-%d")

會計年度：

a = as.Date("2018-04-01")
b = as.Date("2019-04-01")
c = as.Date("2020-04-01")
d = as.Date("2021-04-01")
e = as.Date("2022-04-01")

我嘗試使用 if 但沒有得到任何正確的輸出：

if(data$exit_date > a & data$exit_date < b){
  data = data[!data$Exit_date,]
}else if (data$exit_date > b & data$exit_date < c){
  data = data[!data$Exit_date,]
}else if (data$exit_date > c & data$exit_date < d){
  data = data[!data$Exit_date,]
}else if (data$exit_date > d & data$exit_date < e){
  data = data[!data$Exit_date,]
}else if (data$Exit_date==NA){
}

任何想法將不勝感激。

uj5u.com熱心網友回復：

您的 if 陳述句的問題在于data$Exit_date它不是邏輯向量，因此您不能使用它data[!data$Exit_date,]來洗掉行。

另一件事是添加您的 if 陳述句：您似乎只想要匹配 a、b、c、d 或 e 的退出日期（因為您要洗掉兩者之間的所有內容）。但這似乎不是所需的輸出？

要獲得他們離開的年份，如果您的日期在向量中會更容易：您可以將條件（> = 到 x 日期）相加以獲取向量中的年份索引，如下所示：

Fiscal_years <- c(
  as.Date("2018-04-01"),
  as.Date("2019-04-01"),
  as.Date("2020-04-01"),
  as.Date("2021-04-01"),
  as.Date("2022-04-01")
)
data <- within(data,{
  Exit_fiscal <- Fiscal_years[rowSums(sapply(Fiscal_years, function(x) Exit_date >= x)) 1]
})

您還可以使用該庫lubridate來匹配年份：

Fiscal_years <- c(
  "2018" = as.Date("2018-04-01"),
  "2019" = as.Date("2019-04-01"),
  "2020" = as.Date("2020-04-01"),
  "2021" = as.Date("2021-04-01"),
  "2022" = as.Date("2022-04-01")
)
library(lubridate)
data <- within(data,{
  Exit_fiscal <- Fiscal_years[as.character(year(Exit_date)   (month(Exit_date) >= 4))]
})

然后過濾：

data <- data[!data$Exit_fiscal %in% Fiscal_years["2019"],]

#>   Company  Exit_date Exit_fiscal
#> 1   Nokia       <NA>        <NA>
#> 2 Samsung 2019-08-25  2020-04-01
#> 3    Moto 2019-12-31  2020-04-01
#> 5    Vivo 2020-09-15  2021-04-01
#> 6   Redmi       <NA>        <NA>

或者，如果您不想保留 NA 值：

data <- data[which(data$Exit_fiscal != Fiscal_years["2019"]),]

#>   Company  Exit_date Exit_fiscal
#> 2 Samsung 2019-08-25  2020-04-01
#> 3    Moto 2019-12-31  2020-04-01
#> 5    Vivo 2020-09-15  2021-04-01

uj5u.com熱心網友回復：

library(tidyverse)

Company <- c("Nokia", "Samsung", "Moto", "Blue Berry", "Vivo", "Redmi")
Exit_date <- c(NA, "2019-08-25", "2019-12-31", "2018-12-31", "2020-09-15", NA)
data <- data.frame(Company, Exit_date)
data$Exit_date <- as.Date(data$Exit_date, format = "%Y-%m-%d")

# must be in ascending order
a <- as.Date("2018-04-01")
b <- as.Date("2019-04-01")
c <- as.Date("2020-04-01")
d <- as.Date("2021-04-01")
e <- as.Date("2022-04-01")

data <-
  data %>%
  as_tibble() %>%
  mutate(
    left_fiscal = case_when(
      Exit_date < a ~ a,
      Exit_date < b ~ b,
      Exit_date < c ~ c,
      Exit_date < d ~ d,
      Exit_date < e ~ e
    )
  )
data
#> # A tibble: 6 x 3
#>   Company    Exit_date  left_fiscal
#>   <chr>      <date>     <date>     
#> 1 Nokia      NA         NA         
#> 2 Samsung    2019-08-25 2020-04-01 
#> 3 Moto       2019-12-31 2020-04-01 
#> 4 Blue Berry 2018-12-31 2019-04-01 
#> 5 Vivo       2020-09-15 2021-04-01 
#> 6 Redmi      NA         NA

# remove companies left in fiscal year 2018
data %>%
  filter(! left_fiscal == b)
#> # A tibble: 3 x 3
#>   Company Exit_date  left_fiscal
#>   <chr>   <date>     <date>     
#> 1 Samsung 2019-08-25 2020-04-01 
#> 2 Moto    2019-12-31 2020-04-01 
#> 3 Vivo    2020-09-15 2021-04-01

^{由reprex 包于 2022-02-22 創建 (v2.0.0 )}

標籤：r 功能 for循环 dplyr

上一篇：將setter和getter添加到陣列，創建for回圈方法并分配值

下一篇：將列資料框與另一個資料框映射