在函数中表示中间处理步骤的适当表示法是什么？

Question

所以，让我们说我已经定义了以下函数来读取一组文件：

read_File <- function(file){
    #  read Excel file
    df1 <- read.xls(file,sheet=1, pattern="Name", header=T, na.strings=("##"), stringsAsFactors=F)
    #  remove rows where Name is empty
    df2 <- df1[-which(df1$Name==""),]
    #  remove rows where "Name" is repeated
    df3 <- df2[-which(df2$Name=="Name"),]
    #  remove all empty columns (anything with an auto-generated colname)
    df4 <- df3[, -grep("X\\.{0,1}\\d*$", colnames(df3))]
    row.names(df4) <- NULL
    df4$FileName <- file
    return(df4)
}

它可以正常工作，但定义df1...df4来表示中间步骤感觉不好。有没有更好的方法来做到这一点而不影响可读性？