![](/img/trans.png)
[英]How to evaluate one argument of a function call using another argument of that call, and an object created inside the function environment in R?
[英]How to call several vectors into the r environment to use them in another function
我在 R 環境中有一系列不同長度的向量,例如:
> s_aleat_0
[1] "12M08393" "12M08427" "12M08412" "12M08441" "12M08436" "12M08444" "12M08443" "12M08387"
> s_aleat_1
[1] "12M08405" "12M08389" "12M08439" "12M08406" "12M08397" "12M08402"
> s_aleat_2
[1] "12M08422" "12M08441" "12M08410" "12M08391" "12M08396" "12M08420" "12M08409"
我想通過模式將它們調用到另一個函數中(rbind 他的字符串以將初始向量加入更大的向量中),如下所示:
samples<-ls(pattern = "s_aleat_")
unique(c(rbind(samples)))
[1] "12M08393" "12M08405" "12M08422" "12M08427" "12M08389" "12M08441" "12M08412" "12M08439" "12M08410"
[10] "12M08406" "12M08391" "12M08436" "12M08397" "12M08396" "12M08444" "12M08402" "12M08420" "12M08443"
[19] "12M08409" "12M08387"
但是當我將“樣本”放入 rbind 時,它無法識別向量,如果不是使用 ls function 獲得的文本,如下所示:
c(rbind(samples))
[1] "s_aleat_0" "s_aleat_1" "s_aleat_2" "s_aleat_4" "s_aleat_5"
我怎么能修好它?
您可以使用mget
和 append NA
收集列表中的所有向量,用於長度較短的向量,以創建一個矩陣,其中每個向量都是一列。
s_aleat_0 <- c("12M08393","12M08427","12M08412","12M08441","12M08436","12M08444","12M08443","12M08387")
s_aleat_1 <- c("12M08405", "12M08389", "12M08439", "12M08406", "12M08397" ,"12M08402")
s_aleat_2 <- c( "12M08422", "12M08441", "12M08410" ,"12M08391", "12M08396", "12M08420", "12M08409")
tmp <- mget(ls(pattern = "s_aleat_"))
result <- sapply(tmp, `[`, 1:max(lengths(tmp)))
# s_aleat_0 s_aleat_1 s_aleat_2
#[1,] "12M08393" "12M08405" "12M08422"
#[2,] "12M08427" "12M08389" "12M08441"
#[3,] "12M08412" "12M08439" "12M08410"
#[4,] "12M08441" "12M08406" "12M08391"
#[5,] "12M08436" "12M08397" "12M08396"
#[6,] "12M08444" "12M08402" "12M08420"
#[7,] "12M08443" NA "12M08409"
#[8,] "12M08387" NA NA
我們可以使用來自stri_list2matrix
的stringi
library(stringi)
stri_list2matrix(tmp)
# [,1] [,2] [,3]
#[1,] "12M08393" "12M08405" "12M08422"
#[2,] "12M08427" "12M08389" "12M08441"
#[3,] "12M08412" "12M08439" "12M08410"
#[4,] "12M08441" "12M08406" "12M08391"
#[5,] "12M08436" "12M08397" "12M08396"
#[6,] "12M08444" "12M08402" "12M08420"
#[7,] "12M08443" NA "12M08409"
#[8,] "12M08387" NA NA
s_aleat_0 <- c("12M08393","12M08427","12M08412","12M08441","12M08436","12M08444","12M08443","12M08387")
s_aleat_1 <- c("12M08405", "12M08389", "12M08439", "12M08406", "12M08397" ,"12M08402")
s_aleat_2 <- c( "12M08422", "12M08441", "12M08410" ,"12M08391", "12M08396", "12M08420", "12M08409")
tmp <- mget(ls(pattern = "s_aleat_"))
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.