Hallo bigben ... hallo Athomas ...
... ich hatte wohl keine Mail zu bigbens Post bekommen ... sonst hätte ich geantwortet.
Umso mehr freue ich mich, das ich Euch eine Selbstlösung präsentieren kann.
Mein Fehler war ein simpler Anfängerfehler:
Da man die Layer auch wechseln kann, hatte ich den "bunten" Layer nur verdeckt.
Die obere "ly_points"-Zeile färbt alle Seminarereignisse in weiß ... die untere entsprechend der Anzahl der Ereignisse bunt. Da die ausgewählten Seminare auch mit Ereignissen in der ungefilterten Zeile deckungsgleich sind, hatte ich die hervorzuhebenden Seminare schlichtweg weiß "übermalt".
Ein vertauschen der Layer brachte das gewünschte Ergebnis.
Hier der Code:
Code: Alles auswählen
library(rbokeh)
library(ggplot2)
library(tidyverse)
EVA_2019 <- read_excel("C:/Users/<USER>/Own/INT/R_ENVIRONMENT/{SOURCES}/XLSX/EVA_2019.xlsx")
figure(width = 2000, height = 600, title = "SEMINAREVALUATION", xlab = "Seminar", ylab = "Evaluationswert",xaxes = "below", legend_location = NULL) %>%
ly_points(
data = EVA_2019, SEMINAR, EVALUATIONSWERT, color = "#ffffff", glyph = 21, hover = c(SEMINAR ,EVALUATIONSWERT, BEGINN, ANSPRECHPARTNER)) %>%
ly_points(
data = c(filter(EVA_2019, str_detect(SEMINAR, "342|344|345|346|347|348|349|351|600|602"))), SEMINAR, EVALUATIONSWERT, color = SIFA, glyph = 20,hover = c(SEMINAR ,EVALUATIONSWERT, BEGINN, ANSPRECHPARTNER)) %>%
ly_abline(h=2.1, color = "red", type = 2) %>%
# ----------------------------------------
theme_axis("x", major_label_orientation = 90, major_label_text_font_size = "6pt") %>%
theme_plot(background_fill_color = "#E6E6E6", outline_line_color = "black") %>%
theme_title(text_color = "#004994", text_font_size = "30pt", text_baseline = "bottom", text_font_style = "bold", text_align = "right", text_font = "Helvetica", text_alpha = 0.5,)
Sollte Rbokeh bei Euch häufiger Anwendung finden (es ist wirklich sehr demonstrativ) ... könnte man ja einen eigenen Thread aufbauen.