Я хочу создать скользящее среднее некоторых геохимических данных. В настоящее время у меня есть данные для каждого 1 мм от 0 мм до 45,7 мм, и я хочу усреднить каждые 10 мм, чтобы получить средние значения 1 см. Это данные на ...

0
Sophie Williams 2 Мар 2021 в 14:39

1 ответ

Лучший ответ

Проблемы этого типа обычно связаны с изменением формы данных. Формат должен быть длинным, а данные - широкоформатными. См. этот пост о том, как изменить форму данных с широкого на длинный формат.

library(ggplot2)
library(dplyr)
library(tidyr)
library(tidypaleo)
library(zoo)

width <- 10
wapPbTa$RM <- rollmeanr(x = wapPbTa$PbTa, k = width, fill = NA)

wapPbTa %>%
  pivot_longer(cols = -Depth) %>%
  ggplot(aes(x = value, y = Depth, colour = name)) +
  geom_lineh(size = 1) +
  geom_point(size = 2) +
  scale_y_reverse() +
  scale_colour_manual(
    breaks = c("PbTa", "RM"),
    values = c("black", "blue")
  ) +
  labs(y = "Depth (cm)") +
  theme_classic()

enter image description here

1
Rui Barradas 2 Мар 2021 в 12:31