R скользящее среднее для не временных данных

Это сюжет у меня сейчас.

Он генерируется из этого кода:

ggplot(data1, aes(x=POS,y=DIFF,colour=GT)) + 
  geom_point() +
  facet_grid(~ CHROM,scales="free_x",space="free_x") + 
  theme(strip.text.x = element_text(size=40),
        strip.background = element_rect(color='lightblue',fill='lightblue'),
        legend.position="top",
        legend.title = element_text(size=40,colour="lightblue"),
        legend.text = element_text(size=40),
        legend.key.size = unit(2.5, "cm")) +
  guides(fill = guide_legend(title.position="top",
                             title = "Legend:GT='REF'+'ALT'"),
         shape = guide_legend(override.aes=list(size=10))) +
  scale_y_log10(breaks=trans_breaks("log10", function(x) 10^x, n=10)) + 
  scale_x_continuous(breaks = pretty_breaks(n=3)) +
  geom_line(stat = "hline",
            yintercept = "mean",
            size = 1)

Последняя строка geom_line создает среднюю линию для каждой панели.

Но теперь я хочу иметь более конкретное скользящее среднее внутри каждой панели.

то есть, если panel1 ('chr01') имеет диапазон оси x от 0 до 100 000 000, я хотел бы иметь среднее значение для каждого диапазона 1 000 000.

среднее1 = среднее (х = 0 до х = 1 000 000)

среднее2 = среднее (х = 1 000 001 х = 2 000 000)

как это.

Ответы на вопрос(1)

Ваш ответ на вопрос