trazar 2 variables en el eje Y, usando ggvis en R

shiny

Question

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.

Answer 1

Prueba esto:

DT %>% ggvis(~YEAR, ~A) %>% layer_lines()%>%layer_lines(x=~YEAR, y=~B)

Answer 2

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()