Vielen Dank!
Leider bin ich mit meinem Problem noch nicht wirklich weiter gekommen. Das Beispiel von EDi funktioniert schon einmal für meine Beispieldaten, nicht aber für meine tatsächlichen Daten:
Code: Alles auswählen
library(tidyverse)
library(ggpubr)
#Vorbereitungen
Rohdaten <- read.csv2("Zeilenumbruch_Beispiel.csv")
Statistik <- read.csv2("Statistik.csv")
Statistik$Blattetage <- as.factor(Statistik$Blattetage)
Thema_Beispiel <- theme(panel.background = element_rect(fill = "white"),
axis.line = element_line())
Rohdaten <- Rohdaten %>%
mutate(Art = gsub(" var", "\\\nvar", Art))
Farben_Arten <- c("Lupinus angustifolius\nvar. Azuro"="blue", "Triticum aestivum\nvar. Bosporus"="darkgreen")
Statistik <- Statistik %>%
mutate(Art = gsub(" var", "\\\nvar", Art))
Farben_Arten <- c("Lupinus angustifolius\nvar. Azuro"="blue", "Triticum aestivum\nvar. Bosporus"="darkgreen")
#Grafik
Grafik <- ggplot(Rohdaten,
aes(x=Wuchshöhe, y=Stängeldurchmesser, col=Art))+
geom_line()+
geom_point(size=3)+
xlab("Wuchshöhe [cm]")+
ylab("Stängeldurchmesser [mm]")+
geom_vline(xintercept = 35,linetype = 2)+
geom_vline(xintercept = 65,linetype = 2)+
scale_y_continuous(position = "right",limits = c(0,50), breaks = c(0, 10, 20, 30, 40, 50),labels = c("0","10","20","30","40","50"))+
scale_x_continuous(breaks = c(10, 20, 30, 40, 50, 60, 70, 80, 90), labels = c("10","20","30","40","50","60","70","80","90"))+
scale_color_manual(values = Farben_Arten)+
theme(axis.text.x = element_text(size = 15, face="bold"))+
theme(axis.text.y = element_text(size = 15, face="bold"))+
theme(axis.title.x = element_text(size =17))+
theme(axis.title.y = element_text(size = 17))+
theme(legend.title = element_text(size = 14, face="bold"))+
theme(legend.text = element_text(size = 14))+
Thema_Beispiel+
coord_flip()
#Tabelle
Tabelle <- ggplot(Statistik, aes(x=Blattetage, y=Art, label=groups))+
geom_text()+
scale_y_discrete(position = "right")+
scale_color_manual(values = Farben_Arten)+
theme(axis.text.x = element_text(size = 15, face = "bold"))+
theme(axis.text.y = element_text(size = 15, face = "bold"))+
theme(axis.title.x = element_text(size =17))+
theme(axis.title.y = element_text(size = 17))+
theme(legend.title = element_text(size = 14, face="bold"))+
theme(legend.text = element_text(size = 14))+
Thema_Beispiel+
coord_flip()
#Gesamtdarstellung
ggarrange(Grafik, Tabelle)
Für meinen
deutlich umfangreicheren Datensatz ist das allerdings keine wirklich Option. Das liegt u.a. an der Tatsache, dass ich die Werte für die y-Achse nicht manuell benenne, sondern in der Grafik "Tabelle" eben folgende Textzeile nutze und auf der y-Achse die "Art" plotte:
Code: Alles auswählen
Tabelle <- ggplot(Statistik, aes(x=Blattetage, y=Art, label=groups))+
geom_text()+
Genau da sollte der Zeilenumbruch nun auch rein. Da ich das manuell aber nicht für mittlerweile fast 40 Grafiken machen kann/möchte, suche ich noch eine alternative Lösung.
Danke für den Link dvf! Hier wird aber nur über plot title bzw. Achsentitel gesprochen. Für tatsächliche "Werte" (als character formatiert), die aus einem data frame rausgelesen werden aber noch nicht.