sapply

    0熱度

    1回答

    我 words <- c("word1", "word") text <- c("this is word1", "this is word2", "this is word4") 如果我使用sapply(words, grepl, text)讓你真假回答的列表, 代替我怎樣讓這個已經匹配了確切的話 使得答案將是 "this is word1" 我對R這個愚蠢的問題是新來的。 歡迎任何想

    0熱度

    1回答

    我有一個狀態列表。每個列表元素包含一天中每一分鐘的傳感器狀態(1440個條目,0或1)。該列表包含所有傳感器。 例如,statuses[[3]]給出了一個包含1440個條目的向量,其中包含每分鐘的所有0和1。 在所有傳感器的狀態,比方說,800分是: sapply(statuses,'[',800) 我想獲得主動式傳感器的數量(即顯示1)每分鐘。我怎麼做?不知怎的,一個人把另一個sapply(

    2熱度

    1回答

    我對R,一個chron對象和sapply函數有問題。我改變了默認原點: chron_start <- chron("01/01/2010", "00:30:00",origin.=c(month=1, day=1, year=1900)) ch <- chron_start+(0:(365*24-1))/24 現在,如果我跑: > sprintf("%s", years(ch[1])) [

    0熱度

    2回答

    我有一個大的數據框(4631行x 2995 cols)。各行代表美國所有醫院的郵政編碼,各列代表患者的郵政編碼。我計算了患者的家庭拉鍊與醫院之間的距離,以便每個細胞值是代表每個患者家庭與每家醫院之間的英里數的數值。 一個例子df是: 10960 11040 56277 55379 37160 674.14 238.04 25.89 5.31 37091 162.62 71.25 4

    0熱度

    1回答

    有3個數據幀。 ID變量位於每個數據幀的第12列。我創建了一個向量list_cc_q1,其中包含所有數據幀中的所有唯一ID(因此該向量中的每個條目都出現在至少一個數據幀的第12列中)。 我希望創建,增加了,對於每個ID的向量v1,在從含有該ID的每個數據幀中的第七列中的值(因此v1將是相同長度的作爲list_cc_q1)。下面是我使用的代碼:我想我已經過於複雜的代碼,一個簡單的方法將是極大的幫助

    1熱度

    1回答

    我正在計算一組跨越多個組的水質參數的統計數據。我想在使用sapply函數之前對數據進行分組。 下面是一個示例data.frame: site <- c("Comm HR", "Comm 1", "Trans HR", "Trans 1", "Comm HR", "Comm 1", "Trans HR", "Trans 1") flow <- c(2,21,3,5,2.1,22,.02

    1熱度

    1回答

    在我目前的項目中,我有大約820萬行。如果特定列的值不爲零,我想掃描所有行並應用某個函數。 counter=1 for(i in 1:nrow(data)){ if(data[i,8]!=0){ totalclicks=sum(data$Clicks[counter:(i-1)]) test$Clicks[i]=totalclicks counter=i } } 在上面的

    0熱度

    2回答

    我已經在R中構建了一個模型,我試圖使用sapply()(我知道這可能看起來很奇怪 - 這是由於模型部署的特性)。但是,在處理這個功能時,我偶然發現了一個奇怪的,有問題的行爲sapply()。下面是代碼: sapply(1:nrow(test_x), function(i) { print(i) print(test_x[i,]$Age) # actual functi

    0熱度

    2回答

    我有一個文本向量與已註冊的藥物名稱,另一個與新葯名稱。我想知道新葯是否看起​​來像現有的藥物。 例如,如果supercure是可以由firm1或firm2生產的藥物,並且supercure firm1 1000mg和supercure firm2 500mg已經註冊,那麼supercure firm1 500 mg應該與它們兩者相關聯。 agrep允許R中做這樣的匹配,並sapply允許這樣做對每

    1熱度

    1回答

    我有一套屬於不同股票指數的公司。我想根據索引的名稱創建不同的子集。 這裏是一個重複的例子: cs.ind.sp500 <- c(1,1,1,0,0,0,0,0,0,0) cs.ind.spsc1500 <- c(0,0,1,0,0,0,0,0,0,0) cs.ind.dax40 <- c(0,0,0,0,0,0,0,1,1,1) dat <- data.frame(cs.ind.sp500,