相关疑难解决方法(0)

我想给每个方面一个 alpha 代码，从 A 到 H，因为有八个方面，并在每个方面的左上角绘制每个代码：

ggthemr('dust', layout = 'scientific',
        spacing = 1, type = 'inner', line_weight = 0.6,
        )

ptitles <- c('A' = "Total mass (g)", 'B' = "Root mass (g)", 'C' = "Stem mass (g)",
    'D' = "Leaf mass (g)", 'E' = "Number of nodes",
    'F' = "Number of leaves", 'G' = "Total stem length (cm)", 'H' = "RDI")

ggplot(gtr, aes(sediment, value)) +
    geom_boxplot(aes(fill = nitrogen)) +
    geom_text(aes(label = trait, group = trait)) +
    facet_wrap(~trait, scales = "free_y", …

我有兴趣尝试为ggplot中准备的多面板人物创建简单的角标签.这类似于之前提出的问题,但答案仅解释了如何在图表的顶部添加标签,而不是以许多期刊所要求的格式生成角标签.我希望能复制类似的东西plotrix的功能corner.label()在ggplot2.

以下是使用plottrix我想要重新创建的内容的示例ggplot2.

require(plotrix)

foo1<-rnorm(50,25,5)
foo2<-rpois(50,25)
foo3<-rbinom(50,25,0.5)
foo4<-rnbinom(50,25,0.5)

par(mfrow=c(2,2))
hist(foo1)
corner.label(label='a',figcorner=T)
hist(foo2)
corner.label(label='b',figcorner=T)
hist(foo3)
corner.label(label='c',figcorner=T)
hist(foo4)
corner.label(label='d',figcorner=T)

这产生以下结果:

在此先感谢您的帮助!

我正在使用facet_grid()来绘制每组数据划分的多个图。对于每个图，我想在角落添加 Y 轴的最高值。我尝试了几种黑客方法，但它从未给我带来预期的结果。这个答案对我有部分帮助，但我想要添加的价值会不断变化，因此我不知道如何应用它。

这是一个最小的例子，我想在下图中添加红色数字：

library(ggplot2)

data <- data.frame('group'=rep(c('A','B'),each=4),'hour'=rep(c(1,2,3,4),2),'value'=c(5,4,2,3,6,7,4,5))

ggplot(data,aes(x = hour, y = value)) +
  geom_line() +
  geom_point() +
  theme(aspect.ratio=1) +
  scale_x_continuous(name ="hours", limits=c(1,4)) +
  scale_y_continuous(limits=c(1,10),breaks = seq(1, 10, by = 2))+
  facet_grid( ~ group)

感谢您的帮助！