Question

try <- records %>%
  group_by(cid) %>%
  mutate(bef = week_num - lag(week_num), after = abs(week_num - lead(week_num))) %>%
  mutate_at(c(6:7), ~replace(., is.na(.), 0)) %>%
  filter(qty >= 5)
vec <- vector()
for(i in 1:nrow(try)) {
  vec <- append(vec, try$after[i])
}
tableOfNumber <- base::table(vec)
totalchance <- sum(tableOfNumber[2:length(tableOfNumber)])
chanceplot <- tableOfNumber[2:length(tableOfNumber)]/totalchance
barplot(tableOfNumber[2:length(tableOfNumber)], main = "Num of weeks later after the 5th purchase", xlab = "Number of weeks", ylab = "Number of purchase",axes = FALSE)
axis(2,at=seq(0,1400,200))
barplot(chanceplot, main = "Probability of purchase after the 5th purchase", xlab = "Number of weeks", ylab = "Probability of purchase", axes = FALSE)
axis(2,at = seq(0,0.25,0.01))

我在代码块中很好地运行了这段代码，但是当我编织文件时，似乎有一个错误：只有字符串可以转换为符号。有人可以帮我吗

当我编织 RMarkdown 文件时发生错误

0 个答案: