Ich versuche, zwei Diagramme, ein Histogramm und ein Streudiagramm zu zeigen, und ich wollte, dass sie in Bezug auf X-Achse ausgerichtet sind. Ich habe mein Histogramm mit hist() und mein Streudiagramm mit ggplot2 erstellt. Jedoch habe ich Probleme gefunden, ein Multiplot zu erstellen, das diese beiden vermischt, also entschied ich mich, das Histogramm mit ggplot2 zu erstellen. Bitte, unter den Codes:Align Histogramm und Streudiagramm in R
loadedimage <- readTIFF("my_data05.tiff")
rasterizedimage <- rasterGrob(loadedimage, interpolate = TRUE)
realmadrid_colors <-c("#00529f", "#8cc1f3", "blue")
data_test <- subset(full_data, Rival == "Barcelona")
data_kroos <- subset(data_test, Jugador == "Kroos")
myscatter <- ggplot(data_kroos, aes(x = x1, y = y1)) +
annotation_custom(rasterizedimage, xmin = 0, xmax = 713, ymin = 0 , ymax = 497) +
geom_point(aes(fill = factor(data_kroos$Resultado)),
shape = 21,
size = 5) +
scale_fill_manual(values=realmadrid_colors) +
guides(fill=guide_legend(title=NULL)) +
coord_fixed() +
theme_bw() +
theme_no_axes(base.theme = theme_bw()) +
theme(legend.position = c(0.5, 0.04),
legend.box = "horizontal",
legend.direction = "horizontal",
legend.box.background = element_rect(fill = NA, colour = "transparent"),
legend.text = element_text(family = "Courier", size = 14),
axis.title = element_blank(),
axis.text = element_blank(),
axis.ticks = element_blank(),
plot.margin=unit(c(-0.05,-0.05,-0.05,-0.1),"in")
)
myhistogram <- qplot(data_barca[data_barca$Sección == "Passes_All",]$x1, breaks=seq(0, 660, by = 66), alpha = 0.5, geom = "histogram")
Wenn ich grid.newpage Versuchen Sie es mit() und grid.draw(), erhalte ich eine Fehlermeldung: ncol (x) == ncol (y) nicht TRUE
grid.newpage()
grid.draw(rbind(ggplotGrob(myscatter), ggplotGrob(myhistogram), size = "first"))
ich mag wie in etwas bekommen http://biokit.readthedocs.io/en/latest/auto_examples/plot_scatter.html (ja ich bin immer noch in der ersten Stufe ist mein Ziel genau wie in dem ehemaligen Link), oder so ähnlich combine histogram with scatter plot in R, aber in diesem Fall ist es nicht verwendet ggplot2, und ich bin mir nicht sicher, ob ich so herumspielen kann wie mit diesem Paket.
Jede Hilfe ist willkommen! Wenn Sie mich brauchen, um eine Datei hochzuladen, lassen Sie es mich bitte wissen.
Vielen Dank im Voraus!
Sie finden die Lösung in finden [Stackoverflow: ggplot2 - mehrere Plots Skalierung] (https://stackoverflow.com/questions/42220917/ggplot2-multiple-plots-scaling) –
Vielen Dank! Die Antwort war schließlich ggExtra :: ggMarginal. Es war genau das, wonach ich suchte! – futbolscientist