Вы можете сделать это двумя способами.Поскольку нет пригодного для использования dput
(только изображения), я предполагаю, что ваши данные находятся во фрейме данных.
- Вы можете удалить отрицательные числа из набора данных
- Вы можете поместитьпределы на оси Y, показанные на графике (с использованием
ggplot2
)
Метод 1 (не рекомендуется, поскольку он изменяет ваши данные):
#remove negatives and replace with NA. Can also replace with 0 if desired
dandpw[dandpw < 0] <- NA
Метод 2:
#assume dandpw is data frame
library(tidyverse)
names(dandpw)[1] <- "date" #looks like your date column might not be named
#ggplot prefers long format
dandpw <- dandpw %>% gather(variables, values, -date)
ggplot(data = dandpw, aes(x = date, y = values, color = variables)) +
geom_line() +
coord_cartesian(ylim = c(0, max(dandpw$values, na.rm = T) * 1.1 ))