Отредактируйте расстояние между метками оси и метками оси в ggplot

Я хочу научиться увеличивать расстояние между axis.ticks и метками оси.

Вот пример:

library(tidyverse)
library(palmerpenguins)

penguins %>% 
  ggplot() +
  geom_point(aes(x=bill_length_mm,bill_depth_mm, fill=species), size=5, shape=21, color = "white", alpha=0.7) +
  scale_fill_manual(values=c("#1B6CA8","#D78E00","#438A5E" )) +
  guides(fill=guide_legend(override.aes = list(alpha=1))) +
  theme_bw() +
  theme(text=element_text(size=12), 
        axis.ticks.length = unit(0.25, "cm"))
#> Warning: Removed 2 rows containing missing values (`geom_point()`).

^{Created on 2023-04-10 with reprex v2.0.2}

Это то, что я хочу:

Я пытался использовать axis.text.x = element_text(margin = margin(t = 0,r = 0,b = 2,l = 0, unit = "cm"))), но с помощью этой команды я только перемещаю заголовок. Я хочу переместить только метки, а НЕ название!

Я не уверен, почему вы подумали, что margin(t = 0,r = 0,b = 2,l = 0, unit = "cm")) увеличит отступ между метками осей и делениями? б = дно. В своем ответе с помощью margin(5,0,0,0) вы добавляете поле вверху t. Я думаю, что лучше явно указать позицию, в которой вы хотите добавить отступ. Вместо приведенного ниже кода в ответе вы можете использовать axis.text.x = element_text(margin = margin(t = 5)), потому что любая из этих позиций t/r/b/l имеет 0 по умолчанию.

— 10.04.2023 17:42

Связанные stackoverflow.com/questions/66102618/….

— 10.04.2023 17:44

это очень хороший момент @tjebo я согласен

— 11.04.2023 00:10

r ggplot2 tidyverse

10.04.2023 14:00

Стоит ли изучать PHP в 2023-2024 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Благодаря предложению Филиппа Массикотта из группы R4DS slack есть решение:

library(tidyverse)
library(palmerpenguins)

penguins %>% 
  ggplot() +
  geom_point(aes(x=bill_length_mm,bill_depth_mm, fill=species), size=5, shape=21, color = "white", alpha=0.7) +
  scale_fill_manual(values=c("#1B6CA8","#D78E00","#438A5E" )) +
  guides(fill=guide_legend(override.aes = list(alpha=1))) +
  theme_bw() +
  theme(text=element_text(size=12), 
        axis.ticks.length = unit(0.25, "cm"), 
        axis.text.x = element_text(margin = margin(5,0,0,0)), 
        axis.text.y = element_text(margin = margin(0,5,0,0)))
#> Warning: Removed 2 rows containing missing values (`geom_point()`).