[問題] 函數中使用left_join出錯
[問題類型]:
程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來)
[軟體熟悉度]:
入門(寫過其他程式，只是對語法不熟悉)
[問題敘述]:
我想寫一個function來幫我批次合併表格，直接執行沒有問題
但是包成function來測試就出錯
（然後我不知道問題再哪...）
function中有使用dplyr以及tidyr
[程式範例]:
DateCollection <- function(CountTable, Date){
dataTable <- CountTable[CountTable[["Date"]]==Date,]
groupTable.temp <- gather(GroupTable, Ref_Name, Mut_Name, key = Type, value
= Seq_Name)
time.vector <- unique(dataTable[["Time"]])
temp.table <- list()
for(i in time.vector){
dataTable.time <- dataTable[dataTable[["Time"]]==i, c(3:4)]
colnames(dataTable.time) <- c("Seq_Name", "Count")
groupTable.temp <-
dplyr::left_join(groupTable.temp, dataTable.time, by = c("Seq_Name" =
"Seq_Name")) %>%
dplyr::select(Group_No, Type, Count) %>%
tidyr::spread(Type, Count)
temp.table[[i]] <- groupTable.temp
}
return(temp.table)
}
}
針對合併表格的部份(dplyr::left_join)直接執行做測試是沒有問題，但是包成function
來測試以後就會有錯誤訊息
錯誤: `by` can't contain join column `Seq_Name` which is missing from LHS
請教各位，我弄錯、還是沒弄清楚什麼...謝謝
[環境敘述]:
R version 3.5.1 (2018-07-02)
Platform: x86_64-pc-linux-gnu (64-bit)
Running under: Linux Mint 19
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 140.109.32.9
※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1545189293.A.6C2.html
※ 編輯: resentis (140.109.32.9), 12/19/2018 11:59:01
→
12/19 14:04,
6年前
, 1F
12/19 14:04, 1F
→
12/19 16:18,
6年前
, 2F
12/19 16:18, 2F
→
12/19 16:41,
6年前
, 3F
12/19 16:41, 3F
→
12/20 12:33,
6年前
, 4F
12/20 12:33, 4F
→
12/20 12:33,
6年前
, 5F
12/20 12:33, 5F
→
12/25 16:02,
6年前
, 6F
12/25 16:02, 6F
→
12/25 16:02,
6年前
, 7F
12/25 16:02, 7F
→
12/25 16:02,
6年前
, 8F
12/25 16:02, 8F
→
12/26 20:27,
6年前
, 9F
12/26 20:27, 9F
→
12/26 20:28,
6年前
, 10F
12/26 20:28, 10F
→
12/26 20:29,
6年前
, 11F
12/26 20:29, 11F
R_Language 近期熱門文章
PTT數位生活區 即時熱門文章
