我想用R和Highcharter创建一个图,并在上面放置一个连接到两个点(而不仅仅是一个点)的注释.
这就是我try 的:
# Laden der Bibliothek
library(highcharter)
# Laden der Titanic-Daten aus dem 'datasets'-Paket
data <- datasets::Titanic
# Umstrukturierung der Daten für den Plot
data_long <- as.data.frame(as.table(data))
colnames(data_long) <- c("Class", "Sex", "Age", "Survived", "Count")
data_long$Count <- as.numeric(data_long$Count)
# Filtern der Daten für Erwachsene
data_long <- subset(data_long, Age == "Adult")
# Erstellen des gestapelten Balkendiagramms
hchart(data_long, "column", hcaes(x = Sex, y = Count, group = interaction(Survived, Class)), stack = TRUE) %>%
hc_plotOptions(column = list(stacking = "percent"))%>%
hc_annotations(list(
labels = list(
list(
point = list(x = 0.5, y = 60, xAxis = 0, yAxis = 0), # Zwischen den Bars
text = "Differenz: 12%",
style = list(fontSize = "11px") # Optional: Anpassen der Schriftgröße
)
)
))
结果:
预期结果: expected result