r - 对于循环存储问题

标签 r

<分区>

我如何将以下循环结果存储在单个向量中，并保持其顺序？ Obs.: print() 仅用于 reprex 目的。

我已经尝试使用 sapply() 但它重新排序了结果。

meses = c("jan", "fev", "mar", "abr", "mai", "jun",
          "jul", "ago", "set", "out", "nov", "dez", "total")

colunas = c("orcado", "realizado", "desvio", "desvio%")

nomes = NULL

for (x in meses) {
  print(paste(colunas, x, sep = "_"))
}
#> [1] "orcado_jan"    "realizado_jan" "desvio_jan"    "desvio%_jan"  
#> [1] "orcado_fev"    "realizado_fev" "desvio_fev"    "desvio%_fev"  
#> [1] "orcado_mar"    "realizado_mar" "desvio_mar"    "desvio%_mar"  
#> [1] "orcado_abr"    "realizado_abr" "desvio_abr"    "desvio%_abr"  
#> [1] "orcado_mai"    "realizado_mai" "desvio_mai"    "desvio%_mai"  
#> [1] "orcado_jun"    "realizado_jun" "desvio_jun"    "desvio%_jun"  
#> [1] "orcado_jul"    "realizado_jul" "desvio_jul"    "desvio%_jul"  
#> [1] "orcado_ago"    "realizado_ago" "desvio_ago"    "desvio%_ago"  
#> [1] "orcado_set"    "realizado_set" "desvio_set"    "desvio%_set"  
#> [1] "orcado_out"    "realizado_out" "desvio_out"    "desvio%_out"  
#> [1] "orcado_nov"    "realizado_nov" "desvio_nov"    "desvio%_nov"  
#> [1] "orcado_dez"    "realizado_dez" "desvio_dez"    "desvio%_dez"  
#> [1] "orcado_total"    "realizado_total" "desvio_total"    "desvio%_total"

^{由 reprex package 创建于 2020-07-17 (v0.3.0)}

最佳答案

好问题，有很多可能的答案。 :-)

例如您可以使用 lapply() 而不是 for 循环和 unlist()把它变成一个简单的向量:

unlist(lapply(meses, function(x) paste(colunas, x, sep = "_")))
#>  [1] "orcado_jan"      "realizado_jan"   "desvio_jan"      "desvio%_jan"    
#>  [5] "orcado_fev"      "realizado_fev"   "desvio_fev"      "desvio%_fev"    
#>  [9] "orcado_mar"      "realizado_mar"   "desvio_mar"      "desvio%_mar"    
#> [13] "orcado_abr"      "realizado_abr"   "desvio_abr"      "desvio%_abr"    
#> [17] "orcado_mai"      "realizado_mai"   "desvio_mai"      "desvio%_mai"    
#> [21] "orcado_jun"      "realizado_jun"   "desvio_jun"      "desvio%_jun"    
#> [25] "orcado_jul"      "realizado_jul"   "desvio_jul"      "desvio%_jul"    
#> [29] "orcado_ago"      "realizado_ago"   "desvio_ago"      "desvio%_ago"    
#> [33] "orcado_set"      "realizado_set"   "desvio_set"      "desvio%_set"    
#> [37] "orcado_out"      "realizado_out"   "desvio_out"      "desvio%_out"    
#> [41] "orcado_nov"      "realizado_nov"   "desvio_nov"      "desvio%_nov"    
#> [45] "orcado_dez"      "realizado_dez"   "desvio_dez"      "desvio%_dez"    
#> [49] "orcado_total"    "realizado_total" "desvio_total"    "desvio%_total"

^{由 reprex package 创建于 2020-07-17 (v0.3.0)}

关于r - 对于循环存储问题，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/62961608/

上一篇：vue.js - Nuxt : Open component/page as modal with dedicated url like dribble. com

下一篇：c - 浅/深复制术语是否适用于没有引用的对象？

r - 如何将此 ggplot2 条形图转换为线图？

r - 查找字符串 R 代码中嵌套括号的最大深度

css - 在 Shiny 的仪表板中对齐标题元素

r - 基于列值的类分配

R devtools 不读取包含空格的 Windows 路径，在 $PATH 变量中找不到

r - 找不到数据掩码的变量

r - header=TRUE 时 read.fwf 出错

r - 创建跨多个数量级的日志序列

r - 在 ggplot 中为 geom_smoth 添加最大(峰值)值