Метки осей ggplot обрезаются при сохранении в офицере в формате docx
См. код ниже. У меня ограниченная область в документе, и мне нужно уменьшить ширину. Масштабирование отлично работает для всех элементов (диаграмма, заголовки, текст и т. д.). Но когда я добавляю несколько пользовательских ярлыков, ggsave автоматически обрезает их. По умолчанию аргумент масштабирования установлен на 1.
my_doc <- officer::read_docx()
# Dummy data
data <- data.frame(
day = as.Date("2017-06-14") - 0:364,
value = runif (365) + seq(-140, 224)^2 / 10000)
p <- ggplot(data, aes(x=day, y=value)) +
geom_line() +
xlab("") +
scale_x_date(
date_labels = "%b %Y") +
scale_y_continuous(
position = "right") +
theme(axis.text.x=element_text(angle=30, hjust=1,vjust= 1,
color = 'black'))
p
my_doc <- body_add_gg(my_doc, value = p, width = 2.3, height = 2.8, res = 1200)
my_doc %>% print(target = "doc.docx")
В результате
Я попытался настроить поля и отступы. Никакого успеха.
Стоит ли изучать PHP в 2026-2027 годах?
Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...
Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией
В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.
Приемы CSS-макетирования - floats и Flexbox
Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...
Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest
В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...
Концепция локализации и ее применение в приложениях React ⚡️
Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...
Пользовательский скаляр GraphQL
Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...
1
0
69
1
Перейти к ответу
Данный вопрос помечен как решенный
Ответы 1
Ответ принят как подходящий
Думаю, установка plot.margin подойдет:
library(ggplot2)
library(officer)
p <- ggplot(data, aes(x=day, y=value)) +
geom_line() +
xlab("") +
scale_x_date(
date_labels = "%b %Y") +
scale_y_continuous(
position = "right") +
theme(axis.text.x=element_text(angle=30, hjust=1,vjust= 1,
color = 'black'),
plot.margin = unit(c(0, 0, 0, 1), "cm")) ## add this in theme
my_doc <- body_add_gg(my_doc, value = p, width = 2.3, height = 2.8, res = 1200)
my_doc %>% print(target = "doc.docx")
Или используйте параметр scale, чтобы уменьшить масштаб, если вам не подходят размеры элементов графика:
p <- ggplot(data, aes(x=day, y=value)) +
geom_line() +
xlab("") +
scale_x_date(
date_labels = "%b %Y") +
scale_y_continuous(
position = "right") +
theme(axis.text.x=element_text(angle=30, hjust=1,vjust= 1,
color = 'black'))
my_doc <- body_add_gg(my_doc, value = p, width = 2.3, height = 2.8, res = 1200, scale = 0.5) # scale here
my_doc %>% print(target = "doc.docx")
Другие вопросы по теме
Текст вертикально центрированной оси в R ggplot2
R — Построение функциональных кривых с использованием ggplot
Настройте метки на отдельных узлах диаграммы Санки с помощью ggsankey
Увеличьте высоту оси Y, чтобы она соответствовала меткам geom_text в соответствии с несколькими критериями
Как заставить линию регрессии начинать со 100?
Точки дрожания, график скрипки, ggplot
Почему смайлы не отображаются должным образом в ggplot?
Создать пузырьковую диаграмму (или что-то подобное) на основе кластерного анализа в R
Отображение компактного буквенного дисплея (CLD) из двустороннего дисперсионного анализа на коробчатой диаграмме
Как визуализировать непрерывную переменную во времени, различая при этом разные условия?
Похожие вопросы
Как я могу переименовать статистику в modelsummary?
Как рассчитать контраст непрерывной переменной в emmeans
Текст вертикально центрированной оси в R ggplot2
R — Построение функциональных кривых с использованием ggplot
Настройте метки на отдельных узлах диаграммы Санки с помощью ggsankey
Увеличьте высоту оси Y, чтобы она соответствовала меткам geom_text в соответствии с несколькими критериями
Как заставить линию регрессии начинать со 100?
Альтернативы для отличающихся (.keep_all = TRUE) в стрелке?
Возьмите образец набора данных MNIST
Перебор строки длинных символов R