Utworzyć nazwę zmiennej z „wklej” w R?

87

Zobacz poniżej:

paste("perf.a", "1", sep="")
# [1] "perf.a1"

A jeśli chcę przypisać wartość perf.a1?

Próbowałem as.name, as.symbolitp, z bezskutecznie:

as.name(paste("perf.a", "1", sep="")) = 5
# Error in as.name(paste("perf.a", "1", sep = "")) = 5 : 
#   target of assignment expands to non-language object
as.symbol(paste("perf.a", "1", sep="")) = 5
# Error in as.symbol(paste("perf.a", "1", sep = "")) = 5 : 
#   target of assignment expands to non-language object
noquote(paste("perf.a", "1", sep="")) = 5
# Error in noquote(paste("perf.a", "1", sep = "")) = 5 : 
#   target of assignment expands to non-language object
r co było do okazania
źródło
3
Duplikować? stackoverflow.com/questions/2679193/…
Marek
2
I jeszcze kilka innych: stackoverflow.com/questions/2907896/… , stackoverflow.com/questions/2899581/… , stackoverflow.com/questions/3094111/… , stackoverflow.com/questions/2590043/…
Marek

Odpowiedzi:

126

Możesz użyć assign( doc ), aby zmienić wartość perf.a1:

> assign(paste("perf.a", "1", sep=""),5)
> perf.a1
[1] 5
lecodesportif
źródło
3
Dlaczego tak trudno było to znaleźć!
lamecicle
25
assign(paste0("perf.a", "1"), 5)jest trochę schludniej
Louis Maddox
15

Zobacz ?assign.

> assign(paste("tra.", 1, sep = ""), 5)
> tra.1
  [1] 5
Roman Luštrik
źródło
9

W moim przypadku funkcja eval () działa bardzo dobrze. Poniżej generuję 10 zmiennych i przypisuję im 10 wartości.

lhs <- rnorm(10)
rhs <- paste("perf.a", 1:10, "<-", lhs, sep="")
eval(parse(text=rhs))
Michael Romanov
źródło
Nie nadaje się, jeśli RHS jest skomplikowany lub duży. Co więcej, nawet w prostych przypadkach występuje pewna utrata precyzji: zwykle a <- rnorm(1); a - eval(parse(text=paste(a)))nie powraca 0.
3

W moim przypadku symbole, które utworzyłem (Tax1, Tax2 itp.) Miały już wartości, ale chciałem użyć pętli i przypisać symbole do innej zmiennej. Tak więc powyższe dwie odpowiedzi dały mi sposób na osiągnięcie tego. Może to być pomocne w odpowiedzi na twoje pytanie, ponieważ przypisanie wartości może nastąpić w dowolnym momencie.

output=NULL
for(i in 1:8){
   Tax=eval(as.symbol(paste("Tax",i,sep="")))
   L_Data1=L_Data_all[which(L_Data_all$Taxon==Tax[1] | L_Data_all$Taxon==Tax[2] | L_Data_all$Taxon==Tax[3] | L_Data_all$Taxon==Tax[4] | L_Data_all$Taxon==Tax[5]),]
   L_Data=L_Data1$Length[which(L_Data1$Station==Plant[1] | L_Data1$Station==Plant[2])]
   h=hist(L_Data,breaks=breaks,plot=FALSE)
   output=cbind(output,h$counts)
}
John Hedgepeth
źródło