R 如何在删除新添加的列时恢复到旧的数据帧？

问题

我已将大量数据集合并到一个数据帧中。然后我想在我的代码中使用这个大数据帧。然而，有时，我只想使用一个较小的早期数据集，但要使用现有的大型数据帧。我觉得它通过只有一个数据集来保持我的全球环境整洁

然而，每当我删除这些列，希望我的大型数据帧能够恢复到以前的数据集时，它都会将所有行保留为重复行。请参见下文了解我的意思：

Reprex

# Dataframe 1

lawyer <- as.data.frame(letters[1:20])
clients <- as.data.frame(seq(1:20))
location <- as.data.frame(rep(c("urban", "rural"), 10))
df <- cbind(lawyer, clients, location)
colnames(df) <- c("lawyer", "clients", "location")

# Dataframe 2

clients2 <- as.data.frame(rep(seq(1:20),5))
prop_poor <- as.data.frame(rep(seq(0, 0.9, by = 0.1),10))
df2 <- cbind(clients2, prop_poor)
colnames(df2) <- c("clients", "poverty")

# Large dataset

df_final <- left_join(df, df2, by = "clients")
remove(df, df2)


# Trying to get back to Dataframe 1 (to build a graph, for example)

dfx <- df_final %>% select(-poverty)

#数据帧1
律师一般来说，无法恢复原始表，因为大表中没有足够的信息来恢复它

但是，如果您知道原始数据没有重复项，您可以简单地删除这些数据：

dfx <- df_final %>%
    select(-poverty) %>%
    distinct()

dfx%
选择（-poverty）%>%
不同的（）