Mehrfarbiger Titel mit R
Ich möchte @ Farben hinzufügbestimmte Wort in den Titeln meiner Grafiken. Ich konnteinden Sie hier einen Präzedenzfa. Insbesondere möchte ich, dass der in Apostrophe eingeschlossene Text (in der Ausgabe unten) der Farbe der jeweiligen Balkendiagramme entspricht.
So weit bin ich mit Titeln in R gekommen, bevor ich ein PDF in Adobe Illustrator oder ein anderes Programm exportieren musste.
name <- c("Peter", "Gabriel", "Rachel", "Bradley")
age <- c(34, 13, 28, 0.9)
fake_graph <- family[order(family$age, decreasing = F), ]
fake_graph <- within(fake_graph, {
bar_color = ifelse(fake_graph$name == "Rachel", "blue", "gray")
})
# Plot creation
library(ggplot2)
fake_bar_charts <- ggplot() +
geom_bar(
data = fake_graph,
position = "identity",
stat = "identity",
width = 0.75,
fill = fake_graph$bar_color,
aes(x = name, y = age)
) +
scale_x_discrete(limits = fake_graph$name) +
scale_y_continuous(expand = c(0, 0)) +
coord_flip() +
theme_minimal()
family <- data.frame(name, age)
# Add title
library(grid)
library(gridExtra)
grid_title <- textGrob(
label = "I spend more time with 'Rachel' than\nwith 'other family members.'",
x = unit(0.2, "lines"),
y = unit(0.1, "lines"),
hjust = 0, vjust = 0,
gp = gpar(fontsize = 14, fontface = "bold")
)
gg <- arrangeGrob(fake_bar_charts, top = grid_title)
grid.arrange(gg)
Ausgabe
Dieses Beispiel verwendetggplot2
zum Erstellen von Balkendiagrammen sowiegrid
undgridExtra
für die Titel-Funktionalität, aber ich wäre bereit, mit jeder Lösung zu arbeiten (vorzugsweise mitggplot2
, um das Diagramm selbst zu erstellen), das mir den Text in Anführungszeichen zur Verfügung stellen kann, damit er mit den entsprechenden Balkendiagrammfarben übereinstimmt.
Alle anderen Lösungen auf dieser Website konnten dieses Rätsel nicht lösen, aber ich würde gerne eine Lösung für dieses Problem in R finden.
Vielen Dank für jede Hilfe!