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

Question

目标：创建一个自定义数据框架，该数据框架使用两个独立数据框架的变量。更具体地说，要使用在两个单独的数据帧中找到的name/id变量，请提取与name/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))
}

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

Answer 2

这里有一个使用apply的选项

apply(comp_names, 1, function(x) {
  colnames = c("name", "depth", "price")
  
  cbind(test_diamonds[test_diamonds$name == x[["Group1"]], colnames],
        test_diamonds[test_diamonds$name == x[["Group2"]], colnames])
})%>%
  do.call("rbind",. )%>%
  setNames(., make.unique(names(.)))

      name depth price      name.1 depth.1 price.1
1  Alabama  61.5   326  California    63.3     335
2   Alaska  59.8   326    Colorado    62.8     336
3  Arizona  56.9   327 Connecticut    62.3     336
4 Arkansas  62.4   334    Delaware    61.9     337