1

当尝试将geom_xsplinefromggalt与ggarrangefrom结合使用时ggpubr，输出为空白，并且在使用 清除之前无法制作其他绘图dev.off()。

在我的用例中，我希望geom_xspline替换geom_line我的 ggplot 对象中的一些存在。有人知道使用从其他 R 包添加的 geoms 的问题吗？

这是一些要比较的代码，实际上没有什么有趣的，只是为了给出一个可重现的示例：

初始工作代码 w/ogeom_xspline

library(ggplot2)
library(ggpubr)
myplot = ggplot(data = mtcars, aes(x = wt, y = mpg)) +
geom_line()
ggarrange(myplot, myplot) # Works and outputs fine

ggalt打包失败的代码

library(ggalt)
library(ggplot2)
library(ggpubr)
myplot = ggplot(data = mtcars, aes(x = wt, y = mpg)) +
geom_xspline()
ggarrange(myplot, myplot) # Output becomes blank and freezes the plot panel

替代方法ggarrange我没有尝试使用此链接中的函数 ，grid_arrange_shared_legend该函数使用gridand gridExtra。但是，我仍然很好奇为什么ggarrange不起作用。

这是我的会话信息：

R version 3.5.1 (2018-07-02)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows >= 8 x64 (build 9200)

Matrix products: default

locale:
[1] LC_COLLATE=English_United States.1252  LC_CTYPE=English_United States.1252    LC_MONETARY=English_United States.1252
[4] LC_NUMERIC=C                           LC_TIME=English_United States.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] ggpubr_0.1.8  magrittr_1.5  ggplot2_3.0.0

loaded via a namespace (and not attached):
 [1] Rcpp_0.12.18       pillar_1.3.0       compiler_3.5.1     RColorBrewer_1.1-2 plyr_1.8.4         bindr_0.1.1       
 [7] tools_3.5.1        extrafont_0.17     tibble_1.4.2       gtable_0.2.0       pkgconfig_2.0.1    rlang_0.2.1       
[13] rstudioapi_0.7     yaml_2.2.0         bindrcpp_0.2.2     Rttf2pt1_1.3.7     withr_2.1.2        dplyr_0.7.6       
[19] maps_3.3.0         grid_3.5.1         ggalt_0.4.0        tidyselect_0.2.4   cowplot_0.9.3      glue_1.3.0        
[25] R6_2.2.2           purrr_0.2.5        extrafontdb_1.0    scales_1.0.0       MASS_7.3-50        assertthat_0.2.0  
[31] proj4_1.0-8        colorspace_1.3-2   labeling_0.3       KernSmooth_2.23-15 ash_1.0-15         lazyeval_0.2.1    
[37] munsell_0.5.0      crayon_1.3.4

快速添加，如果我将对象转换为 a ggplotGrob()，它将与 一起使用ggarrange，但当我尝试使用时它会失败common.legend = T。

4

2 回答 2

2

好吧，我不确定为什么ggpubr::ggarrange在使用时会导致绘图面板失败，ggalt::geom_xspline但我可以告诉你，绘图仍在创建中，但现在才显示在绘图面板上。

因此，似乎将它们一起使用会导致图形设备出现故障，并且它只发生在 ggalt 中，ggalt::geom_xspline而不是全部发生geoms在中。这是一个，所以你在正确的轨道上发布到GitHub。

您可以通过运行以下代码来检查：

library(ggalt)
library(ggplot2)
library(ggpubr)


myplot = ggplot(data = mtcars, aes(x = wt, y = mpg)) +
  geom_xspline()
myplot


g <- ggarrange(myplot, myplot) # Output becomes blank and freezes the plot panel
g

jpeg('rplot.jpg')
g
dev.off()
#> pdf 
#>   3

由reprex 包（v0.3.0）于 2019 年 5 月 30 日创建

这是保存的情节：

在此处输入图像描述

于 2019-05-30T22:50:59.487 回答
0

所基于的xspline函数geom_xspline通常使用graphics. 这导致ggalt包作者找到了一些解决方法，以确保它可以很好地与ggplot. 我的粗略解决方案都涉及在geom不使用. 这使得它更易于使用，而无需在使用.statggplotxsplineggplot

(1) 新stat使用splines

用于点的插值spline而不是xspline.

# Create a new stat (adjusted from ggalt GitHub page)
stat_spline <- function(mapping = NULL, data = NULL, geom = "line",
                         position = "identity", na.rm = TRUE, show.legend = NA, inherit.aes = TRUE,
                         n=200, method = "fmm", ...) { # Just picking a rough default for n
  layer(
    stat = StatSpline,
    data = data,
    mapping = mapping,
    geom = geom,
    position = position,
    show.legend = show.legend,
    inherit.aes = inherit.aes,
    params = list(n=n,
                  method=method,
                  na.rm = na.rm,
                  ...
    )
  )
}

StatSpline <- ggproto("StatSpline", Stat,

                       required_aes = c("x", "y"),

                       compute_group = function(self, data, scales, params,
                                                n=200, method = "fmm") {

                         tmp <- spline(data$x, data$y, n = n, method = method, ties = mean)

                         data.frame(x=tmp$x, y=tmp$y)
                       }

)

# Plot with ggarrange
myplot = ggplot(data = mtcars, aes(x = wt, y = mpg)) +
stat_spline(mapping = aes(x = wt, y = mpg)) +
geom_point()

ggpubr::ggarrange(myplot, myplot)

如果您想要类似于 Catmull-Rom 而不是 Cubic 的样条线，这种方法并不理想；您可以看到控制点之间的一些大弯。

在此处输入图像描述

(2) 新geom使用xsplineGrob

这是一个稍微调整的版本geom_xspline2fromggalt

# Create new geom based upon code from ggalt GitHub page
GeomXSpline3 <- ggproto("GeomXSpline3", Geom,
                        required_aes = c("x", "y"),
                        default_aes = aes(colour = "black", shape=-1, open=T),
                        draw_key = draw_key_point,

                        draw_panel = function(data, panel_params, coord) {
                          coords <- coord$transform(data, panel_params)
                          grid::xsplineGrob(
                            coords$x, coords$y,
                            shape = coords$shape, 
                            open = coords$open[1],
                            gp = grid::gpar(col = coords$colour)
                          )
                        }
)

geom_xspline3 <- function(mapping = NULL, data = NULL, stat = "identity",
                          position = "identity", na.rm = FALSE, show.legend = NA,
                          inherit.aes = TRUE, ...) {
  layer(
    geom = GeomXSpline3, mapping = mapping,  data = data, stat = stat,
    position = position, show.legend = show.legend, inherit.aes = inherit.aes,
    params = list(na.rm = na.rm, ...)
  )
}

# Plot with ggarrange
myplot = ggplot(data = mtcars, aes(x = wt, y = mpg)) +
  geom_xspline3(shape = -.25) + geom_point()
ggpubr::ggarrange(myplot, myplot)

确保 shape 参数仍然接受 -1 和 1 之间的输入存在一些问题，但是，现在使用ggarrange.

在此处输入图像描述

我在编写此解决方案时使用了以下资源：

于 2019-06-12T16:24:45.810 回答