使用facet_wrap在ggplot中添加唯一的轴标签名称

Question

使用facet_wrap在ggplot中添加唯一的轴标签名称

似乎许多用户都在尝试做我在这里也在尝试的事情。

我正在尝试做这些事情：

要固定的 x 轴标签（范围 0 到 1200）、要在每个图上重复的 x 轴以及要为每个图重复和自定义的 x 轴标签名称
y 轴标签是自由的（但能够将第二个图中的范围编辑为breaks=c(0, 3, 6, 9, 12)），y 轴在每个图上重复，并且 y 轴标签对于每个图重复和可自定义

ggplot(mapping=aes(x=dist, fill=sex)) +
   geom_histogram(data = cbind(move, panel = "A"), color="black", binwidth=10) +
   geom_vline(data = cbind(move, panel = "A"), aes(xintercept=mean(dist)), 
    color="black", linetype="dashed", size=1)+
   geom_histogram(data = cbind(settle_data, panel = "B"), color="black", binwidth=10) +
   geom_vline(data = cbind(settle_data, panel = "B"), aes(xintercept=mean(dist)), 
    color="black", linetype="dashed", size=1)+
   geom_histogram(data = cbind(recruit_data, panel = "C"), color="black", binwidth=10) +
   geom_vline(data = cbind(recruit_data, panel = "C"), aes(xintercept=mean(dist)), 
    color="black", linetype="dashed", size=1)+
    coord_cartesian(xlim=c(0,1200))+ #limits axes range without deleting points
    scale_fill_manual(values=c("gray97", "gray47"),
            name = "Sex",   
            breaks=c("F","M"),
            labels=c("Female","Male")) +
    theme_bw() +
    theme(legend.position = c(0.8,0.8), #move legend into plot
        axis.line = element_line(colour = "black"),
        axis.text=element_text(size = 20), #changes size of axes #s
        axis.title=element_text(size=20), #changes size of axes labels
        plot.caption = element_text(hjust = 0, vjust = 2.12),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        panel.border = element_blank(),
        panel.background = element_blank(),
        text = element_text(size = 15)) +
    facet_wrap(~ panel, ncol = 1, scales='free_y', labeller=as_labeller(c(A = "Number of fixes", B = "Number of individuals", C = "Number of individuals") ), strip.position="left") +
    scale_x_continuous(breaks = seq(0,1250,by = 200)) +     
    theme(
    strip.placement = "outside",
    strip.background = element_blank(),
        axis.title.y = element_blank(),
        strip.text = element_text(size = 19))+
    labs(x = "Distance travelled from natal nest (m)")

Run Code Online (Sandbox Code Playgroud)

结果图（我能够通过将面板名称移动到图的左侧并像轴标签一样“破解”我遇到的 y 轴问题）：

我想要的情节（编辑以红色圈出）：

我无法发布用于绘图的数据，但我在下面创建了一个示例数据集：

move<- data.frame(
    dist = c(0,100,200,300,400,400,500,600,700,800,1000,1200,0,100,200,300,400,400,500,600,700,800,1000,1200,0,100,200,300,400,400,500,600,700,800,1000,1200,0,100,200,300,400,400,500,600,700,800,1000,1200),
    sex = c ("F", "M", "F", "F", "F", "M", "M", "M", "M", "M", "F","F","F", "M", "F", "F", "F", "M", "M", "M", "M", "M", "F", "F","F", "M", "F", "F", "F", "M", "M", "M", "M", "M", "F", "F","F", "M", "F", "F", "F", "M", "M", "M", "M", "M", "F", "F"))
settle_data<-data.frame(
    dist = c(0,10,20,30,400,40,50,60,700,80,1000,1200,0,10,20,30,400,40,50,60,700,80,1000,1200, 0,10,20,30,400,40,50,60,700,80,1000,1200,0,100,200,300,400,400,500,600,700,800,1000,1200,0,10,20,30,400,40,50,60,700,80,1000,1200,0,10,20,30,400,40,50,60,700,80,1000,1200,0,10,20,30,400,40,50,60,700,80,1000,1200,0,100,200,300,400,400,500,600,700,800,1000,1200),
    sex = c ("F", "M", "F", "F", "F", "M", "M", "M", "M", "M", "F","F","F", "M", "F", "F", "F", "M", "M", "M", "M", "M", "F", "F","F", "M","F", "F", "F", "M", "M", "M", "M", "M", "F", "F","F", "M", "F", "F","F", "M", "M", "M", "M", "M", "F", "F", "F", "M", "F", "F", "F", "M", "M", "M","M", "M", "F", "F","F", "M", "F", "F", "F", "M", "M", "M", "M", "M","F", "F","F", "M", "F", "F", "F", "M", "M", "M", "M", "M", "F", "F","F", "M","F", "F", "F", "M", "M", "M", "M", "M", "F", "F"))
recruit_data<- data.frame(
    dist = c(0,10,20,30,400,40,50,60,700,80,1000,1200,0,10,20,30,4,40,50,60,700,80,10,120,0,10,20,30,40,40,50,60,70,80,100,120,0,100,200,300,400,400,500,600,700,800,1000,1200),
    sex = c ("F", "M", "F", "F", "F", "M", "M", "M", "M", "M", "F","F","F", "M", "F", "F", "F", "M", "M", "M", "M", "M", "F", "F","F", "M","F", "F", "F", "M", "M", "M", "M", "M", "F", "F","F", "M", "F", "F","F", "M", "M", "M", "M", "M", "F", "F"))

Run Code Online (Sandbox Code Playgroud)

Answer 1

Blu*_*ist 5

对于那些想要或需要使用的人facet_wrap，这是对我有用的解决方案（从评论中提取建议）。

以下编辑给出了以下情节：

有关编辑的重要说明：

coord_cartesian(xlim=c(0,1200))将所有绘图的 x 轴限制设置为相同

scale_y_continuous(breaks = scales::pretty_breaks(5))使 y 轴没有小数

labs(x = "")在最底部添加 x 轴

要向每个绘图添加标签，geom_text()只需更改注释出现的绘图（panel=c("B")和）即可实现此目的。panel=c("C")

之内facet_wrap()：

scales='free'使得每个图的轴都重复

labeller=as_labeller(c([text]))可用于为每个图指定唯一的 y 轴名称

strip.position='left'将面板移至左侧（y 轴所在的位置）

之内theme()：

strip.placement = "outside"将面板标签移动到图的外部，允许它们充当 y 轴标签名称

使用的代码：

ggplot(mapping=aes(x=dist, fill=sex)) +
   geom_histogram(data = cbind(move, panel = "A"), color="black", binwidth=10) +
   geom_vline(data = cbind(move, panel = "A"), aes(xintercept=mean(dist)), 
    color="black", linetype="dashed", size=1)+
   geom_histogram(data = cbind(settle_data, panel = "B"), color="black", binwidth=10) +
   geom_vline(data = cbind(settle_data, panel = "B"), aes(xintercept=mean(dist)), 
    color="black", linetype="dashed", size=1)+
   geom_histogram(data = cbind(recruit_data, panel = "C"), color="black", binwidth=10) +
   geom_vline(data = cbind(recruit_data, panel = "C"), aes(xintercept=mean(dist)), 
    color="black", linetype="dashed", size=1)+
    coord_cartesian(xlim=c(0,1200))+ 
    scale_fill_manual(values=c("gray97", "gray47"),
            name = "Sex",   
            breaks=c("F","M"),
            labels=c("Female","Male")) +
    theme_bw() +
    theme(legend.position = c(0.95,0.93), #move legend into plot
        axis.line = element_line(colour = "black"),
        axis.text=element_text(size = 20), #changes size of axes #s
        axis.title=element_text(size=20), #changes size of axes labels
        plot.caption = element_text(hjust = 0, vjust = 2.12),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        panel.border = element_blank(),
        panel.background = element_blank(),
        text = element_text(size = 20)) +
    facet_wrap(~ panel, ncol = 1, scales='free', labeller=as_labeller(c(A = "Number of fixes", B = "Number of individuals", C = "Number of individuals") ), strip.position="left") +
    scale_x_continuous(breaks = seq(0,1250,by = 200)) +  
    scale_y_continuous(breaks = scales::pretty_breaks(5))+  
    theme(
    strip.placement = "outside",
    strip.background = element_blank(),
        axis.title.y = element_blank(),
        strip.text = element_text(size = 19))+
    labs(x = "Distance recruited from natal nest (m)")+
 geom_text(data=data.frame(x=600, y=12, 
        label="Distance travelled from natal nest (m)", panel=c("B")), 
               aes(x,y,label=label), inherit.aes=FALSE, size = 7) +
 geom_text(data=data.frame(x=600, y=6, 
        label="Distance settled from natal nest (m)", panel=c("C")), 
               aes(x,y,label=label), inherit.aes=FALSE, size = 7)

Run Code Online (Sandbox Code Playgroud)

归档时间：	6 年，2 月前
查看次数：	4617 次
最近记录：	6 年，2 月前