如果您将输入保存在文本文件中，您可以使用readLines读取它，然后执行其余操作，例如：

L <- readLines('crates.txt')
# split into single characters and create a matrix
L <- sapply(strsplit(L, ''), identity)
# keep only rows with a number in the last column (and remove that column)
L <- L[grepl('[0-9]', L[, ncol(L)]), -ncol(L)]
# drop empty cells and reverse rows
L <- apply(L, 1, \(x) rev(x[x!=' ']), simplify=F)

L
# [[1]]
# [1] "Z" "N"
# 
# [[2]]
# [1] "M" "C" "D"
# 
# [[3]]
# [1] "P"