使用 for 循環創建新列，但我想在循環中這些新列的每個名稱中添加“.Corr”。 我怎樣才能做到這一點？

Question

最后三列是從循環中生成的。 $PFN Date Open High Low Close Volume Adjusted Return HYG TLT SPY 1 2020-01-02 10.62 10.62 10.58 10.58 267700 10.231670 NA 0.6840342 0.043489 0.656935 2 2020-01-03 10.59 10.69 10.58 10.68 351800 10.328378 0.94518 0.6840342 0.043489 0.656935 3 2020-01- 06 10.66 10.73 10.66 10.73 318400 10.376730 0.46816 0.6840342 0.043489 0.656935 4 2020-01-07 10.71 10.71 10.76 10.76 10.70 10.71

但我想實現這個

$PFN Date Open High Low Close Volume Adjusted Return HYG.Corr TLT.Corr SPY.Corr 1 2020-01-02 10.62 10.62 10.58 10.58 267700 10.231670 NA 0.6840342 0.043489 0.656935 2 2020-01-03 10.59 10.69 10.58 10.68 351800 10.328378 0.94518 0.6840342 0.043489 0.656935 3 2020-01-06 10.66 10.73 10.66 10.73 318400 10.376730 0.46816 0.6840342 0.043489 0.656935 4 2020-01-07 10.71 10.76 10.70 10.71 261500 10.357388 -0.18639 0.6840342 0.043489 0.656935

一切都應該在 for 循環中完成！

Answer 1

如果數據集對象被命名為“PFN”、“PFP”等， get對象的值，然后將這些列重命名為首選值並將其重新assign （不建議在全局環境中創建多個對象）。 最好將其列在list

objs <- c('PFN', 'PFP')
 for(obj in objs){
    tmp <- get(obj)
    nm1 <- c("HYG", "TLT", "SPY")
    names(tmp)[names(tmp) %in% nm1] <- paste0(nm1, ".Corr")
    assign(obj, tmp)
 }