На моем Macbook Pro, в начале 2015 года, работает High Sierra (если это имеет значение) - похоже, что ggsave игнорирует мою спецификацию ширины и высоты изображения для файлов .png.У меня нет этой проблемы на машинах под управлением Windows.Вот небольшой воспроизводимый пример, хотя, опять же, эта проблема не возникнет, если вы работаете в Windows:
# Setup Workspace
library("xlsx")
library("ggplot2")
# Generate Data
plotData <- data.frame(
x = c("a", "b", "c", "d"),
y = c(5,8,3,9)
)
# Create Plot
p <- ggplot() +
geom_bar(data = plotData, aes(x,y), stat = "identity")
ggsave("example.png", width = 4, height = 3, units = "in")
#Add Plot to Workbook
wb <- createWorkbook(type = "xlsx")
sheet <- createSheet(wb, sheetName = "Example")
addPicture(file.path(getwd(), "example.png"), sheet, scale = 1, startRow = 3,
startColumn = 2)
saveWorkbook(wb, file.path(getwd(),"example.xlsx"))
Есть ли способ исправить эту проблему с помощью ggsave, если это проблема?Если нет, то может ли кто-нибудь предложить альтернативный способ сохранения графиков определенного размера для добавления в рабочую книгу с пакетом xlsx, который будет работать на компьютерах Mac и Windows?
Заранее спасибо за любую помощь!