我最近開始使用 ggh4x 包中的 facet_nested 函式，我非常喜歡嵌套軸的外觀。我想對繪圖進行注釋以顯示我運行的統計資料。我創建了一個虛擬資料集來說明我的問題。
library(tidyverse)
library(markdown)
library(ggtext)
library(ggh4x)
df <- data.frame(pretreatment = c("10NA", "10NA","10NA", "NT", "NT", "NT"),
timepoint = c("0 h", "6 h","6 h", "0 h", "6 h", "6 h"),
treatment = c("baseline", "10NA", "NT","baseline", "10NA", "NT"),
mean_copy_no = c(1000, 1500, 1200, 600, 700, 400),
sample_id = c(1, 2, 3, 4, 5, 6))
df %>%
ggplot(aes(x=sample_id, y = mean_copy_no, fill = treatment))
geom_col(colour = "black")
facet_nested(.~ pretreatment timepoint treatment, scales = "free", nest_line = TRUE, switch = "x")
ylim(0,2000)
theme_bw()
theme(strip.text.x = element_text(size = unit(10, "pt")),
legend.position = "none",
axis.title.y = element_markdown(size = unit(13, "pt")),
axis.text.y = element_text(size = 11),
axis.text.x = element_blank(),
axis.title.x = element_blank(),
axis.ticks.x = element_blank(),
strip.text = element_markdown(size = unit(12, "pt")),
strip.background = element_blank(),
panel.spacing.x = unit(0.05,"line"),
panel.grid.major.x = element_blank(),
panel.grid.minor.x = element_blank(),
panel.border = element_blank())
這將生成以下圖。
現在我的問題是每個條都位于它自己的方面，而不是全部在一個 x 軸上（如果您運行沒有主題的代碼，它會更清楚地顯示它）。
我已經畫出了我想要的情節。
我想添加線條和星號來表示顯著差異。
我可以很容易地添加星星，但是我正在努力添加線條，我知道這甚至可能是不可能的，因為我正在使用構面來生成情節。我只是想發布這個問題，看看是否有人對如何在 R 中執行此操作有任何建議。或者是否有一種方法可以在不使用構面的情況下實作嵌套外觀。
*為清楚起見進行了編輯。
uj5u.com熱心網友回復：
一種選擇是cowplot在制作ggplot物件后使用，我們可以在其中添加線條和文本。
library(ggplot2)
library(cowplot)
results <- df %>%
ggplot(aes(x=sample_id, y = mean_copy_no, fill = treatment))
geom_col(colour = "black")
facet_nested(.~ pretreatment timepoint treatment, scales = "free", nest_line = TRUE, switch = "x")
ylim(0,2000)
theme_bw()
theme(strip.text.x = element_text(size = unit(10, "pt")),
legend.position = "none",
axis.title.y = element_markdown(size = unit(13, "pt")),
axis.text.y = element_text(size = 11),
axis.text.x = element_blank(),
axis.title.x = element_blank(),
axis.ticks.x = element_blank(),
strip.text = element_markdown(size = unit(12, "pt")),
strip.background = element_blank(),
panel.spacing.x = unit(0.05,"line"),
panel.grid.major.x = element_blank(),
panel.grid.minor.x = element_blank(),
panel.border = element_blank())
ggdraw(results)
draw_line(
x = c(0.07, 0.36),
y = c(0.84, 0.84),
color = "black", size = 1
)
annotate("text", x = 0.215, y = 0.85, label = "*", size = 15)
draw_line(
x = c(0.7, 0.98),
y = c(0.55, 0.55),
color = "black", size = 1
)
annotate("text", x = 0.84, y = 0.56, label = "**", size = 15)
輸出
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/471578.html