AFM-whole cell

Data input and manipulation

library(readxl)
H_0_00000_flattened_height <- read_excel("C:/(R) plots for laoma/AFM/20220615/H++.0_00000_flattened_height.xlsx", col_names = FALSE)

data1 = as.matrix(H_0_00000_flattened_height)

for (i in 1:nrow(data1)) {
                           for (j in 1:ncol(data1)) {
                                                      if (data1[i,j] < 5)
                                                         {data1[i,j] = NA}
   }
}

write.csv(data1, 'height_trimmed.csv', row.names = FALSE)

Data mapping to another matrix (without changing data1 in origin)

H_0_00000_adhesion <- read_excel("C:/(R) plots for laoma/AFM/20220615/H++.0_00000_adhesion.xlsx", col_names = FALSE)

data2 = as.matrix(H_0_00000_adhesion)

for (i in 1:nrow(data2)) {
                           for (j in 1:ncol(data2)) {
                                                      if (is.na(data1[i,j]))
                                                         {data1[i,j] = NA}
   }
}

write.csv(data2, 'adhesion_trimmed.csv', row.names = FALSE)

Data mapping to another matrix (data1 changed in origin)

height_trimmed_polished <- read_excel("C:/(R) plots for laoma/AFM/20220615/height_trimmed_polished.xlsx", col_names = FALSE)

data_mirror = as.matrix(height_trimmed_polished)

for (i in 1:nrow(data2)) {
                           for (j in 1:ncol(data2)) {
                                                      if (data_mirror[i,j]%in%"NA")
                                                         {data2[i,j] = NA}
   }
}

write.csv(data2, 'adhesion_trimmed_2.csv', row.names = FALSE)