# R v4.5.2
# Load packages
readr |> library()
# or
library(readr)
# ===== Read csv file =====
csv_file_path <- "raw_data/AsPC LZ #1 GEM Ker488 FN 568 pN 647 _01.vsi - 20x_detections_trimmed.csv"
csv_file <- csv_file_path |>
read_csv(show_col_types = FALSE)
# or
csv_file <- read_csv(csv_file_path, show_col_types = FALSE)
# ===== Read txt file =====
txt_file_path <- "raw_data/AsPC LZ #1 GEM Ker488 FN 568 pN 647 _01.vsi - 20x_detections_trimmed.txt"
txt_file <- txt_file_path |>
read_tsv(show_col_types = FALSE)
# or
txt_file <- read_tsv(txt_file_path, show_col_types = FALSE)
# ===== some comparisons =====
# Compare dimention
csv_file |> dim() # rows columns[1] 10 102
# or
dim(csv_file)[1] 10 102
txt_file |> dim()[1] 10 102
# or
dim(txt_file)[1] 10 102
(csv_file |> dim()) == (txt_file |> dim()) # check if they are the same[1] TRUE TRUE
# or
dim(csv_file) == dim(txt_file)[1] TRUE TRUE
# Compare column names
(csv_file |> names()) == (txt_file |> names()) # check if the column names are the same [1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
[16] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
[31] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
[46] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
[61] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
[76] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
[91] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
# or
names(csv_file) == names(txt_file) [1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
[16] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
[31] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
[46] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
[61] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
[76] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
[91] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
# Compare two specific positions/cells
csv_file[5, 10] == txt_file[5, 10] # check if the content at row 500 and column 10 is the same Nucleus: Area µm^2
[1,] TRUE
csv_file[10, 30] == txt_file[10, 30] Nucleus: cytokeratin: Min
[1,] TRUE