Trazar columnas de la lista de marcos de datos en R

En este artículo, discutiremos cómo trazar columnas de una lista de marcos de datos en el lenguaje de programación R. 

Nota: estamos tomando un gráfico de líneas para la implementación, el mismo se puede aplicar a cualquier otro gráfico.

El método ggplot() se complementa con diferentes formas geométricas para indicar el tipo de trazado de datos. El método geom_line() se utiliza para trazar los datos en forma de líneas. 

Sintaxis:

geom_line()

Usaremos el método lapply() en base R que aplica una función, que puede ser definida por el usuario o predefinida para el objeto de datos de entrada. 

Sintaxis:

lapply(lista-de-marco-de-datos, FUN)

Parámetro: 

• list-of-data-frame: la lista de tramas de datos formadas.
• DIVERSIÓN: la DIVERSIÓN aquí es el método ggplot() junto con las asignaciones y las visualizaciones de gráficos geométricos que se utilizarán.

Pasemos a la implementación, para entender mejor el concepto.

Ejemplo 1: trazar columnas de una lista de dos marcos de datos

library("ggplot2")
  
# create first dataframe
data_frame1<-data.frame(col1=c(rep('Jan2021',5),
                               rep('Feb2021',5),
                               rep('Mar2021',5)), 
                col2=rnorm(15),
                col3=rep(1:5,3) 
                )
  
# create second dataframe
data_frame2<-data.frame(col1=c(rep('Jan2021',5),
                               rep('Feb2021',5),
                               rep('Mar2021',5)), 
                 col2=rnorm(15),
                 col3=rep(1:5,3) 
                 )
  
# creating list of dataframes
data_frames<-list(data_frame1, data_frame2)
  
graph<-lapply(data_frames,function(x)
  p<-ggplot(x,aes(x= col3,y= col2,color=factor(col1),
                  group=factor(col1))) +
    geom_line() + 
    facet_wrap(~col1)
)
print (graph)

Producción
 

Ejemplo 2: Ejemplo para mostrar el uso de tres marcos de datos para formar la lista 

library("ggplot2")
  
# create first dataframe
data_frame1<-data.frame(col1=c(rep('Grp1',2),rep('Grp2',2),rep('Grp3',2)), 
                col2=rep(letters[1:3],2),
                col3=rep(1:2,3) 
                )
  
# create second dataframe
data_frame2<-data.frame(col1=c(rep('Grp1',2),rep('Grp2',2),rep('Grp3',2)), 
                        col2=rep(letters[1:3],2),
                        col3=rep(1:2,3) 
)
  
# creating list of dataframes
data_frames<-list(data_frame1, data_frame2)
  
graph<-lapply(data_frames,
              function(x)
                p<-ggplot(x,aes(x= col3,y= col2,color=factor(col1),
                                group=factor(col1))) +
                geom_line() + 
                facet_wrap(~col1)
)
  
print (graph)

Producción

Ejemplo 3: trazado de diferentes tipos de marcos de datos 

library("ggplot2")
  
# create first dataframe
data_frame1<-data.frame(col1=c(rep('Jan2021',5),rep('Feb2021',5),rep('Mar2021',5)), 
                        col2=rnorm(15),
                        col3=rep(1:5,3) 
)
  
# create second dataframe
data_frame2<-data.frame(col1=c(rep('Grp1',2),rep('Grp2',2),rep('Grp3',2)), 
                        col2=rep(letters[1:3],2),
                        col3=rep(1:2,3) 
)
  
# creating list of dataframes
df<-list(data_frame1, data_frame2)
  
graph<-lapply(df,
              function(x)
                p<-ggplot(x,aes(x= col3,y= col2,color=factor(col1),
                                group=factor(col1))) +
                geom_line() + 
                facet_wrap(~col1)
)
print (graph)

Producción