Аннотации с фигурами вне участка участка в указанном цвете

Question

Мне нужно аннотировать мои сюжеты определенным образом. После ответа here, я мог придумать с этим,

df = data.frame(y= rep(c(1:20, 1:10), 5), x=c(rep("A", 20), rep("B", 10), rep("C", 20), rep("D", 10), rep("E", 20), 
              rep("F", 10), rep("G", 20), rep("H", 10), rep("I", 20), rep("J", 10)), 
      g= c(rep(sample(1:2, 1), 20), rep(sample(1:2, 1), 10),rep(sample(1:2, 1), 20), rep(sample(1:2, 1), 10), 
       rep(sample(1:2, 1), 20), rep(sample(1:2, 1), 10),rep(sample(1:2, 1), 20), rep(sample(1:2, 1), 10), 
       rep(sample(1:2, 1), 20), rep(sample(1:2, 1), 10))) 

p <- ggplot(df, aes(factor(x), y)) + geom_boxplot()+   # Base plot 
    theme(plot.margin = unit(c(3,1,1,1), "lines"), plot.background= element_rect(color= "transparent")) # Make room for the grob 
for (i in 1:length(df$g)) { 
    p <- p + annotation_custom(
    grob = textGrob(label = df$g[i], hjust = 0, gp = gpar(cex = 1.5)), 
    xmin = df$x[i],  # Vertical position of the textGrob 
    xmax = df$x[i], 
    ymin = 22,   # Note: The grobs are positioned outside the plot area 
    ymax = 22) 
}  

gt <- ggplot_gtable(ggplot_build(p)) 
gt$layout$clip[gt$layout$name == "panel"] <- "off" 
grid.draw(gt) 

Это создает этот участок .

Я хочу, чтобы синие треугольники размером 0,6 pt вместо 2 в аннотации и синие знаки «+» вместо 1. Можете ли вы, пожалуйста, помочь мне здесь?

Answer 1

Вам нужно будет использовать pointsGrob вместо функции textGrob. Строка, в которой вам нужно будет добавлять точки вместо текстовых меток, будет следовать.

pointsGrob(pch = ifelse(df$g[i]==1,3,17), gp = gpar(cex = 0.6,col=ifelse(df$g[i]==1,"red","blue"))) 

Здесь я использую 3 для + точки и 17 для $ \ треугольника $ формы. Весь код показан ниже

df = data.frame(y= rep(c(1:20, 1:10), 5), x=c(rep("A", 20), rep("B", 10), rep("C", 20), rep("D", 10), rep("E", 20), 
               rep("F", 10), rep("G", 20), rep("H", 10), rep("I", 20), rep("J", 10)), 
       g= c(rep(sample(1:2, 1), 20), rep(sample(1:2, 1), 10),rep(sample(1:2, 1), 20), rep(sample(1:2, 1), 10), 
        rep(sample(1:2, 1), 20), rep(sample(1:2, 1), 10),rep(sample(1:2, 1), 20), rep(sample(1:2, 1), 10), 
        rep(sample(1:2, 1), 20), rep(sample(1:2, 1), 10))) 

p <- ggplot(df, aes(factor(x), y)) + geom_boxplot()+   # Base plot 
    theme(plot.margin = unit(c(3,1,1,1), "lines"), plot.background= element_rect(color= "transparent")) # Make room for the grob 
for (i in 1:length(df$g)) { 
    p <- p + annotation_custom(
    grob = pointsGrob(pch = ifelse(df$g[i]==1,3,17), gp = gpar(cex = 0.6,col=ifelse(df$g[i]==1,"red","blue"))), 
    xmin = df$x[i],  # Vertical position of the textGrob 
    xmax = df$x[i], 
    ymin = 22,   # Note: The grobs are positioned outside the plot area 
    ymax = 22) 
}  

gt <- ggplot_gtable(ggplot_build(p)) 
gt$layout$clip[gt$layout$name == "panel"] <- "off" 
grid.draw(gt) 

И сюжет генерироваться показан ниже

Я надеюсь, что это помогает.

Answer 2

Отключение отсечения должно быть в последнюю очередь, поскольку оно может иметь нежелательные побочные эффекты для других слоев. Здесь может быть проще добавить строку в gtable и поместить grob в нужное положение.

p <- ggplot(df, aes(factor(x), y)) + 
     geom_boxplot() + ggtitle("this plot has a title") 


library(grid) 
library(gtable) 

gb <- ggplot_build(p) 

# get the axis positions 
xpos <- gb$panel$ranges[[1]][["x.major"]] 

g <- ggplot_gtable(gb) 
g <- gtable_add_rows(g, unit(1,"line"), 2) 
gl <- pointsGrob(xpos, rep(0.5, length(xpos)), pch=seq_along(xpos), 
       default.units = "npc") 
g <- gtable_add_grob(g, gl, t=3, l=4) 
grid.draw(g) 

Если более сложный Гроб был нужен, или просто, чтобы обеспечить последовательное отображение между аннотациями и сюжетом, один мог place a ggplot plot panel таким же образом.