我想每计数country次数的数量statusIS open和的次数status为closed.然后计算closerate每个country.
数据:
customer <- c(1,2,3,4,5,6,7,8,9)
country <- c('BE', 'NL', 'NL','NL','BE','NL','BE','BE','NL')
closeday <- c('2017-08-23', '2017-08-05', '2017-08-22', '2017-08-26',
'2017-08-25', '2017-08-13', '2017-08-30', '2017-08-05', '2017-08-23')
closeday <- as.Date(closeday)
df <- data.frame(customer,country,closeday)
添加status:
df$status <- ifelse(df$closeday < '2017-08-20', 'open', 'closed')
customer country closeday status
1 1 BE 2017-08-23 closed
2 2 NL 2017-08-05 open
3 3 NL 2017-08-22 closed
4 4 NL 2017-08-26 closed
5 5 BE 2017-08-25 closed …我有一个data.frame ABC_Score.
ABC_Score <- data.frame(Level = c("A", "A", "A", "B", "B", "C", "C",
"C", "C"), result = c(2, 3, 3, 7, 9, 18, 20, 17, 20))
我需要的是对的移动平均result每Level.
目前我有以下脚本的移动平均线.
install.packages("TTR")
library(TTR)
`ABC_Score$MA` <- runMean(ABC_Score$result, 2)
Level result MA
1 A 2 NA
2 A 3 2.5
3 A 3 3.0
4 B 7 5.0
5 B 9 8.0
6 C 18 13.5
7 C 20 19.0
8 C 17 18.5
9 C 20 18.5
但是在这里我需要指定result …