將多個 csv 文件導入到 R 和 plot 數據對中的每個 Z628CB5675FF524F3E719ZFE7AA2E 上的同一圖形文件

Question

我想導入多個 csv 文件 (12)，其中包含時間 t 和壓力 P 的數據。每個文件的標題相同 (t,P) 但時間值不常見，因此每個 csv 中的每個 t,P 對文件是唯一的。

我可以毫無問題地導入文件：

filenames <- list.files(path = ("C:/Users/K125763/Documents/Mars"),  
                        # Follows a regular expression that matches:
                        pattern = "mars-[0-12]{2}.csv",
                        full.names = TRUE)
filenames <- filenames[1:12]

但是下面的循環將每個數據對繪制在單獨的圖表上：

analyze.p <- function(filename) {
dat <- read.csv(file = filename, header = TRUE)

plot(dat$P~dat$t)

}

for (f in filenames) {
  print(f)
  analyze.p(f)
}

如何在同一個圖表上獲取所有數據對？

Answer 1

我會建議一種函數式編程方法 + ggplot2 ：

library(purrr) # functional programming tools
library(dplyr) # data wrangling
library(ggplot2) # plotting
filenames <- list.files(path = ("C:/Users/K125763/Documents/Mars"),  
                        # Follows a regular expression that matches:
                        pattern = "mars-[0-12]{2}.csv",
                        full.names = TRUE)
filenames <- filenames[1:12]

## Read and concatenate CSV files
data <- filenames %>%
  map_df(~mutate(read.csv(file = .x, header = TRUE), source_file = .x))

## Plot in a single chart
ggplot(data, aes(t, P)) +
  geom_point() +
  facet_wrap('source_file')