trazar 2 variables en el eje Y, usando ggvis en R
shiny (2)
Tengo un conjunto de datos que se parece a esto
"YEAR","A","B"
2001,100,177
2002,154,419
2003,334,190
2012,301,90
.. y muchas más filas.
Las columnas de "AÑO" van de 2001 a 2013. Tengo el conjunto de datos cargado en data.table "DT"
Quiero trazar un gráfico con AÑO en el eje X y gráficos de líneas para A y B en el eje Y.
En otras palabras, tengo que combinar estos dos gráficos en uno.
DT %>% ggvis(~YEAR, ~A) %>% layer_lines()
DT %>% ggvis(~YEAR, ~B) %>% layer_lines()
Sé la manera de hacerlo con ggplot2 pero no pude encontrar la manera de ggvis. Será genial incluso si pudiera hacerlo en brillante. Tu ayuda es altamente apreciada.
Prueba esto:
DT %>% ggvis(~YEAR, ~A) %>% layer_lines()%>%layer_lines(x=~YEAR, y=~B)
Puedes hacerlo de esta manera:
library(ggvis)
DT %>% ggvis(x= ~YEAR) %>%
layer_lines(y= ~A, stroke:=''blue'') %>%
layer_lines(y= ~B, stroke:=''orange'')
Supongo que también necesita diferentes colores para cada línea para poder distinguir los grupos, así que agregué el argumento de stroke
.
Salida:
Probablemente sería aún mejor si derrites el data.frame primero y luego traza con el argumento del trazo que también devolvería una leyenda. Me gusta esto:
library(reshape2)
DT2 <- melt(DT, ''YEAR'', c(''A'',''B''))
DT2 %>% ggvis(~YEAR, ~value, stroke=~variable) %>% layer_lines()