mapply

1熱度

1回答

我在嘗試使用兩個列表data.frames使用mapply或sapply對日期進行操作。這裏是我的兩個列表： list_1 <- list(a=data.frame(date=c("2017-01-01","2017-02-02"),v1=1:2, stringsAsFactors = FALSE), b=data.frame(date=c("2017-03-03"

0熱度

2回答

提供數據幀作爲多元函數的輸入

我已經看到了一些類似的答案，但沒有實際做我想做的事情。我有一個有很多輸入的函數，我希望能夠給該函數一個數據框，其中包含爲輸入命名的列。下面的示例 my.fun <- function(alpha,beta,gamma,delta){ phi = (alpha + beta*gamma)/delta return(phi) } my.df <- data.frame(

2熱度

1回答

嘗試在R中使用mapply函數時發生錯誤Shiny應用程序

在我創建的閃亮應用程序中，我嘗試使用mapply函數將兩個列表添加到一起，但是，每當我嘗試運行時，程序都顯示以下錯誤它。 ERROR: object 'SIMPLIFY' not found 這裏是有問題的代碼 addedUp <- mapply("+", a, b, SIMPLIFY = FALSE) 簡化顯然是有沒有拼寫錯誤，所以我在什麼可能會導致此問題的損失我完全。我試着用Googl

0熱度

1回答

如何將參數傳遞到R中的mapply函數？

背景。我正在閱讀the paper並試圖找到(tau1*, tau2*) = arg max P_D(tau1, tau2)（等式（30））。在論文（第6頁，表1）中，您可以看到作者所獲得的結果（專欄 - 主席 - 瓦斯尼規則）。我用手在[1，15]範圍內改變了初始參數tau1，tau2，我的結果接近原始結果。該圖顯示了初始參數爲tau1=tau2=1（藍線）和tau1=tau2=15（紅線）

1熱度

3回答

檢查一個表中的關鍵字是否在另一個表中的字符串中使用R

我一直試圖用mapply解決這個問題，但我相信我將不得不使用幾個嵌套應用來完成這項工作，並且它已經獲得真正令人困惑。問題如下：數據幀一個包含大約400個關鍵字。這些大致分爲15類。 Dataframe two包含一個字符串描述字段和15個額外的列，每個列命名爲與數據框1中提及的類別相對應。這有數百萬行。如果從數據幀1的關鍵詞在數據幀2串字段存在，其中關鍵字所在的類別，應在數據幀標記2 我想應

1熱度

2回答

插入n個數據幀，其中n是在其他列表

描述的值我有一個數據幀a和列表b： a = data.frame(a = c(1:4), c = c(1:4), b = c(1:4)) b = c(4,3,4,5) names(b) = c("a","c","b", "d") > a a c b 1 1 1 1 2 2 2 2 3 3 3 3 4 4 4 4 >b a c b d 4 3 4 5

0熱度

1回答

替代使用R編程中列表中不同長度的成對迭代的雙循環

我試圖評估長度爲10（例如「abc」）的列表中的一系列非冗餘元素對之間的交集，對於每個元素，包含具有長度爲20的兩個整矢量，並生成用於所述一對索引爲具有交叉點的矢量超過一定次數（例如2），如下所示： set.seed(42) abc <- replicate(10, list(sample(1:100, 20), sample(1:100, 20)), simplify=F) edges <

2熱度

2回答

在R中使用應用系列並行化用戶定義的函數

我有一個需要太長時間計算的腳本，我試圖將其執行過程並行化。劇本基本上遍歷數據幀的每一行，並執行一些計算，如下圖所示： my.df = data.frame(id=1:9,value=11:19) sumPrevious <- function(df,df.id){ sum(df[df$id<=df.id,"value"]) } for(i in 1:nrow(my.df)){

0熱度

1回答

語法mapply VS for循環

我的目標是取一個數據集，1子集，並2.打印爲.csv文件實例數據 library(tidyverse) mydata <- iris 方法子集數據： z <- (split(mydata, (as.numeric(rownames(mydata))-1) %/% 50)) str(z) 我想使用mapply，但我無法獲得正確的語法。 mapply(write_csv(z, past

0熱度

1回答

在子目錄中的幾個文件上循環子集，並將文件輸出到帶有後綴的新目錄中

我已經想出了代碼的一部分，我將在下面介紹，但是我發現很難通過文件列表： library(Hmisc) filter_173 <- c("kp|917416", "kp|835898", "kp|829747", "kp|767311") # This is a vector of values that I want to exclude from the files setwd("full