Мой третий пост здесь. Я веду дизайн сюжета, используя линии и области в ggplot2
с facet_grid()
. Код работает хорошо. Вот данные, которые я использовал:
#My data
df <- structure(list(Var = structure(c(1L, 2L, 3L, 4L, 5L, 6L, 7L,
8L, 9L, 10L, 11L, 12L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L,
11L, 12L), .Label = c("1", "2", "3", "4", "5", "6", "7", "8",
"9", "10", "11", "12"), class = c("ordered", "factor")), Val = c(46.0233614780009,
85.6471698498353, 83.8100037071854, 98.6977939726785, 94.0682111307979,
92.1834012959152, 79.1579962009564, 62.9422475816682, 2.36891501117498,
25.3718703053892, 87.2779565863311, 32.0944497128949, 444.363995105959,
337.84707041923, 93.2718054391444, 171.342949266545, 81.6757546272129,
135.7353850035, 286.496924120001, 450.293861329556, 339.913251576945,
80.7274857070297, 122.17661133036, 370.043645612895), Group = c("Up",
"Up", "Up", "Up", "Up", "Up", "Up", "Up", "Up", "Up", "Up", "Up",
"Down", "Down", "Down", "Down", "Down", "Down", "Down", "Down",
"Down", "Down", "Down", "Down")), row.names = c(NA, -24L), class = "data.frame")
Теперь это мой сюжет:
library(ggplot2)
library(dplyr)
#Code for the plot
df %>%
mutate(Val=ifelse(Group=='Down',-Val,Val),
Group=factor(Group,levels = c('Up','Down'),ordered = T)) %>%
ggplot(aes(x=Var,y=Val,color=Group,fill=Group,group=Group))+
geom_line(size=1)+geom_area(alpha=0.75)+
facet_grid(Group~.,scales = 'free')+
scale_y_continuous(labels = function(x) abs(x),
expand = c(0,0.1))+
scale_fill_manual(values=c('cyan','tomato'))+
scale_color_manual(values=c('cyan','tomato'))+
theme_bw()
Который производит этого ребенка:
Пока здесь все в порядке. Я хотел бы, если можно изменить два элемента:
Как уменьшить расстояние по вертикали между обеими гранями, чтобы визуально была только одна ось абсцисс (выровнять по одной оси оба нуля и уменьшить это расстояние).
Я хотел бы иметь одинаковую шкалу по обеим осям Y, поэтому код предназначен для зеркального эффекта. Моя проблема в том, что когда я устанавливаю шкалу по оси Y следующим образом:
scale_y_continuous(labels = function(x) abs(x),expand = c(0,0.1),limits = c(NA,800))
Все изменяется:
Я хотел бы, если возможно, чтобы обе оси Y имели одинаковую шкалу, начиная с 0 до 800, но с учетом величины. В этом случае верхний будет меняться от 0 до 800 и вниз от 0 до -800, но маскируется в соответствии с метками для создания зеркального эффекта.
Большое спасибо за помощь.
Это выглядит как идеальная работа для старого трюка с «невидимыми точками», чтобы установить границы граней там, где вы хотите:
library(ggplot2)
library(dplyr)
df %>%
mutate(Val = ifelse(Group == 'Down', -Val, Val),
Group = factor(Group, levels = c('Up', 'Down'), ordered = TRUE)) %>%
ggplot(aes(Var, Val, color = Group, fill = Group, group = Group)) +
geom_line(size = 1) +
geom_area(alpha = 0.75) +
geom_point(data = data.frame(Group = factor(c("Down", "Up"), c('Up', 'Down')),
Var = c(1, 1),
Val = c(-800, 800)), alpha = 0) +
facet_grid(Group~., scales = 'free') +
scale_y_continuous(labels = function(x) abs(x),
expand = c(0, 0.1)) +
scale_fill_manual(values = c('cyan', 'tomato')) +
scale_color_manual(values = c('cyan', 'tomato')) +
theme_bw() +
theme(panel.spacing = unit(0, "points"))
Тем не менее, будет справедливо отметить, что вам здесь действительно не нужны фасеты, и вы получите очень похожий эффект, выполнив:
df %>%
mutate(Val = ifelse(Group == 'Down', -Val, Val),
Group = factor(Group, levels = c('Up', 'Down'), ordered = TRUE)) %>%
ggplot(aes(Var, Val, color = Group, fill = Group, group = Group)) +
geom_line(size = 1) +
geom_area(alpha = 0.75) +
geom_hline(yintercept = 0) +
scale_y_continuous(labels = function(x) abs(x),
expand = c(0, 0.1),
limits = c(-800, 800)) +
scale_fill_manual(values = c('cyan', 'tomato')) +
scale_color_manual(values = c('cyan', 'tomato')) +
theme_bw() +
theme(panel.spacing = unit(0, "points"))