R中的遞減乘法

以下是我的示例數據框df，其中包含許多變量，其中C是其中一個變量中列的長度。R中的遞減乘法

ID C 
1 0 
2 1.47349678 
3 0 
4 0 
5 0 
6 0 
7 0 
8 0 
9 0 
10 0 
11 0 
12 0 
13 0 
14 0 
16 1.987 
17 0 
18 0 
19 0 
20 0 
21 0 
22 0 
23 0 
24 0 
25 0 
26 0 
27 0

我需要創建另一個變量C_C其中它由C產物和遞減因子的0.1。
必須僅對C_C的值的計數10進行乘法運算，其值爲C，而不是0。結果也必須從下一個數據點存儲。即如果C !=0在Id ==2，則產品必須從ID==3
如果有非零數字後不到10連續零將計數只是重置爲C新的值存儲找到，如果發現沒有進一步的數據乘法將停止。

預期結果

ID C    C_C 
    1 0    0 
    2 1.47349678  0 
    3 0    1.47349678 
    4 0    1.326147102 
    5 0    1.178797424 
    6 0    1.031447746 
    7 0    0.884098068 
    8 0    0.73674839 
    9 0    0.589398712 
    10 0    0.442049034 
    11 0    0.294699356 
    12 0    0.147349678 
    13 0    0 
    14 0    0 
    16 1.987   0 
    17 0    1.987 
    18 0    1.7883 
    19 0    1.5896 
    20 0    1.3909 
    21 0    1.1922 
    22 0    0.9935 
    23 0    0.7948 
    24 0    0.5961 
    25 0    0.3974 
    26 0    0.1987 
    27 0    0

從所需的結果觀察
1.價值C這是不0是enocunter在ID = 2，因此產品被從ID == 3即C_C3存儲。
2. C_C3 == C2 * 1，C_C4 == C2*0.9,C_C5 == C2 * 0.8 ...... C_C12 == C*0.1, C_C13 == C2 *0。
3.同樣C_C17 == C16 * 1，C_C18 == C16*0.9，C_C19 == C16 *0.8，... C_C26 == C16 *0.1，C_C27 == C16*0

謝謝！

來源

2017-07-26 Tareva

如果在一個非零數字之後連續的零點少於10個，計數值纔會重置？ –

@RonakShah是的，我忘了提到這一點。計數應重置「C」的新值以進行乘法運算。 – Tareva

隨着dplyr：

library(dplyr) 
df$group = cumsum(dt$C>0) 
df = df %>% group_by(group) %>% mutate(value=sum(C)) %>% 
    mutate(n=1.1-0.1*(row_number()-1)) %>% mutate(n=ifelse(n<0|value==0|n==1.1,0,n)) %>% 
    mutate(C_C = n*value) %>% ungroup() %>% select(-n,-group,-value) %>% as.data.frame() 

    ID  C C_C 
1 1 0.000 0.0000 
2 2 1.473 0.0000 
3 3 0.000 1.4735 
4 4 0.000 1.3261 
5 5 0.000 1.1788 
6 6 0.000 1.0314 
7 7 0.000 0.8841 
8 8 0.000 0.7367 
9 9 0.000 0.5894 
10 10 0.000 0.4420 
11 11 0.000 0.2947 
12 12 0.000 0.1473 
13 13 0.000 0.0000 
14 14 0.000 0.0000 
15 16 1.987 0.0000 
16 17 0.000 1.9870 
17 18 0.000 1.7883 
18 19 0.000 1.5896 
19 20 0.000 1.3909 
20 21 0.000 1.1922 
21 22 0.000 0.9935 
22 23 0.000 0.7948 
23 24 0.000 0.5961 
24 25 0.000 0.3974 
25 26 0.000 0.1987 
26 27 0.000 0.0000

來源

2017-07-26 06:28:40 Florian

感謝您的解決方案，但'C_C3 == C2 * 1'，但根據您的代碼其'C_C3 == C * 0.9'。 – Tareva

對不起，我忽略了。通過設置1更正爲1.1 – Florian

謝謝。完美的作品。 – Tareva

與sapply有點漫長的過程，從基礎R

vals <- which(df$C != 0) 
values <- c(sapply(df$C[vals], function(x) x * rev(seq(0.1, 1.0, 0.1)))) 
inds <- c(sapply(vals + 1, function(x) seq(x, x+9))) 
df$C_C <- 0 
df$C_C[inds] <- values 
df$C_C 

# [1] 0.0000000 0.0000000 1.4734968 1.3261471 1.1787974 1.0314477 0.8840981 
# [8] 0.7367484 0.5893987 0.4420490 0.2946994 0.1473497 0.0000000 0.0000000 
#[15] 0.0000000 1.9870000 1.7883000 1.5896000 1.3909000 1.1922000 0.9935000 
#[22] 0.7948000 0.5961000 0.3974000 0.1987000 0.0000000

在這裏，我們先找出指標這不等於0（vals），獲得各自的值（df$C[vals]），對於每個值我們乘以1.0,0.9,0.8 .....等等。我們現在擁有我們需要的所有values，現在我們使用seq函數來生成這些values我們生成其各自的索引（inds）。我們現在可以在其各自的索引（inds）上指定values，並將剩餘值賦值爲0。

來源

2017-07-26 06:36:35

感謝您的解決方案！，我的數據幀大約有850K個數據點，你的代碼正在執行150K左右的數據點，但對於我的數據幀爲850K，它拋出了一個列長度不等的錯誤。 – Tareva

R中的遞減乘法

回答

相關問題