第七色在线视频,2021少妇久久久久久久久久,亚洲欧洲精品成人久久av18,亚洲国产精品特色大片观看完整版,孙宇晨将参加特朗普的晚宴

為了賬號(hào)安全,請(qǐng)及時(shí)綁定郵箱和手機(jī)立即綁定
已解決430363個(gè)問題,去搜搜看,總會(huì)有你想問的

如何在不重復(fù)較短向量的元素的情況下cbind或rbind不同長(zhǎng)度的向量?

如何在不重復(fù)較短向量的元素的情況下cbind或rbind不同長(zhǎng)度的向量?

慕婉清6462132 2019-08-19 16:15:21
如何在不重復(fù)較短向量的元素的情況下cbind或rbind不同長(zhǎng)度的向量?cbind(1:2, 1:10)       [,1] [,2]    [1,]    1    1    [2,]    2    2    [3,]    1    3    [4,]    2    4    [5,]    1    5    [6,]    2    6    [7,]    1    7    [8,]    2    8    [9,]    1    9   [10,]    2   10  我想要一個(gè)像下面這樣的輸出[,1] [,2]  [1,] 1 1  [2,] 2 2  [3,]   3  [4,]   4  [5,]   5  [6,]   6  [7,]   7  [8,]   8  [9,]   9  [10,]  10  
查看完整描述

3 回答

?
Smart貓小萌

TA貢獻(xiàn)1911條經(jīng)驗(yàn) 獲得超7個(gè)贊

輔助功能......


bind.pad <- function(l, side="r", len=max(sapply(l,length)))

{

  if (side %in% c("b", "r")) {

    out <- sapply(l, 'length<-', value=len)

  } else {

    out <- sapply(sapply(sapply(l, rev), 'length<-', value=len, simplify=F), rev)}

  if (side %in% c("r", "l")) out <- t(out)

  out

}

例子:


> l <- lapply(c(3,2,1,2,3),seq)

> lapply(c("t","l","b","r"), bind.pad, l=l, len=4)

[[1]]

     [,1] [,2] [,3] [,4] [,5]

[1,]   NA   NA   NA   NA   NA

[2,]    1   NA   NA   NA    1

[3,]    2    1   NA    1    2

[4,]    3    2    1    2    3


[[2]]

     [,1] [,2] [,3] [,4]

[1,]   NA    1    2    3

[2,]   NA   NA    1    2

[3,]   NA   NA   NA    1

[4,]   NA   NA    1    2

[5,]   NA    1    2    3


[[3]]

     [,1] [,2] [,3] [,4] [,5]

[1,]    1    1    1    1    1

[2,]    2    2   NA    2    2

[3,]    3   NA   NA   NA    3

[4,]   NA   NA   NA   NA   NA


[[4]]

     [,1] [,2] [,3] [,4]

[1,]    1    2    3   NA

[2,]    1    2   NA   NA

[3,]    1   NA   NA   NA

[4,]    1    2   NA   NA

[5,]    1    2    3   NA


查看完整回答
反對(duì) 回復(fù) 2019-08-19
  • 3 回答
  • 0 關(guān)注
  • 1023 瀏覽

添加回答

舉報(bào)

0/150
提交
取消
微信客服

購(gòu)課補(bǔ)貼
聯(lián)系客服咨詢優(yōu)惠詳情

幫助反饋 APP下載

慕課網(wǎng)APP
您的移動(dòng)學(xué)習(xí)伙伴

公眾號(hào)

掃描二維碼
關(guān)注慕課網(wǎng)微信公眾號(hào)