Es ist möglich, erstellen inset-Graphen?

Ich weiß, dass, wenn Sie par( fig=c( ... ), new=T ) können Sie erstellen, inset-Graphen. Aber ich Frage mich, ob es möglich ist, mit ggplot2-Bibliothek erstellen 'inset' Graphen.

UPDATE 1: ich habe versucht mit der par() mit ggplot2, aber es funktioniert nicht.

UPDATE 2: ich habe eine funktionierende Lösung an ggplot2 GoogleGroups mit grid::viewport().

  • Diese Beitrag auf das Lernen von R blog geht, wie die Handlung innerhalb einer Handlung. Der blog hat viele andere tolle Beiträge auf ggplot2.
InformationsquelleAutor Sam | 2011-03-07
  1. 25

    Abschnitt 8.4 der das Buch erklärt, wie dies zu tun. Der trick ist die Verwendung der grid Paket ist viewports.

    #Any old plot
a_plot <- ggplot(cars, aes(speed, dist)) + geom_line()

#A viewport taking up a fraction of the plot area
vp <- viewport(width = 0.4, height = 0.4, x = 0.8, y = 0.2)

#Just draw the plot twice
png("test.png")
print(a_plot)
print(a_plot, vp = vp)
dev.off()
    • Darauf hinzuweisen, dass, will man ein weiteres Grundstück als Einschub, die entscheidende Zeile print(another_plot, vp = vp). Es dauerte eine Weile, um herauszufinden. +1
    InformationsquelleAutor Richie Cotton
  2. 13

    Bevorzuge ich Lösungen, die die Arbeit mit ggsave. Nach viel googeln um ich landete mit diesem (das ist eine Allgemeine Formel für die Positionierung und Dimensionierung der Handlung, die Sie einfügen.

    library(tidyverse)

plot1 = qplot(1.00*mpg, 1.00*wt, data=mtcars)  # Make sure x and y values are floating values in plot 1
plot2 = qplot(hp, cyl, data=mtcars)
plot(plot1)

# Specify position of plot2 (in percentages of plot1)
# This is in the top left and 25% width and 25% height
xleft   = 0.05
xright  = 0.30
ybottom = 0.70
ytop    = 0.95 

# Calculate position in plot1 coordinates
# Extract x and y values from plot1
l1 = ggplot_build(plot1)
x1 = l1$layout$panel_ranges[[1]]$x.range[1]
x2 = l1$layout$panel_ranges[[1]]$x.range[2]
y1 = l1$layout$panel_ranges[[1]]$y.range[1]
y2 = l1$layout$panel_ranges[[1]]$y.range[2]
xdif = x2-x1
ydif = y2-y1
xmin  = x1 + (xleft*xdif)
xmax  = x1 + (xright*xdif)
ymin  = y1 + (ybottom*ydif)
ymax  = y1 + (ytop*ydif) 

# Get plot2 and make grob
g2 = ggplotGrob(plot2)
plot3 = plot1 + annotation_custom(grob = g2, xmin=xmin, xmax=xmax, ymin=ymin, ymax=ymax)
plot(plot3)

ggsave(filename = "test.png", plot = plot3)

# Try and make a weird combination of plots
g1 <- ggplotGrob(plot1)
g2 <- ggplotGrob(plot2)
g3 <- ggplotGrob(plot3)

library(gridExtra)
library(grid)

t1 = arrangeGrob(g1,ncol=1, left = textGrob("A", y = 1, vjust=1, gp=gpar(fontsize=20)))
t2 = arrangeGrob(g2,ncol=1, left = textGrob("B", y = 1, vjust=1, gp=gpar(fontsize=20)))
t3 = arrangeGrob(g3,ncol=1, left = textGrob("C", y = 1, vjust=1, gp=gpar(fontsize=20)))

final = arrangeGrob(t1,t2,t3, layout_matrix = cbind(c(1,2), c(3,3)))
grid.arrange(final)

ggsave(filename = "test2.png", plot = final)

    Es ist möglich, erstellen inset-Graphen?

    • Ich glaube, Sie haben aktualisiert, die ggplot package und nun, um das zu extrahieren, die position von plot1 Koordinaten das format sollte wie folgt sein: l1$layout$panel_ranges[[1]]$x.range[1]. Hinweis: die l1$layout$panel_ranges....
    • Du hast Recht. Ich habe aktualisiert die Antwort entsprechend.
    InformationsquelleAutor pallevillesen
  3. 9

    Viel einfachere Lösung ist die Verwendung ggplot2 und egg. Am wichtigsten ist diese Lösung funktioniert mit ggsave.

    library(tidyverse)
library(egg)
plotx <- ggplot(mpg, aes(displ, hwy)) + geom_point()
plotx + 
  annotation_custom(
    ggplotGrob(plotx), 
    xmin = 5, xmax = 7, ymin = 30, ymax = 44
  )
ggsave(filename = "inset-plot.png")
    • Hey @stackinator. +1 für prägnantes Beispiel und Nennung der egg Paket. Beachten Sie, dass nur mit library(ggplot2) ist mehr als genug (man braucht nicht extra tidyverse noch egg)
    InformationsquelleAutor stackinator
  4. 6

    Alternativ können die cowplot R-Paket von Claus O. Wilke (cowplot ist eine mächtige Erweiterung der ggplot2). Der Autor hat ein Beispiel, über das Plotten eines Abzugs innerhalb eines größeren Graphen in dieses intro vignette. Hier finden Sie einige angepasste code:

    library(cowplot)

main.plot <- 
  ggplot(data = mpg, aes(x = cty, y = hwy, colour = factor(cyl))) + 
  geom_point(size = 2.5)

inset.plot <- main.plot + theme(legend.position = "none")

plot.with.inset <-
  ggdraw() +
  draw_plot(main.plot) +
  draw_plot(inset.plot, x = 0.07, y = .7, width = .3, height = .3)

# Can save the plot with ggsave()
ggsave(filename = "plot.with.inset.png", 
       plot = plot.with.inset,
       width = 17, 
       height = 12,
       units = "cm",
       dpi = 300)

    Es ist möglich, erstellen inset-Graphen?

    • Ich denke, du kannst auch main.plot zu ggdraw() zum speichern einer Zeile code.
    InformationsquelleAutor Valentin
  5. 1

    'ggplot2' >= 3.0.0 ermöglicht neue Ansätze für das hinzufügen von Einlagen, wie jetzt tibble Objekte mit Listen als Mitglied Spalten übergeben werden können, als Daten. Die Objekte in der Liste Spalte können sogar ganze ggplots... Die neueste version der mein Paket 'ggpmisc' bietet geom_plot(), geom_table() und geom_grob(), und auch Versionen verwenden npc Einheiten statt native Daten Einheiten für die Lokalisierung der Einsätze. Diese geoms können mehrere Einsätze pro call und gehorchen Facettierung, die annotation_custom() nicht. Ich kopiere das Beispiel aus der Hilfe-Seite Hinzugefügt, sodass ein Rand mit einer zoom-in detail der Haupt-plot als ein Einschub.

    library(tibble)
library(ggpmisc)
p <-
  ggplot(data = mtcars, mapping = aes(wt, mpg)) +
  geom_point()

df <- tibble(x = 0.01, y = 0.01,
             plot = list(p +
                         coord_cartesian(xlim = c(3, 4),
                                         ylim = c(13, 16)) +
                         labs(x = NULL, y = NULL) +
                         theme_bw(10)))
p +
  expand_limits(x = 0, y = 0) +
  geom_plot_npc(data = df, aes(npcx = x, npcy = y, label = plot))

    Es ist möglich, erstellen inset-Graphen?

    Oder ein barplot als Einschub aus dem Paket vignette.

    library(tibble)
library(ggpmisc)
p <- ggplot(mpg, aes(factor(cyl), hwy, fill = factor(cyl))) +
  stat_summary(geom = "col", fun.y = mean, width = 2/3) +
  labs(x = "Number of cylinders", y = NULL, title = "Means") +
  scale_fill_discrete(guide = FALSE)

data.tb <- tibble(x = 7, y = 44, 
                  plot = list(p +
                                theme_bw(8)))

ggplot(mpg, aes(displ, hwy, colour = factor(cyl))) +
  geom_plot(data = data.tb, aes(x, y, label = plot)) +
  geom_point() +
  labs(x = "Engine displacement (l)", y = "Fuel use efficiency (MPG)",
       colour = "Engine cylinders\n(number)") +
  theme_bw()

    Es ist möglich, erstellen inset-Graphen?

    InformationsquelleAutor Pedro Aphalo
Schreibe einen Kommentar