Я использую R уже 6 месяцев (довольно новый). Я создал хороший график, используя функцию facet_wrap, с geom_point.
Однако я не вижу успеха с geom_col, когда строю другой интересующий меня параметр.
Код ниже:
T <- Titers %>%
ggplot(aes(Sample_ID, Titer)) +
geom_col(aes(col=Day), size=1.1) +
facet_wrap(Strategy~Additives) +
scale_color_manual(values = Ahmad) +
ylab('Titer mg/L') +
xlab('Time (Day)') +
ggtitle('All data') +
geom_label_repel(aes(label = Sample_ID), data = tail(Titers, 14), nudge_x =
2, direction = "y", segment.size = 0.2, hjust = 0) + theme(strip.text.x =
element_text(size = 12), axis.title = element_text(size = 14), axis.text =
element_text(size = 14), legend.position = "none")
Код, который работал нормально, следующий:
Q2 <- USP20005 %>%
ggplot(aes(Day, Diameter)) +
geom_line(aes(col=Sample_ID), size=1.1) +
facet_wrap(Strategy~Additives) +
scale_color_manual(values = Ahmad) +
ylab('VCD E6 cells/mL') +
xlab('Time (Day)') +
ggtitle('All data') +
geom_label_repel(aes(label = Sample_ID), data = tail(USP20005, 24), nudge_x
= 2, direction = "y", segment.size = 0.2, hjust = 0) +
theme(strip.text.x = element_text(size = 12), axis.title = element_text(size =
14), axis.text = element_text(size = 14), legend.position = "none") +
scale_x_continuous(breaks = seq(0, 14, 2), limits = c(0, 14)) +
scale_y_continuous(breaks = seq(10, 20, 2), limits = c(10, 20))
Почему между столбцами есть пробелы, хотя я использовал facet_warp, чтобы разбить сэмплы на разные блоки (кажется, R все еще резервирует пустые места?)
Просто чтобы было ясно: я хочу видеть каждые 2- 4 образца вместе на коробке, где столбики для каждого образца в разные дни приклеены друг к другу. Я был в состоянии построить их в стопке, но я не хочу этого.
Что я здесь не так делаю? Любая помощь приветствуется.
Заранее спасибо Ахмад