¿Cómo convertir el nombre de un dataframe en una cadena en R?

Question

estoy bucle a través de una lista de tramas de datos en R y quiero utilizar sus nombres como parte del nombre de archivo puedo guardar mis parcelas bajo.

El código siguiente es mi intento de iteración a través de tramas de datos, el trazado de la primera columna (Q1) frente a su segundo (var2) y guardando la trama.

first.data = data.frame(var1 = 1:4, var2 = 5:8); 
second.data = data.frame(var1 = 9:12, var2 = 13:16); 

for (dataFrame in list(first.data, second.data)) { 
    plot(dataFrame[["var1"]], dataFrame[["var2"]]); 
    dev.copy(pdf, paste(dataFrame, "_var1_vs_var2.pdf", sep="")); 
    dev.off(); 
} 

espero este bucle para producir archivos PDF con los nombres de archivo de la forma "first.data_var1_vs_var2.pdf", sino que el nombre de la trama de datos se sustituye con la primera columna del marco y así me sale algo como "c (1, 2, 3, 4) _var1_vs_var2.exchemVbuffer.pdf".

Answer 1

La única manera que conozco para trabajar de esta manera directamente sobre las tramas de datos en una lista sería adjuntar un comentario que contiene el nombre, que luego se puede utilizar para llevar su nombre dentro del bucle:

df1 <- data.frame(var1=rnorm(10), var2=rnorm(10)) 
df2 <- data.frame(var1=rnorm(10), var2=rnorm(10)) 
comment(df1) <- "df1" 
comment(df2) <- "df2" 

for (dataFrame in list(df1,df2)) { 
    dFnm <- comment(dataFrame) 
    pdf(file=paste(dFnm, "_var1_vs_var2.pdf", sep="")) 
    plot(dataFrame[["var1"]], dataFrame[["var2"]])  
    dev.off(); 
} 

(usted pierde los nombres de los objetos a los que se pasan como las variables de bucle. Si lo hace deparse(substitute()) dentro de ese bucle, que se obtiene "trama de datos" en lugar de los nombres originales.) La otra forma sería utilizar nombres de las tramas de datos, pero luego deberá usar get o do.call, lo que puede ser un poco más complicado. De esta manera parece bastante sencillo.

Answer 2

solución ligeramente diferente:

dataframe1 = data.frame(iv = rnorm(50), dv = rnorm(50)) 
dataframe2 = data.frame(iv = rnorm(50), dv = rnorm(50)) 
dataframe3 = data.frame(iv = rnorm(50), dv = rnorm(50)) 

LIST = list(dataframe1 = dataframe1, 
      dataframe2 = dataframe2, 
      dataframe3 = dataframe3) 


for(i in 1:length(LIST)){ 
    pdf(file=paste(names(LIST)[i], paste(colnames(LIST[[i]]), collapse="."), 
       "pdf", sep=".")) 
    plot(LIST[[i]][,1],LIST[[i]][,2], 
     xlab = colnames(LIST[[i]])[1], 
     ylab = colnames(LIST[[i]])[2], 
     main = paste("Plot based on data in", names(LIST)[i])) 
    dev.off() 
    } 

Answer 3

El código de abajo responde a la pregunta del título, pero puede o no ser de cualquier ayuda con respecto a la cuestión en el cuerpo del mensaje:

my.data <- read.table(text=' 
    x1 x2  x3 
    1 10 111 
    2 20 222 
    3 30 333 
    4 40 444 
    5 50 555 
', header = TRUE, stringsAsFactors = FALSE) 

my.data 

deparse(substitute(my.data)) 

# [1] "my.data" 

encontré esta solución aquí:

https://www.mail-archive.com/r-help@r-project.org/msg60789.html

después de una búsqueda bastante extensa y se pensó si sería útil para otros incluir el código con la pregunta actual, que es el primer golpe que obtengo al buscar en Internet: convert data frame name to string r.

La respuesta por BondedDust menciona deparse.

Aquí es el código que aparece a abordar la cuestión en el cuerpo del mensaje. A pesar de que me he dejado el código para la generación de parcela:

df1 <- data.frame(var1=rnorm(10), var2=rnorm(10)) 
df2 <- data.frame(var1=rnorm(10), var2=rnorm(10)) 

list.function <- function() { 

    sapply(c("df1", "df2"), get, environment(), simplify = FALSE) 
} 

my.list <- list.function() 

my.df.names <- names(my.list) 
# [1] "df1" "df2" 

for (i in 1:length(my.list)) { 

    df.name <- my.df.names[i] 
    print(df.name) 

} 

[1] "df1" 
[1] "df2"