水槽for循環給出了錯誤裏面的「接收器堆棧已滿」 R中

Question

我用下面的數據在R工作組：

> str(df) 
'data.frame': 369269 obs. of 12 variables: 
$ bkod : int 110006 110006 110006 110006 110006 110006 110006 110006 110006 110006 ... 
$ bad : Factor w/ 215 levels "4. Levent","500 Evler",..: 26 26 26 26 26 26 26 26 26 26 ... 
$ mkod : int 359 359 359 359 359 359 359 359 359 359 ... 
$ mad : Factor w/ 8643 levels " Hilal Gida   ",..: 4021 4021 4021 4021 4021 4021 4021 4021 4021 4021 ... 
$ yekod: int 12 12 12 12 12 12 12 12 12 12 ... 
$ yad : Factor w/ 44 levels "BAKUGAN","BARBIE",..: 1 1 1 1 1 2 2 2 2 2 ... 
$ donem: int 201101 201103 201105 201107 201109 201102 201103 201104 201106 201107 ... 
$ sayi : int 201101 201102 201103 201104 201105 201102 201103 201104 201106 201107 ... 
$ plan : num 5 3 2 7 5 0 2 2 0 2 ... 
$ sevk : int 5 6 4 7 6 3 2 5 5 2 ... 
$ iade : int 4 1 3 5 5 2 2 5 0 2 ... 
$ satis: int 1 5 1 2 1 1 0 0 5 0 ... 

bkv <- unique(df$bkod) 
> bkv 
    [1] 110006 110007 110010 110011 110020 110022 110027 110030 110032 110036 110043 110049 110051 110054 110056 110061 110062 110067 110069 110071 110077 
[22] 110084 110092 110093 110094 110100 110101 110104 110109 110111 110113 110116 110117 110120 110133 110138 110143 110158 110160 110162 110186 110187 
[43] 110198 110202 110208 110213 110214 110216 110218 110219 110222 110224 110229 110232 110234 110235 110247 110249 110250 110252 110255 110256 110262 
[64] 110265 110266 110268 110269 110270 110274 110277 110278 110282 110285 110295 110296 110301 110306 110309 110310 110311 110313 110314 110315 110319 
[85] 110329 110346 110351 110354 110357 110359 110377 110379 110380 110386 110392 110394 110396 110397 110400 110406 110412 110413 110419 110421 110422 
[106] 110423 110426 110428 110431 110439 110442 110444 110452 110455 110464 110467 110469 110470 110471 110475 110478 110480 110485 110490 110492 110498 
[127] 110499 110503 110505 110506 110508 110509 110512 110514 110517 110518 110519 110523 110532 110534 110537 110540 110543 110544 110545 110546 110547 
[148] 110549 110550 110551 110553 110554 110555 110556 110557 110559 110560 110562 110565 110566 110569 110570 110571 110572 110573 110575 110576 110577 
[169] 110578 110579 110580 110581 110582 110583 110584 110586 110587 110588 110589 110590 110591 110594 110595 110596 110597 110598 110599 110600 110602 
[190] 110603 110605 110606 110607 110608 110609 110610 110611 110612 110613 110614 110615 110616 110617 110619 110620 110621 110622 110623 110624 110625 
[211] 110626 110627 110628 110629 110630 

我想實現的是讓一些計算相對於bkv中的每個元素，並在For-Loop中使用sink將結果附加到txt文件。所以我創建了以下循環;

for (i in bkv) { 
    new <- df[df$bkod==i,] 
    dp <- new[new$plan!=new$sevk,] 
    medy <- 100*(nrow(dp)/nrow(new)) 
    sink("Report.txt") 
    cat(i, "için müdahale oranı: %", medy, "\n") 
} 

，但它提供了以下錯誤：

Error in sink("Report.txt") : sink stack is full

它創建REPORT.TXT但它是一個空文件。報告應該有215行，因爲bkv有215個元素。

我在做什麼錯？我該怎麼做才能使這個循環正常工作並將結果追加到文本文件中？

Answer 1

sink輸出的轉向設置到一個文件中的功能。在循環之前，你只做一次。 cat的輸出將被轉移到您的接收器文件中，直到您取消接收器sink()。

所以，你的代碼應該是這個樣子：

sink("Report.txt") 
for (i in bkv) { 
    new <- df[df$bkod==i,] 
    dp <- new[new$plan!=new$sevk,] 
    medy <- 100*(nrow(dp)/nrow(new)) 
    cat(i, "için müdahale oranı: %", medy, "\n") 
} 
sink() 

---

有可能有sink文件堆棧。此堆棧的最大大小取決於您的操作系統允許的打開文件句柄數量。

---

警告

我用sink相當多的作爲的R紐比。但我認爲它有一些危險的副作用，你應該注意。最重要的是，如果您的腳本有錯誤，並且您重新運行該腳本，那麼您的sink(filename)將被添加到一摞接收器中。

所以，除非你是一絲不苟有關sink棧你記賬，這可能會導致各種錯誤。

在我看來，這是遠遠不如使用cat能力追加到一個文件，e.g：

cat(..., file="Report.txt", append=TRUE) 

，或者甚至更好，寫一個包裝函數。沿着線的東西：

catf <- function(..., file="report.txt", append=TRUE){ 
    cat(..., file=file, append=append) 
}