En este artículo, analizaremos cómo trazar series de tiempo con etiquetas de fecha en el eje x en ejemplos de apoyo del lenguaje de programación R.
Método 1: Usar el método plot()
El método plot() en base R es una función de trazado genérica. Traza las coordenadas correspondientes de los ejes x e y respectivamente. El gráfico se puede personalizar para agregar el tipo de línea, el ancho de línea en el gráfico.
Sintaxis:
trama(x, y, …)
Parámetro:
x, y: las coordenadas para trazar.
El marco de datos de entrada contiene col1 como strings de caracteres de fecha y col2 como las marcas de tiempo correspondientes.
Ejemplo:
R
# defining a data frame
data_frame <- data.frame( col1 = c("6/7/2021","7/7/2021","8/7/2021",
"9/7/2021","10/7/2021"),
col2 = c(799355, 805800,701262,531579,
690068)
)
print ("Original Dataframe")
print (data_frame)
# describing new column in date class
data_frame$col3 <- as.Date(data_frame$col1, "%m/%d/%Y",)
# plotting the data
plot(data_frame$col3, data_frame$col2 ,
cex = 0.9,type = "l" ,xaxt = "n" )
# Add dates to x-axis
axis(1,
data_frame$col3,
format(data_frame$col3, "%d-%m-%Y"))
Producción
[1] "Original Dataframe" col1 col2 1 6/7/2021 799355 2 7/7/2021 805800 3 8/7/2021 701262 4 9/7/2021 531579 5 10/7/2021 690068
Método 2: Usar el método ggplot()
La biblioteca ggplot2 se usa para mostrar diagramas descriptivos complejos en la ventana del espacio de trabajo del lenguaje de programación R.
El método ggplot() se usa para trazar los puntos de datos del marco de datos especificado y especificar el conjunto de estética de la trama. Se utiliza para crear un mapeo estético y agregar un mapeo de función geom particular.
Sintaxis:
ggplot(datos = NULL, mapeo = aes(c1, c2 )) + geom_line()
Parámetros:
datos: el conjunto de datos predeterminado para trazar
mapeo – El mapeo estético a utilizar
El geom_line() se usa para agregar geoms en forma de líneas y puntos. Se utiliza para trazar series de tiempo, así como líneas en la trama.
Ejemplo:
R
library("ggplot2")
# defining a data frame
data_frame <- data.frame( col1 = c("1/6/2021","1/7/2021","1/8/2021",
"1/9/2021","1/10/2021"),
col2 = c(799355, 805800,701262,531579,
690068)
)
print ("Original Dataframe")
print (data_frame)
# describing new column in date class
data_frame$col3 <- as.Date(data_frame$col1, "%m/%d/%Y")
# plotting the data
ggplot( data = data_frame, aes( col3, col2 )) + geom_line() +
scale_x_date(date_labels = "%Y-%m-%d")
Producción
[1] "Original Dataframe" col1 col2 1 6/7/2021 799355 2 7/7/2021 805800 3 8/7/2021 701262 4 9/7/2021 531579 5 10/7/2021 690068
Publicación traducida automáticamente
Artículo escrito por mallikagupta90 y traducido por Barcelona Geeks. The original can be accessed here. Licence: CCBY-SA