* Fonksiyonların ailesini uygulayan değişikliklerin nasıl kaydedileceği

Question

Ben data.frames listesine sahibim.

> LoDFs <- list(data.frame(y1=c(1,2,3), y2=c(4,5,6)), data.frame(yA=c(1,2,3), yB=c(4,5,6))) 

> LoDFs 
[[1]] 
    y1 y2 
1 1 4 
2 2 5 
3 3 6 

[[2]] 
    yA yB 
1 1 4 
2 2 5 
3 3 6 

Here ayrı ayrı her data.frame işlemek için lapply fonksiyonunu nasıl kullanılacağını buldum. Amacım, özellikle data.frame'deki sütun adlarını değiştirmektir (her iki data.frames, A ve ikinci B adında ilk sütuna sahip olmalıdır). Aşağıdaki denedim:

> col.names <- c("A", "B") 
> lapply(seq_along(LoDFs), function(x) {colnames(LoDFs[[x]]) <- col.names}) 
[[1]] 
[1] "A" "B" 

[[2]] 
[1] "A" "B" 

Ama sadece modifikasyon döner ve özellikle data.frame etkilemedi:

> LoDFs 
[[1]] 
    y1 y2 
1 1 4 
2 2 5 
3 3 6 

[[2]] 
    yA yB 
1 1 4 
2 2 5 
3 3 6 

Nasıl fonksiyonların aile yaptım uygulamak * değişiklikleri kaydetmek için veri?

Answer 1

Diğer bir seçenek biz yerde değiştirmek gerekiyorsa setNames

lapply(LoDFs, setNames, c('A', 'B')) 
# [[1]] 
# A B 
#1 1 4 
#2 2 5 
#3 3 6 

#[[2]] 
# A B 
#1 1 4 
#2 2 5 
#3 3 6 

, biz magrittr den %<>% operatörünü kullanabilirsiniz olduğunu.

library(magrittr) 
LoDFs %<>% 
     lapply(., setNames, c("A", "B")) 
sapply(LoDFs, names) 
# [,1] [,2] 
#[1,] "A" "A" 
#[2,] "B" "B" 

Answer 2

lapply(LoDFs, 'names<-', c("A", "B")) 
[[1]] 
    A B 
1 1 4 
2 2 5 
3 3 6 

[[2]] 
    A B 
1 1 4 
2 2 5 
3 3 6