Добавление средней линии и применение интервала на оси даты - PullRequest
Новая
       5

Добавление средней линии и применение интервала на оси даты

0 голосов
/ 17 февраля 2019

Этот код успешно собирает и связывает данные из нескольких файлов.Используя ggplot2, я получаю аккуратную метку оси x, потому что метка x печатается с интервалом.Однако ggplot собирает все недостающие даты и выглядит не очень хорошо, если у них колючий узор и очень прямая линия / разрыв рядом, поэтому я переключаюсь на сюжет.Однако я не могу нарисовать линию среднего значения на графике, и метка оси X напечатана очень близко.Как я могу включить среднюю линию в график и применить интервал в метке оси X?

filenames <- list.files(path = "c:/Users/HP/Documents/",
                    full.names = T)
library(plyr)
import_lists <- llply(filenames, read.csv)
data <- ldply(import_lists)
data <- as.data.frame(data)
data$Date <- as.Date(data$Date, format = "%Y-%m-%d")
dts <- as.Date(as.list.data.frame(data$Date))

library(plotly)
library(zoo)
plot_ly(data, x = dts, y = data$CAPE.using.virtual.temperature, 
        type = "scatter", mode = "lines") %>% 
        layout(xaxis = list (type = "category"), 
        yaxis = list(title = "CINE Index"),
        title = "1979-2014 (NDJ)") 

#find the mean value 
# m <- mean(data$CAPE.using.virtual.temperature)` not working
...