get(as.character(FUN), mode = “function”, envir = envir) 中的錯誤：

Question

我正在嘗試將此函數應用於數據框以創建新功能，但我不斷收到此錯誤：

get(as.character(FUN), mode = "function", envir = envir) 中的錯誤：找不到模式 'function' 的對象 'INSTALLMENT'

我也試過apply(df, 2, purchase)但后來我得到這個錯誤：

錯誤：$ 運算符對原子向量無效

代碼是：

purchase = function(DataFrame){

  if((DataFrame$ONEOFF_PURCHASES == 0) && (DataFrame$INSTALLMENTS_PURCHASES == 0))
    return('NONE')

  if((DataFrame$ONEOFF_PURCHASES > 0) && (DataFrame$INSTALLMENTS_PURCHASES > 0))
    return('BOTH_ONEOFF_INSTALLMENT')

  if((DataFrame$ONEOFF_PURCHASES > 0) && (DataFrame$INSTALLMENTS_PURCHASES == 0))
    return('ONE_OFF')

  if((DataFrame$ONEOFF_PURCHASES == 0) && (DataFrame$INSTALLMENTS_PURCHASES > 0))
    return('INSTALLMENT')
}

df$PURCHASE_TYPE = apply(df, 2, purchase(df))

Answer 1

它看起來像一個ifelse()案例。 if() ... else ...只能處理單個布爾值。 為了使您的函數工作，您需要通過mapply()或Vectorize() 。

示例數據

set.seed(1)
df <- data.frame(ONEOFF_PURCHASES = sample(0:1, 5, T), INSTALLMENTS_PURCHASES = sample(0:1, 5, T))

#   ONEOFF_PURCHASES INSTALLMENTS_PURCHASES
# 1                0                      0
# 2                1                      0
# 3                0                      0
# 4                0                      1
# 5                1                      1

功能

purchase <- function(x, y){
  if((x == 0) && (y == 0))
    return('NONE')
  else if((x > 0) && (y > 0))
    return('BOTH_ONEOFF_INSTALLMENT')
  else if((x > 0) && (y == 0))
    return('ONE_OFF')
  else if((x == 0) && (y > 0))
    return('INSTALLMENT')
  else
    return('OTHERS')
}

矢量化

mapply(purchase, df$ONEOFF_PURCHASES, df$INSTALLMENTS_PURCHASES)
# [1] "NONE"  "ONE_OFF"  "NONE"  "INSTALLMENT"  "BOTH_ONEOFF_INSTALLMENT"

Vectorize(purchase)(df$ONEOFF_PURCHASES, df$INSTALLMENTS_PURCHASES)
# [1] "NONE"  "ONE_OFF"  "NONE"  "INSTALLMENT"  "BOTH_ONEOFF_INSTALLMENT"

---

實際上，我們在這個問題中沒有使用上面的方法。 我們將使用ifelse()或dplyr::case_when() 。

library(dplyr)

df %>%
  mutate(PURCHASE_TYPE = case_when(
    (ONEOFF_PURCHASES == 0) & (INSTALLMENTS_PURCHASES == 0) ~ 'NONE',
    (ONEOFF_PURCHASES > 0) & (INSTALLMENTS_PURCHASES > 0) ~ 'BOTH_ONEOFF_INSTALLMENT',
    (ONEOFF_PURCHASES > 0) & (INSTALLMENTS_PURCHASES == 0) ~ 'ONE_OFF',
    (ONEOFF_PURCHASES == 0) & (INSTALLMENTS_PURCHASES > 0) ~ 'INSTALLMENT',
    TRUE ~ 'OTHERS'
  ))

#   ONEOFF_PURCHASES INSTALLMENTS_PURCHASES           PURCHASE_TYPE
# 1                0                      0                    NONE
# 2                1                      0                 ONE_OFF
# 3                0                      0                    NONE
# 4                0                      1             INSTALLMENT
# 5                1                      1 BOTH_ONEOFF_INSTALLMENT