При сохранении ggplotGrob непосредственно в R он работает, но при запуске этого сохранения в R markdown knit метки оси x отсутствуют - PullRequest
Новая
       23

При сохранении ggplotGrob непосредственно в R он работает, но при запуске этого сохранения в R markdown knit метки оси x отсутствуют

1 голос
/ 18 июня 2020

Я реализовал решение этого потока: Настроить дискретную высоту оси Y на количество сегментов в фасетах 

# Make labels even
plt.grid <- plt + facet_grid(Soort ~ ., scales = "free_y", space = "free_y")
plt.wrap <- plt + facet_wrap(. ~ Soort, ncol = 1, scales = "free_y")

gp.grid <- ggplotGrob(plt.grid)
gp.wrap <- ggplotGrob(plt.wrap)

gp.wrap$heights[gp.wrap$layout[grep("panel", gp.wrap$layout$name), "t"]] <- 
  gp.grid$heights[gp.grid$layout[grep("panel", gp.grid$layout$name), "t"]]

plt <- ggdraw(gp.wrap)

# Save
ggsave('_temp20.png',plt,device='png',width = 19.8, height = 10, unit = "cm")

Когда я запускаю это в файле .R, он выглядит идеальный. Однако, когда этот фрагмент кода запускается из связки RMarkdown, метки оси x отсутствуют. Кто-нибудь знает об этой проблеме?

Заранее спасибо

...