我有如下示例資料：
# Two lists of vectors
A <- list()
B <- list()
patterns <- c("A","B")
A[[1]] <- c("Aa", "Aa", "Ab", NA)
names(A)[1] <- "A1"
A[[2]] <- c("Aa", "Aa", "Ab", NA, NA)
names(A)[2] <- "A2"
B[[1]] <- c("Aa", "Ab", NA, NA, "Ab")
names(B)[1] <- "B1"
B[[2]] <- c("Aa", "Ab", NA, "Ab")
names(B)[2] <- "B2"
我想要做的是從每個串列項創建 data.frames，每個串列項只有唯一的值。
for (j in 1:length(patterns)) {
# Keep unique values
assign(paste0("Pattern_", patterns[[j]]), lapply(paste0("Pattern_", patterns[[j]]) ,function(x) unique(na.omit(x))))
# Make lengths equal
assign(paste0("Pattern_", patterns[[j]]), lapply(paste0("Pattern_", patterns[[j]]), `length<-`, max(lengths(paste0("Pattern_", patterns[[j]])))))
# Create data.frame
assign(paste0("Pattern_", patterns[[j]]), data.frame(matrix(unlist(paste0("Pattern_", patterns[[j]])), nrow=length(paste0("Pattern_", patterns[[j]])), byrow=TRUE),stringsAsFactors=FALSE))
}
我以為我做對了，但不知何故我得到的是：
我想要的是：
A <- lapply(A ,function(x) unique(na.omit(x)))
A <- lapply(A, `length<-`, max(lengths(A)))
# https://stackoverflow.com/questions/12639501/convert-list-to-data-frame-while-keeping-list-element-names
A <- data.frame(ID = rep(names(A), sapply(A, length)),
Match = unlist(A), row.names = NULL)
ID Match
1 A1 Aa
2 A1 Ab
3 A2 Aa
4 A2 Ab
我究竟做錯了什么？
uj5u.com熱心網友回復：
我只想做一個更簡單的方法：
library(tidyverse)
# Two lists of vectors
A <- list()
B <- list()
patterns <- c("A","B")
A[[1]] <- c("Aa", "Aa", "Ab", NA)
names(A)[1] <- "A1"
A[[2]] <- c("Aa", "Aa", "Ab", NA, NA)
names(A)[2] <- "A2"
B[[1]] <- c("Aa", "Ab", NA, NA, "Ab")
names(B)[1] <- "B1"
B[[2]] <- c("Aa", "Ab", NA, "Ab")
names(B)[2] <- "B2"
stack(A) %>% distinct(ind, values)
#> values ind
#> 1 Aa A1
#> 2 Ab A1
#> 3 <NA> A1
#> 4 Aa A2
#> 5 Ab A2
#> 6 <NA> A2
然后，您可以過濾掉NAs。
由reprex 包( v2.0.0 )于 2021 年 11 月 5 日創建
編輯
我建議永遠不要使用，assign因為您在代碼中引入了副作用。
代碼的問題在于您從不呼叫串列，而是在lapply()函式中使用字串：
lapply(paste0("Pattern_", patterns[[j]]) ,function(x) unique(na.omit(x)))
我保留了assign，即使我不喜歡它。
for (j in patterns) {
new_list <- lapply(get(j) ,function(x) unique(na.omit(x)))
assign(paste0("Pattern_", j), stack(new_list))
}
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/349024.html