小编Ori*_*rat的帖子

我想将r脚本的所有内容导出为pdf。有可能吗 我使用了这些命令导出，但是看到的只是导出图形

pdf(file = "example.pdf")
  dev.off()

谢谢！

    setwd("C:/Users/Prat/Desktop/c")
    > dir()
    [1] "script.R"
    > knitr::stitch('script.r')
 output file: script.tex

在我的文件夹中没有出现script.pdf，而是没有script.tex和带有pdf图片的文件夹

我想创建一个仅在满足条件时增加的累积增量计数器。

DT <- data.table(id = c(1, 1, 1, 1, 1, 1, 1, 2, 2, 2), 
               b = c(10L, 5L, 3L, 4L, 2L, 6L, 1L, 3L, 5L, 7L))

我没有得到想要的结果，rleid因为当连续行中满足两个条件时，不会执行增量

> DT[,count := rleid(b>=5),id]
> DT
    id  b count
 1:  1 10     1
 2:  1  5     1
 3:  1  3     2
 4:  1  4     2
 5:  1  2     2
 6:  1  6     3
 7:  1  1     4
 8:  2  3     1
 9:  2  5     2
10:  2  7     2

预期的结果是 …