Ширина, высота, разрешение не влияют на конфигурацию экспортируемого графика. - PullRequest
Новая
       27

Ширина, высота, разрешение не влияют на конфигурацию экспортируемого графика.

0 голосов
/ 12 июня 2018

Я пытаюсь экспортировать сюжет из R-studio, который должен быть достаточно хорошего качества для академической работы, однако он не работает для увеличения размера и качества экспортируемого сюжета!

Следующие данные: 

df <- data.frame(cbind("WBHO" = runif(20, 1.0, 7.0), "SI" = runif(20, 1.0, 7.0), "OORT" = runif(20, 1.0, 7.0)))

Я использую следующий код для запроса выбора папки / местоположения: 

library(easycsv)
choose_dir = function(){
os = Identify.OS()
if(tolower(os) == "windows"){
directory <- utils::choose.dir()
}
if(tolower(os) == "macosx"){
system("osascript -e 'tell app \"RStudio\" to POSIX path of (choose folder with prompt \"Choose Folder:\")' > /tmp/R_folder",
       intern = FALSE, ignore.stderr = TRUE)
directory <- system("cat /tmp/R_folder && rm -f /tmp/R_folder", intern = TRUE)
}
return(directory)
}
folder = choose_dir()

Теперь я использую следующий код для создания диаграммы, котораяавтоматически сохраняется в папке, которую я выбрал с предыдущим кодом: 

jpeg(sprintf("%s/%s.jpg", folder, "Means_Orientations", units = "in", width = 5, height = 5, res = 300))
df %>%
gather(key = "variable", value = "value") %>%
ggplot(aes(variable, value)) +
stat_summary(geom="bar", fun.y="mean", color = "brown") +
coord_flip() + scale_y_continuous(breaks = c(1, 2, 3, 4, 5, 6, 7)) +
expand_limits(y = c(0, 7)) +
labs(x = "", y = "") +
theme(text = element_text(size = 20), panel.background = element_rect(fill = "#F2F0ED"))
dev.off()

Как вы можете видеть, я добавил спецификацию, касающуюся единиц измерения, ширины, высоты и размера - однако график остается неизменным, нетменяется вообще!Я предполагаю, что это связано с командой «sprintf», которую я использую - но я не знаю, как решить эту проблему.Любая помощь очень ценится!

...