迴路不工作，儲蓄outpout

Question

嗨，不知何故，我的循環不工作。它只需要最後一個變量。下面的代碼：

library(readxl) 
library(readr) 
library(plyr) 
library(dplyr) 

path = "C:/Users/benja/OneDrive/Studium/Bachelorarbeit/Ressourcen/Conference Calls/" 
Enterprise = "ABB Ltd" 

#Import Dictionary 
Dictionary <- read_excel("C:/Users/benja/OneDrive/Studium/Bachelorarbeit/Ressourcen/LoughranMcDonald_MasterDictionary_2014.xlsx", 
        sheet = "Tabelle1") 
for (File in c("2016 Q1.xml","2016 Q2.xml","2016 Q3.xml","2016 Q4.txt")) 
    { 

    #Import Text 
    ABB_2016_Q4 <- read_delim(paste0(path,Enterprise,"/",File), 
         " ", escape_double = FALSE, col_names = FALSE, 
         trim_ws = TRUE) 

    #Umformatierung -> Zuerst Transp, Vektor, kleinbuchstaben, dataframe 
    ABB_2016_Q4 = data.frame(tolower(c(t(ABB_2016_Q4)))) 
    colnames(ABB_2016_Q4) = "Word" 

    #Zusammenführung Text-Dictionary 
    Analyze_2016_Q4 = inner_join(Dictionary,ABB_2016_Q4) 

    #Analyse 
    Rating = sum(Analyze_2016_Q4$Rating) 

} 

如果我嘗試用

print(File) 

它有相應的列表，但迴路不反正工作進行測試。如何在每個循環後保存結果？ 我希望顯示不同季度的每個評級。

Answer 1

它看起來像你加載一個'master'文件，然後加載大量單個文件並嘗試將這些文件加入到主文件中。如果是這樣的話，我會採取更具功能性的方法，而不是使用for()循環。

一些示例數據：

master <- data.frame(
    key = letters, 
    stringsAsFactors = FALSE 
)  

a <- data.frame(
    key = sample(letters, 13), 
    dat = sample(1:100, 13), 
    stringsAsFactors = FALSE 
) 

a$key 
letters_reduced <- letters %in% a$key 
letters_reduced <- letters[!letters_reduced] 

b <- data.frame(
    key = sample(letters_reduced, 13), 
    dat = sample(1:100, 13), 
    stringsAsFactors = FALSE 
) 

readr::write_csv(a, "~/StackOverflow/BenjaminBerger/a.csv") 
readr::write_csv(b, "~/StackOverflow/BenjaminBerger/b.csv") 

因此，我們必須在內存中的主對象。將多個文件加載在R，假設他們在同一目錄下，我會使用list.files()然後在文件迭代與lapply()和read_csv()：

files <- list.files("StackOverflow/BenjaminBerger", pattern = "*.csv", 
        full.names = TRUE) 
df <- lapply(files, readr::read_csv) 

你現在有數據幀的列表。有很多方法可以將它們加入到主對象中，但最簡單的方法是將數據框列表「摺疊」爲一個數據框，然後與其一起加入。這是那麼容易，因爲：

df <- dplyr::bind_rows(df) 
master <- dplyr::inner_join(master, df, by = "key") 

它可以幫助您：

head(master) 
# key dat 
# 1 a 38 
# 2 b 52 
# 3 c 59 
# 4 d 77 
# 5 e 34 
# 6 f 93 

Answer 2

你的循環可能是工作，但目前它沒有返回任何東西：）

例如你可以寫你的結果列表：

#initiate result list 
allResults <- list() 
#populate your filelist; depending on your directory, you can also use list.files() 
files <- c("2016 Q1.xml","2016 Q2.xml","2016 Q3.xml","2016 Q4.txt") 
#iterate through your files 
for (i in (1:length(files)) 
    { #Import Text 
    ABB_2016_Q4 <- read_delim(paste0(path,Enterprise,"/",files[i]), 
         " ", escape_double = FALSE, col_names = FALSE, 
         trim_ws = TRUE) 

    #Umformatierung -> Zuerst Transp, Vektor, kleinbuchstaben, dataframe 
    ABB_2016_Q4 = data.frame(tolower(c(t(ABB_2016_Q4)))) 
    colnames(ABB_2016_Q4) = "Word" 

    #Zusammenführung Text-Dictionary 
    Analyze_2016_Q4 = inner_join(Dictionary,ABB_2016_Q4) 

    #Analyse & store results & add identifier: 
    allResults[[i]] = data.frame(ID = paste0("Q",i), 
           result =sum(Analyze_2016_Q4$Rating), 
           stringsAsFactors = FALSE) 

} 
# flatten resultlist to a dataframe: 
allResultsDf <- do.call(rbind, allResults)