Question

我有一个列表（my.list）和一个数据框（my.dataframe）。 my.list中每个元素的名称是一个序列，并且与my.dataframe中两个变量中的元素具有相同的类型。我想拉出名称在my.dataframe中两列的元素范围之内，之内或之外的列表元素。

RNGkind('Mersenne-Twister')
set.seed(1)

#Create my.dataframe
my.letters <- sample(x = sample(LETTERS[1:20], 
                                size = 13, 
                                replace = FALSE), 
                     size = 100, 
                     replace = TRUE)
my.other.letters <- LETTERS[match(my.letters, LETTERS) + 
                        sample(x = 0:5,
                               size = 100, 
                               replace = TRUE)]
my.dataframe <- data.frame(col1 = my.letters, 
                           col2 = my.other.letters)

head(my.dataframe)
  col1 col2
1    D    F
2    C    C
3    O    O
4    A    E
5    T    T
6    D    F
#So here, I'd want to pull out elements within my.list who's names would fall within D 
#and F for the first row, C for the second row, O for the fourth, A and E for the fifth,
#so on and so forth.

#Create my.list
temp.data <- data.frame(a = rnorm(13*20, 10, 1), 
                        b = rep(LETTERS[sample(1:length(LETTERS), 
                                        size = 13, 
                                        replace = FALSE)], 
                                each = 20))
my.list <- split(x = temp.data$a, f = factor(temp.data$b))

我已经使用mapply()来尝试执行此操作：

mega.list <- mapply(function(f, s)my.list[which(LETTERS == f):which(LETTERS == s)], f = my.dataframe$col1, s = my.dataframe$col2)

但是，只有在col1，col2和my.list中元素的名称具有字母的所有字母的情况下，它才有效，但没有。如果您查看mega.list[[98]]，则会看到一个空列表，因为它正在寻找my.list和T（Y）之间的my.dataframe[98,]中的名称。似乎没有名称为T的列表元素，您一无所获。

sort(unique(as.character(my.dataframe$col1))); sort(unique(as.character(my.dataframe$col2))); sort(unique(names(my.list)))
[1] "A" "B" "C" "D" "F" "H" "I" "K" "N" "O" "P" "S" "T"
[1] "A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T" "U" "V" "X" "Y"
[1] "A" "B" "D" "E" "F" "G" "H" "J" "K" "R" "S" "W" "Z"

问题：如果在my.list中没有确切的字母名称，是否可以选择col1中字母之前或之后的下一个最接近的字母，或者col2？例如，如果它试图从N中寻找一个字母col1，我怎么能选择K呢？同样，如果它试图从U中找到col2，我如何才能找到W呢？

Answer 1

我知道了。我必须对mapply函数进行修正，其中第一个which函数查找所有字母，并且在f之前查找所有字母（并使用tail函数）），最后一个which函数会查看该函数及其之后的所有字母，并采用第一个字母（用[1]完成）。

mega.list <- mapply(function(f, s)my.list[tail(which(names(my.list) <= f), n = 1):which(names(my.list) >= s)[1]], f = as.character(my.dataframe$col1), s = as.character(my.dataframe$col2))

根据另一个数据帧的向量中的信息提取列表元素

1 个答案: