cbind

3熱度

1回答

我有100個數字向量，命名爲sim1 sim100在我的工作區，所有相同的長度（18）。我試圖找到一種方法來識別它們，並且讓它們創建一個18行和100列的數據框。我可以很容易地創建一個包含了向量的長度名稱100的特徵向量： myvector<-ls() myvector<-[grep("sim",myvector)] ..但我被困在如何創建對象本身的列表，我假設，然後我可以使用do.call

-5熱度

2回答

你能幫我理解一個R代碼嗎？

我對R完全陌生。請你給我解釋下面的代碼嗎？提前謝謝你。 patterns <- matrix(c(0,0,0,1,0,1,0,1,1,1,1,0),4,3, byrow = T) input <- unlist(lapply(1:100, function(i) { ps <- patterns[sample(nrow(patterns)),] as.vector(t(ps)

0熱度

1回答

結合列表的不同元素使用應用

我有一個主List含子列表也包含元素一個數據幀。我想每個子列表的第八個元素從主List相結合，使數據幀。如果我寫這篇文章是手動的工作： DF <- cbind(List[[1]][[8]],List[[2]][[8]], ... List[[n]][[8]]) 這是工作，其結果是想要的數據幀。但是我在主列表中有很多子列表，主列表的長度並不總是相同的。所以，手動編寫它是沒有效率的。我試試這個

1熱度

1回答

使用rbind（）/ cbind（）返回中的R

追加單個行數據我有6數字列出了每個含有不同數量的值即[1：350]，[1：450] ....。我想所有這些列表的追加到一個單一的列表即[1：1050]使用rbind（），但輸出我得到的是數據幀[1：350，1：6]。有人可以幫助我這個。

1熱度

1回答

cbind或通過粘貼名稱合併？

我在我的工作區中有很多大的xts對象，我試圖通過使用cbind，merge,apply甚至在一個循環中進行組合。目前，xts數據是刻度數據，並且由於其長度而無法將其粘貼到此處。然而，我所要做的是： cbind(AAPL.O, AMZN.O, BIDU.O, GLD.A, ...) -> all 通過使用cbind stock1 <- c("AAPL.O", "AMZN.O", "BIDU.O"

1熱度

1回答

如何rbind向量到不同的列，留下來港在剩餘的細胞

比方說，我有不同長度的向量數目不詳的，我想有效rbind在一起，需要提醒的是，他們必須各自佔據不同的列由此產生的數據幀。您可能會認爲矢量包含在列表中，但不能依賴列表中可能定義的任何組件名稱。下面我提出了一個隨機樣本輸入（lv）和一個不好的解決方案來生成所需的輸出，通過重複NA並按名稱組合每個輸入向量來手動生成結果數據幀。 set.seed(1); lv <- list(a=sample(30,

0熱度

2回答

如何cbind離散係數大矩陣

我有一個獨立的因素，長度79 [1] 4 6 6 4 6 1 6 4 1 6 1 4 6 1 1 1 6 6 6 6 6 4 1 6 6 4 6 6 1 1 6 4 6 1 6 6 4 4 [39] 6 6 4 1 1 4 1 1 6 1 1 6 6 1 1 6 4 1 1 6 1 6 6 1 6 6 6 6 1 1 1 1 6 1 1 1 1 1 [77] 6 6 1 Levels: 1

0熱度

3回答

對每行的列子集進行排序

我想按行降序排列my.data [4:10]。一些線索在這裏，但我無法充分解析：Sort second to fifth column for each row in R。我也嘗試過類似的事情： sort(my.data, decreasing = TRUE, partial = c([4:10])) ，沒有工作，但我認爲前者更符合我的需要。我通讀了？cbind，？apply，？sort幫助

1熱度

3回答

與不同元素組合表

我有不同列表中的項目，我想計算每個列表中的項目並將其輸出到表格。然而，當列表中有不同的項目時，我遇到了困難。也說明我的問題： item_1 <- c("A","A","B") item_2 <- c("A","B","B","B","C") item_3 <- c("C","A") item_4 <- c("D","A", "A") item_5 <- c("B","D") list

1熱度

1回答

cbind爲動物園對象列表

什麼是乾淨的方式來解決以下問題？我想用do.call來綁定一個動物園對象列表。 >> zz <- list(zoo(1:10,1:10), zoo(101:110,1:10), zoo(201:210,1:10)) >> names(zz)<-c('test','bar','foo') >> do.call(cbind,zz) > test bar foo > 1 1 101 201