标签: grob

我有一个函数来操作ggplot对象,通过将其转换为grob然后修改图层.我希望函数返回一个ggplot对象而不是grob.有没有一种简单的方法将grob转换回gg？

该文档上ggplotGrob是非常稀疏.
简单的例子:

P <- ggplot(iris) + geom_bar(aes(x=Species, y=Petal.Width), stat="identity")

G <- ggplotGrob(P)
... some manipulation to G ...

## DESIRED: 
P2 <- inverse_of_ggplotGrob(G)

such that, we can continue to use basic ggplot syntax, ie
`P2 + ylab ("The Width of the Petal")`

更新:

要回答评论中的问题,这里的动机是根据每个方面中标签名称的值,以编程方式修改构面标签的颜色.以下功能很好地工作(基于前一个问题中的baptise输入).

我希望返回值colorByGroup是一个ggplot对象,而不仅仅是一个grob.

这是代码,对于那些感兴趣的人

get_grob_strips <- function(G, strips=grep(pattern="strip.*", G$layout$name)) {

  if (inherits(G, "gg"))
    G <- ggplotGrob(G)
  if (!inherits(G, "gtable"))
    stop ("G must be a gtable object or a gg object")

  strip.type <- …

我试图用ggplot2重现以下[base R]图

我已经完成了大部分工作,但目前让我感到困惑的是将线段放置在图表右侧与相应标签相连的边缘地毯图上.标签已被绘制(在下面的第二个图中)anotation_custom()并且我已经使用@ baptiste的关闭剪裁的技巧以允许绘制绘图边距.

尽管进行了许多尝试,但我无法将其放置segmentGrobs()在设备中的所需位置,以便它们加入正确的地毯标签和标签.

一个可重复的例子是

y <- data.frame(matrix(runif(30*10), ncol = 10))
names(y) <- paste0("spp", 1:10)
treat <- gl(3, 10)
time <- factor(rep(1:10, 3))

require(vegan); require(grid); require(reshape2); require(ggplot2)
mod <- prc(y, treat, time)

如果您没有安装素食主义者,我会dput在问题的最后添加一个强化对象,并且fortify()您希望运行该示例并fortify()使用方便的绘图ggplot().我还包括一个有点冗长的函数,myPlt()它说明了我到目前为止所做的工作,如果你已经加载了包并且可以创建,它可以用在示例数据集上mod.

我已经尝试了很多选项但是我现在似乎正在黑暗中挣扎以正确放置线段.

我不是在寻找绘制示例数据集的标签/段的具体问题的解决方案,而是我可以用来以编程方式放置段和标签的通用解决方案,因为这将构成autoplot()对象的方法的基础class(mod).我有标签制定好了,不是线段.那么问题:

1. 如何是xmin,xmax,ymin,ymax使用时,我希望把包含从数据坐标运行线路段GROB参数x0,y0来x1,y1？
2. 也许问了不同的方式,你怎么用annotation_custom()绘制段 …

在具有多个构面变量的图中,ggplot2重复"外部"变量的构面标签,而不是在"内部"变量的所有级别上具有单个跨越构面条带.我有一直在使用,以覆盖与使用单个跨越小面条重复外端面标签一些代码gtable_add_grob从gtable包.

不幸的是,由于facet strip的grob结构发生了变化,此代码不再适用于ggplot2 2.2.0.具体来说,在ggplot2的早期版本中,facet标签的每一行都有自己的一组grob.但是,在版本2.2.0中,看起来每个facet标签的垂直堆栈都是单个grob.这打破了我的代码,我不知道如何解决它.

这是一个具体的例子,取自几个月前我回答的SO问题:

# Data
df = structure(list(location = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
    2L, 2L), .Label = c("SF", "SS"), class = "factor"), species = structure(c(1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, …

令我有些惊讶的是，这从未引起我的注意（我想直到今天我才用圆线末端画了很多东西）。

当绘制带有圆线末端的线段时，这“当然”是作为附加的 grob 元素添加的，但它通过超出给定值来向图形表示添加“值”。我怎样才能改变这个？

我认为需要重新计算原始值，以便在添加圆端时达到正确的值，但这需要在绘制时（即在 grob 函数内）进行此计算。我对杂种很不擅长。如有帮助，将不胜感激。

library(ggplot2)
df <- data.frame(x = 0, xend = 1, y = 0, yend = 0)
ggplot(df, aes(x, y)) +
  geom_vline(xintercept = c(0, 1), lty = 2) +
  geom_segment(aes(xend = xend, yend = yend), 
               linewidth = 6, alpha = .5, 
               lineend = "round")  +
  labs(title =  "NOT an accurate representation of the data",
       caption = "The line extends beyond the given values")

^{创建于 2023 年 11 月 16 日，使用reprex v2.0.2}

b <- ggplot(cars,aes(x=speed,y=dist))+geom_line()
grid.arrange(
    b,
    plot(cars),
    ncol=1
)

给我以下错误

gList中的错误(列表(grobs = list(list(x = 0.5,y = 0.5,width = 1,height = 1,:"gList"中只允许'grobs')

让我们假设我的第二个图必须从plot函数中出来.如何将该输出转换为类似grob对象,以便它可以很好地运行grid.arrange？

如何在ggplot中获取 geom_point的x , y坐标，其中参考系是整个绘制的图像？

library(ggplot2)

my.plot <- ggplot(data.frame(x = c(0, 0.456, 1), y = c(0, 0.123, 1))) +
             geom_point(aes(x, y), color = "red")

my.grob <- ggplotGrob(my.plot)
my.grob$grobs[[6]]$children[[3]]$x
# [1] 0.0454545454545455native 0.46native 0.954545454545454native 
my.grob$grobs[[6]]$children[[3]]$y
# [1] 0.0454545454545455native 0.157272727272727native 0.954545454545454native