如何根据R编程中的下一列重命名列标题

编程问答 2022-05-29

问题描述

如何重命名具有“X 或 X.1 或 X.3”值的列标题，但它应该引用并重命名为下一列的标题。

代码：

library(pdftools)
library(data.table)
library(tabulizer)
pdf_file <- "new.pdf"

out2 <- extract_tables(pdf_file,pages =c(89),output = "data.frame")
out2<-as.data.table(out2)
colnames(out2)

实际输出：

"G" "X" "Day.7" "X.1"   "Day.8" "X.2"   "Day.9" "X.3"

预期输出：

"G" "Day.7 "Day.7" "Day.8"   "Day.8" "Day.9"  "Day.9"

解决方法

如果不访问您正在使用的 PDF，很难知道，但这可能是因为创建一个 2 列共享相同名称的数据框不是默认行为。如果您确定知道列是什么，那么您只需手动更改名称即可。

    # Make fake data that matches what the pdf extract_tables function might be doing
    originalnames <- c("G","X","Day.7","X.1","Day.8","X.2","Day.9","X.3")
    mm <- matrix(data=NA,nrow=1,ncol=8)
    colnames(mm) <- originalnames
    
    # Create a data frame with required names
    df <- data.frame(mm)
    requirednames <- c("G","Day.9")
    names(df) <- requirednames
dplyrdplyrpdftoolsrrtabulizer