Chú thích văn bản trên từng khía cạnh riêng lẻ trong ggplot2

Tôi muốn chú thích một số văn bản trên khía cạnh cuối cùng của cốt truyện với đoạn mã sau:

library(ggplot2)
p <- ggplot(mtcars, aes(mpg, wt)) + geom_point()
p <- p + facet_grid(. ~ cyl)
p <- p + annotate("text", label = "Test", size = 4, x = 15, y = 5)
print(p)

Nhưng mã này chú thích văn bản trên mọi khía cạnh. Tôi sẽ đánh giá rất cao nếu bạn hướng dẫn tôi cách lấy văn bản chú thích chỉ trên một khía cạnh.

Thông thường, bạn sẽ làm một cái gì đó như thế này:

ann_text <- data.frame(mpg = 15,wt = 5,lab = "Text",
                       cyl = factor(8,levels = c("4","6","8")))
p + geom_text(data = ann_text,label = "Text")

Nó sẽ hoạt động mà không chỉ định hoàn toàn biến nhân tố, nhưng có thể sẽ đưa ra một số cảnh báo:

Đây là cốt truyện không có chú thích văn bản:

library(ggplot2)

p <- ggplot(mtcars, aes(mpg, wt)) +
  geom_point() +
  facet_grid(. ~ cyl) +
  theme(panel.spacing = unit(1, "lines"))
p

Hãy tạo một khung dữ liệu bổ sung để giữ các chú thích văn bản:

dat_text <- data.frame(
  label = c("4 cylinders", "6 cylinders", "8 cylinders"),
  cyl   = c(4, 6, 8)
)
p + geom_text(
  data    = dat_text,
  mapping = aes(x = -Inf, y = -Inf, label = label),
  hjust   = -0.1,
  vjust   = -1
)

Ngoài ra, chúng tôi có thể chỉ định thủ công vị trí của từng nhãn:

dat_text <- data.frame(
  label = c("4 cylinders", "6 cylinders", "8 cylinders"),
  cyl   = c(4, 6, 8),
  x     = c(20, 27.5, 25),
  y     = c(4, 4, 4.5)
)

p + geom_text(
  data    = dat_text,
  mapping = aes(x = x, y = y, label = label)
)

Chúng tôi cũng có thể dán nhãn lô trên hai khía cạnh:

dat_text <- data.frame(
  cyl   = c(4, 6, 8, 4, 6, 8),
  am    = c(0, 0, 0, 1, 1, 1)
)
dat_text$label <- sprintf(
  "%s, %s cylinders",
  ifelse(dat_text$am == 0, "automatic", "manual"),
  dat_text$cyl
)
p +
  facet_grid(am ~ cyl) +
  geom_text(
    size    = 5,
    data    = dat_text,
    mapping = aes(x = Inf, y = Inf, label = label),
    hjust   = 1.05,
    vjust   = 1.5
  )

Ghi chú:

• Bạn có thể sử dụng -Infvà Infđịnh vị văn bản ở các cạnh của bảng.
• Bạn có thể sử dụng hjustvà vjustđể điều chỉnh văn bản biện minh.
• Khung dữ liệu nhãn văn bản dat_textphải có một cột hoạt động với facet_grid()hoặc facet_wrap().

Nếu bất cứ ai đang tìm kiếm một cách dễ dàng để gắn nhãn các khía cạnh cho các báo cáo hoặc ấn phẩm, gói egg( CRAN ) có các chức năng tag_facet()& tiện lợi tag_facet_outside().

library(ggplot2)

p <- ggplot(mtcars, aes(qsec, mpg)) + 
  geom_point() + 
  facet_grid(. ~ am) +
  theme_bw(base_size = 12)

# install.packages('egg', dependencies = TRUE)
library(egg)

Tag bên trong

Mặc định

tag_facet(p)

Lưu ý: nếu bạn muốn giữ văn bản dải và nền, hãy thử thêm strip.textvàstrip.background quay lại themehoặc xóa theme(strip.text = element_blank(), strip.background = element_blank())khỏi tag_facet()chức năng ban đầu .

tag_facet <- function(p, open = "(", close = ")", tag_pool = letters, x = -Inf, y = Inf, 
                      hjust = -0.5, vjust = 1.5, fontface = 2, family = "", ...) {

  gb <- ggplot_build(p)
  lay <- gb$layout$layout
  tags <- cbind(lay, label = paste0(open, tag_pool[lay$PANEL], close), x = x, y = y)
  p + geom_text(data = tags, aes_string(x = "x", y = "y", label = "label"), ..., hjust = hjust, 
                vjust = vjust, fontface = fontface, family = family, inherit.aes = FALSE) 
}

Căn chỉnh trên cùng bên phải và sử dụng chữ số La Mã

tag_facet(p, x = Inf, y = Inf, 
          hjust = 1.5,
          tag_pool = as.roman(1:nlevels(factor(mtcars$am))))

Căn lề dưới bên trái và sử dụng chữ in hoa

tag_facet(p, 
          x = -Inf, y = -Inf, 
          vjust = -1,
          open = "", close = ")",
          tag_pool = LETTERS)

Xác định thẻ của riêng bạn

my_tag <- c("i) 4 cylinders", "ii) 6 cyls")
tag_facet(p, 
          x = -Inf, y = -Inf, 
          vjust = -1, hjust = -0.25,
          open = "", close = "",
          fontface = 4,
          size = 5,
          family = "serif",
          tag_pool = my_tag)

Tag bên ngoài

p2 <- ggplot(mtcars, aes(qsec, mpg)) + 
  geom_point() + 
  facet_grid(cyl ~ am, switch = 'y') +
  theme_bw(base_size = 12) +
  theme(strip.placement = 'outside')

tag_facet_outside(p2)

Chỉnh sửa : thêm một lựa chọn khác bằng cách sử dụng gói stickylabeller

- `.n` numbers the facets numerically: `"1"`, `"2"`, `"3"`...
- `.l` numbers the facets using lowercase letters: `"a"`, `"b"`, `"c"`...
- `.L` numbers the facets using uppercase letters: `"A"`, `"B"`, `"C"`...
- `.r` numbers the facets using lowercase Roman numerals: `"i"`, `"ii"`, `"iii"`...
- `.R` numbers the facets using uppercase Roman numerals: `"I"`, `"II"`, `"III"`...

# devtools::install_github("rensa/stickylabeller")
library(stickylabeller)

ggplot(mtcars, aes(qsec, mpg)) + 
  geom_point() + 
  facet_wrap(. ~ am, 
             labeller = label_glue('({.l}) am = {am}')) +
  theme_bw(base_size = 12)

^{Được tạo bởi gói reprex (v0.2.1)}

Tôi nghĩ rằng đối với câu trả lời ở trên lab = "Văn bản" là vô ích, mã bên dưới cũng ok.

ann_text <- data.frame(mpg = 15,wt = 5,
                       cyl = factor(8,levels = c("4","6","8")))
p + geom_text(data = ann_text,label = "Text" )

Tuy nhiên, nếu bạn muốn gắn nhãn khác nhau trong các biểu đồ con khác nhau, sẽ ổn thôi theo cách này:

ann_text <- data.frame(mpg = c(14,15),wt = c(4,5),lab=c("text1","text2"),
                       cyl = factor(c(6,8),levels = c("4","6","8")))
p + geom_text(data = ann_text,aes(label =lab) )

Mở rộng một chút về câu trả lời tuyệt vời của joran, để làm rõ cách thức hoạt động của khung dữ liệu nhãn.

Bạn có thể nghĩ "mpg" và "wt" tương ứng là tọa độ x và y (tôi thấy việc theo dõi tên biến ban đầu dễ dàng hơn so với đổi tên chúng, như trong câu trả lời cũng rất xuất sắc của Kamil). Bạn cần một hàng cho mỗi nhãn và cột "hình trụ" hiển thị khía cạnh mà mỗi hàng được liên kết với.

ann_text<-data.frame(mpg=c(25,15),wt=c(3,5),cyl=c(6,8),label=c("Label 1","Label 2"))

ann_text
>  mpg wt cyl  label
>  25  3   6   Label 1
>  15  5   8   Label 2

p <- ggplot(mtcars, aes(mpg, wt)) + geom_point()
p <- p + facet_grid(. ~ factor(cyl))
p + geom_text(data = ann_text,label=ann_text$label)

Tôi không biết về egggói, vì vậy đây là một ggplot2giải pháp gói đơn giản

library(tidyverse)
library(magrittr)
Data1=data.frame(A=runif(20, min = 0, max = 100), B=runif(20, min = 0, max = 250), C=runif(20, min = 0, max = 300))
Data2=data.frame(A=runif(20, min = -10, max = 50), B=runif(20, min = -5, max = 150), C=runif(20, min = 5, max = 200))

bind_cols(
Data1 %>% gather("Vars","Data_1"),
Data2 %>% gather("Vars","Data_2")
) %>% select(-Vars1) -> Data_combined

Data_combined %>%
  group_by(Vars) %>%
  summarise(r=cor(Data_1,Data_2),
            r2=r^2,
            p=(pt(abs(r),nrow(.)-2)-pt(-abs(r),nrow(.)-2))) %>%
  mutate(rlabel=paste("r:",format(r,digits=3)),
         plabel=paste("p:",format(p,digits=3))) ->
  label_df 

label_df %<>% mutate(x=60,y=190)

Data_combined %>%
  ggplot(aes(x=Data_1,y=Data_2,color=Vars)) +
  geom_point() + 
  geom_smooth(method="lm",se=FALSE) +
  geom_text(data=label_df,aes(x=x,y=y,label=rlabel),inherit.aes = FALSE) + 
  geom_text(data=label_df,aes(x=x,y=y-10,label=plabel),inherit.aes = FALSE) + 
    facet_wrap(~ Vars)