R Как сохранить графики xts, используя lapply

Я работаю с какой-то парламентской текстовой копры, и я пытаюсь представить некоторые из результатов. Поскольку у меня есть список элементов, я пытаюсь использовать lapply для повторения в моем списке.

    keywords <- c("inburgering", 
             "inburgeringscursus", 
             "inburgeringsplicht", 
             "kennismigranten", 
             "gezinshereniging", 
             "gezinsvorming", 
             "Vreemdelingenwet")}

При выводе бара lapply ( ключевые слова , функция ( ключевое слово ) { dt <- dispersion ( corpus_in_use , query = keyword , sAttribute = "date" ) ts <- xts ( x = dt [, count ], order.by = as.Date ( sprintf ( "% s-01-01" , dt [[ "date" ]]))) ts_qtr <- aggregate ( ts , as.Date ( sprintf ( "% s-01-01" , gsub ( "^ (\ d {4}) -. *? $" , "\ 1" , index ( ts ))) )) jpeg ( filename = paste ( "/ Users / simgeh / Downloads / bar_" , ключевое слово , ".jpg" , sep = "" ), width = 2000 , height = 1200 , res = NA ) barplot ( ts_qtr , main = ключевое слово , lwd = 1 , las = 3 ) dev.off () }) s работает отлично 

plot

визуализация использования линий линии plotне будет работать. У меня нет ошибок. Просто null device 1.

lapply(keywords, function(keyword){
  disp <- dispersion(corpus_in_use, query = keyword, sAttribute = c("date", "party"))
  ts <- xts(x = disp[,c("CDA", "PVV", "VVD", "PvdA", "D66", "GL")],
            order.by = as.Date(sprintf("%s-01-01", disp[["date"]])))

  #ts_adj <- aggregate(ts, as.Date(sprintf("%s-01-01", gsub("^(\d{4})-.*?$", "\1", index(ts)))))
  ts_adj <- as.xts(aggregate(ts, as.Date(as.yearmon(index(ts)))))

  jpeg(
    filename = paste("/Users/simgeh/Downloads/", keyword, ".jpg", sep=""),
    width = 4000, height = 2400,
    res = NA
  )

  plot(ts_adj, 
       main=keyword, 
       multi.panel = TRUE, 
       col = c("black", "black", "blue", "green", "red", "yellow"), 
       lwd=6, 
       cex = 1.5, 
       las = 1)
  dev.off()
})

Любая помощь приветствуется.

r,plot,lapply,xts,

0
Яндекс.Метрика