条件区切りR

Question

Rの商品の価格を計算しようとしています。すべての商品が販売されているわけではないため、実際の販売価格はありません。私は販売価格を計算し、販売価格のない値のために空白を返すことを望みます。

私はこの機能を使い始めましたが、うまくいかないようです。

sale.price <- function(price) { 
    if (CM.sample$Sales > 0) { 
    return(CM.sample$Sales/CM.sample$Product.Quantity.Purchased) 
    } else { 
    return("") 
    } 
} 

sale.price <- as.numeric(sapply(sale.price, price)) 

これは私のデータの一例です。

Product Sales Order.Quantity Price 
P1   120   2 
P2   45   1 
P3     
P4   25   2 
P5 
P6   180   3 

理想的には、私は最終的な結果をこのようにしたいと思います。

Product Sales Order.Quantity Price 
P1   120   2   60 
P2   45   1   45 
P3         
P4   25   2   12.5 
P5 
P6   180   3   60 

Answer 1

何について：

# Initialize with "" 
CM.sample$Price <- "" 
# Calculate for rows with quantites 
CM.sample$Price[as.numeric(as.character(CM.sample$Sales)) > 0] <- CM.sample$Sales/CM.sample$Product.Quantity.Purchased