如何根據前一列的名稱重命名列

Question

我有一個數據框，其中包含通過抓取 web 生成的列，以獲取其中幾列具有相同名稱的信息，例如

plaintiff,attorney,defendant,attorney 
Mr. Litigious, Laywer A,Big Company,Lawyer B

看看attorney欄如何具有相同的名稱？ 我可以使用janitor::clean_names使它們獨一無二，但這不是很有用：我希望根據前面的列重命名attorney列，如下例所示：

plaintiff,attorney_plaintiff,defendant,attorney_defendant
Mr. Litigious, Laywer A,Big Company,Lawyer B

目的是確定在我正在抓取的案例中誰代表誰。

經過大量搜索，我無法弄清楚做這種事情的正確方法是什么樣的。 我在 Python 中找到了這個答案，但我想知道這是否可以使用 R 來實現。

Answer 1

也許試試這個：

cols <- names(df)
inds <- which(duplicated(cols) | duplicated(cols, fromLast = TRUE))
names(df)[inds] <- paste( cols[inds], cols[inds - 1],sep = '_')
df

#      plaintiff attorney_plaintiff   defendant attorney_defendant
#1 Mr. Litigious           Laywer A Big Company           Lawyer B

names(df)
#[1] "plaintiff"  "attorney_plaintiff" "defendant"     "attorney_defendant"