сохранить несколько графиков в SVG

Question

Предполагая, что этот скрипт генерирует две обобщенные c графики "a" и "b"

library(ggplot2)

# dataset:
data=data.frame(value=rnorm(100))

# basic histogram
a <- ggplot(data, aes(x=value)) + 
  geom_histogram()

a

# dataset:
datab=data.frame(value=rnorm(70))

# basic histogram
b <- ggplot(datab, aes(x=value)) + 
  geom_histogram()

b

Как сохранить диаграмму "a" и диаграмму "b" в двух разных файлах в. SVG формат с размером я определяю. здесь я смоделировал два графика, но у меня их 12, и я хотел бы оптимизировать процесс в сценарии вместо использования кнопки экспорта на каждом из них.

Answer 1

Использование for l oop для включения функции svg для сохранения графика в формате SVG.

С вашими данными это может выглядеть примерно так. Конечно, вы должны связать каждую итерацию l oop с правильным набором данных.

library(ggplot2)

for(i in 1:12)
{
  p <- ggplot(data, aes(x=value)) + 
    geom_histogram()

  svg(filename = "graph%03d.svg", width = 7, height = 7)
  p
  graphics.off()
}

Это отвечает на ваш вопрос?