[英]Passing multiple arguments as a list in R
我希望將參數列表作為向量傳遞給R中的另一個命令。我不想每次都重復相同的參數集。
這是我必須為t1 to t6
范圍的數據幀的每個$full_text
列運行6次的代碼。
library(quanteda)
t1t <- tokens(t1$full_text, what = 'word', remove_numbers = TRUE,
remove_punct = TRUE,
remove_symbols = TRUE,
remove_separators = TRUE,
remove_twitter = TRUE,
remove_hyphens = TRUE,
remove_url = TRUE)
t1t <- tokens_tolower(t1t)
t1t <- tokens_select(t1t, stopwords(), selection = "remove")
t1t <- unlist(t1t)
t1t <- unique(t1t)
t1t <- as.data.frame(t1t)
t1t <- as.data.frame.matrix(t1t)
有沒有辦法傳遞一次性論點。
如錯誤消息中所述, tokens
字符向量,語料庫或令牌作為輸入。 您正在向其傳遞數據幀。 而是將相應的文本列傳遞給它。
tokens
也可以處理向量,因此您可以將多個列一起作為一個向量傳遞。
library(quanteda)
tokens(c(t1$colname, t2$colname, t3$colname), what = "word", remove_numbers = TRUE,
remove_punct = TRUE, remove_symbols = TRUE, remove_separators = TRUE,
remove_twitter = TRUE, remove_hyphens =TRUE, remove_url = TRUE)
基於更新並以?tokens
幫助頁面為例
t1 <- data.frame(full_text = "#textanalysis is MY <3 4U @myhandle gr8 #stuff :-)",
stringsAsFactors = FALSE)
t2 <- data.frame(full_text = c("This is $10 in 999 different ways,\n up and down;
left and right!", "@kenbenoit working: on #quanteda 2day\t4ever,
http://textasdata.com?page=123."), stringsAsFactors = FALSE)
我們可以創建一個函數以將其應用於所有數據框
complete_function <- function(x) {
t1t <- tokens(x, what = 'word', remove_numbers = TRUE,
remove_punct = TRUE,
remove_symbols = TRUE,
remove_separators = TRUE,
remove_twitter = TRUE,
remove_hyphens = TRUE,
remove_url = TRUE)
t1t <- tokens_tolower(t1t)
t1t <- tokens_select(t1t, stopwords(), selection = "remove")
t1t <- unlist(t1t)
t1t <- unique(t1t)
t1t <- as.data.frame(t1t)
t1t <- as.data.frame.matrix(t1t)
}
然后使用mget
獲取數據幀t1
, t2
, t3
等,並將該函數應用於每個數據幀的"full_text"
列。
lapply(mget(ls(pattern = "^t\\d+")), function(x) complete_function(x$full_text))
#$t1
# t1t
#1 textanalysis
#2 4u
#3 myhandle
#4 gr8
#5 stuff
#$t2
# t1t
#1 different
#2 ways
#3 left
#4 right
#5 kenbenoit
#6 working
#7 quanteda
#8 2day
#9 4ever
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.