r - 使用来自多个数据框的变量和合并过滤结果的自定义数据框 - Reprex 可用

Question

目标：创建使用两个独立数据框变量的自定义数据框。更具体地说，要使用在两个单独的数据框中找到的名称/id 变量，提取与名称/id 变量关联的特定变量，然后将输出自定义为一行代码以进行评估和模型格式化。

行动：下面，我成功但低效地使用了 dplyr 和 for 循环的组合来实现上述目标。此外，我附上了步骤和所需输出的照片，以帮助理解问题。

问题：对于这种情况有更简单的解决方案吗？

下面，我有两个要用于自定义比较的数据框。数据框 1 是附有州名的菱形。数据框 2 有我想比较的名称。

第一个数据框包含我需要评估的关键变量。

第二个数据框有两列我想用于比较的名称：

我想使用第二个数据框中的名称，从数据框 1 中提取自定义变量，然后将它们放在同一行以进行评估。

library(tidyverse)
#Data frame 1 - Merge diamonds dataset w/ state names dataset
diamonds <- diamonds[1:50,]
diamonds$name <- state.name
#rearrange diamonds order
test_diamonds <- diamonds[, c(11, 1:10)]

#Data frame 2 - Create two lists for comparisons
example_names1 <- c("Alabama", "Alaska", "Arizona", "Arkansas")
example_names2 <- c("California", "Colorado", "Connecticut", "Delaware")
comp_names <- data.frame(Group1 = example_names1, Group2 = example_names2)

#combine 
df = NULL
for(i in 1:4){
test100 <- test_diamonds %>%
  filter(name == example_names1[i]) %>%
  select(name, depth, price)

test200 <- test_diamonds %>%
  filter(name == example_names2[i]) %>%
  select(name, depth, price)

df <- rbind(df, data.frame(test100, test200))
}

标签： rdataframefor-loopdplyrrbind

Answer 1

你可以试试这个。用于merge()避免循环。我希望这有帮助。

#Merge
df1 <- merge(comp_names,test_diamonds[,c(1,6,8)],by.x='Group1',by.y = 'name',all.x=T)
#Merge again
df2 <- merge(df1,test_diamonds[,c(1,6,8)],by.x='Group2',by.y = 'name',all.x=T,suffixes = c(1,2))
#Arrange
df2 <- df2[,c(2,1,3:dim(df2)[2])]

    Group1      Group2 depth1 price1 depth2 price2
1  Alabama  California   61.5    326   63.3    335
2   Alaska    Colorado   59.8    326   62.8    336
3  Arizona Connecticut   56.9    327   62.3    336
4 Arkansas    Delaware   62.4    334   61.9    337