ggvis - Interaktive X-Achse für Balkendiagramm

Question

Ich bin dabei, eine glänzende App mit ggvis zu erstellen. Dafür verwende ich einen kleinen Datensatz namens "Firma". Es enthält Mitarbeiterdaten, wo jede Linie darstellt und Mitarbeiter.

Aus ggvis Perspektive versuche ich folgendes: ein Balkendiagramm erstellen, die Verteilung für die folgenden Variablen zeigt:

• Alter
• Rolle
• Sex

Statt Erstellen von drei verschiedenen Balkendiagrammen mit dem folgenden Code:

#Barcharts - Role 
company %>% ggvis(~Role,opacity := 0.8, fill:= "firebrick") %>% 
    layer_bars() %>% 
    scale_ordinal('x', domain=c('Analyst','Consultant','Software Engineer','Manager','Director')) 

#Barcharts - Age 
company %>% ggvis(~Age,opacity := 0.8, fill:= "firebrick") %>% 
    layer_bars() 

#Barcharts - Sex 
company %>% ggvis(~Sex,opacity := 0.8, fill:= "firebrick") %>%  
    layer_bars() 

Ich möchte ein GGVIS-Balkendiagramm erstellen, das eine Eingabeauswahl ermöglicht.

Ich habe den folgenden Code versucht:

company %>% ggvis(input_select(c("Sex","Role","Age"), map = as.name)) %>% layer_bars() 

Der folgende Fehler zurückgegeben:

Error: Visual property x.update is not a variable 

Die verwendeten Daten wäre:

raw <- "Age Sex Role 
35 M   Director 
37 M   Director 
30 M   Manager 
28 M   Manager 
28 F   Manager 
27 M Software_Engineer 
25 M  Consultant 
26 M  Consultant 
25 F   Analyst 
25 M   Analyst 
25 M   Analyst 
25 M   Analyst 
25 M   Analyst 
25 M   Analyst 
25 F   Analyst 
25 F   Analyst 
25 F   Analyst 
24 F   Analyst 
25 M   Analyst" 


company = read.table(textConnection(raw), header=TRUE) 

Das macht mich glauben, dass ggvis lässt nicht zu, dass die Variable x ein Eingabeauswahlelement ist. Ist das richtig? Gibt es dafür eine Lösung?

Vielen Dank im Voraus. Mit freundlichen Grüßen

Answer 1

Zunächst einmal müssen Sie Ihre data.frame so melt:

library(reshape2) 
company <- melt(company, measure.vars=c('Role','Age','Sex')) 

Und dann die für mich gearbeitet folgende:

#Barcharts - Age 
company %>% ggvis(~value, opacity := 0.8) %>% 
    #use filter to pick only the category you want 
    filter(variable == eval(input_select(choices=c('Role','Age','Sex')))) %>% 
    layer_bars() 

Ich kann die interaktive Version laden aber Das Diagramm sieht so aus:

Und Sie können wählen Sie die Kategorie, die Sie mögen