R中的邮政编码大写

Question

我正在尝试在数据框中使用大的加拿大邮政编码矢量。我有一个想法，但我不确定如何为它编写for循环。加拿大邮政编码采用字母数字格式“ A1A 1A1”。

假设我的数据如下：

df <- as.data.frame(matrix(NA, nrow = 10, ncol = 1))
df$V1 <- c('a1a 1a1','b1b 1b1','c1c 1c1','d1d 1d1','e1e 1e1','f1f 1f1','g1g 
1g1','h1h 1h1','i1i 1i1','j1j 1j1')
colnames(df) <- 'PostalCodes'

我发现您可以使用以下代码大写：

x <- c('a1a 1a1')
s <- strsplit(x," ")[[1]]
output <- paste0(toupper(substr(s,1,1)), toupper(substr(s,2,2)), 
toupper(substr(s,3,3)),  collapse = " ")

但是我想在向量上运行一个for循环，而不仅仅是1个值。我知道迭代器在for循环中的作用，但是我在如何使用它们以及如何存储输出方面遇到麻烦。

非常感谢！