ggplot 增加轴标签和轴刻度之间的距离

Question

我已经用完了有关 Stackoverflow 的文档和以前的问题，但我似乎无法克服这个简单的挑战。

df <- read_csv("book1.csv")

p <- ggplot(data = df, aes(x = xData, y = yData, color = colorData)) +
  geom_point(aes(text = paste("Contact:", Contact, "Number:", Number,sep="\n")), size = 1) +
  theme(legend.text=element_text(size=rel(0.6))) +
  facet_wrap(~ colorData, nrow = 4, ncol = 2) +
  xlim(0, 10) +   ylim(0, 10) + 
  labs = (x = "\nxData", y = "yData\n") 

ggplotly(p)

目前，我的 x 和 y 标签位于所有方面的刻度之上，我希望将轴标签从刻度延伸出来。

到目前为止我已经尝试过：

labs = (x = "\nxData", y = "yData\n")

xlab("\nxData") + ylab("yData\n")

theme(axis.title.x = element_text(margin = margin(t = 9, r = 0, b = 0, l = 0)))+
theme(axis.title.y = element_text(margin = margin(t = 0, r = 9, b = 0, l = 0)))

theme(axis.title.x = element_text(vjust=-0.5))+
theme(axis.title.y = element_text(hjust=-0.5))

theme(axis.title.x.bottom = element_text(margin = margin(t = 2, unit = "in")))+
theme(axis.title.y.left = element_text(margin = margin(r = 2, unit = "in")))

这里似乎没有任何效果。欢迎提出任何建议。

编辑：可复制粘贴格式的数据：

df <- tibble::tribble(
  ~xData, ~yData, ~colorData, ~Contact, ~Number,
  3.4,    6.7,   "Dept 1",   "John",    143L,
  4.5,    7.7,   "Dept 2",   "Paul",    353L,
  6.7,    8.7,   "Dept 3",   "Mary",    232L,
  8.9,    9.9,   "Dept 4",  "Steve",    235L,
  3.4,     10,   "Dept 5",   "Bill",    124L,
  5.6,    5.4,   "Dept 6",   "Jess",    421L,
  7.6,    4.5,   "Dept 7",  "Peter",    212L
)

因此，这似乎是在为交互式绘图而不是为常规绘图调用 ggploty(p) 时引起的问题。

Answer 1

评论太长了 - 没有真正的答案。

在这里展示它的样子。

尝试在您的会话中运行此代码，看看是否有相同的结果。如果没有，那么您设置了一些奇怪的全局设置。然后我会重新启动 R，启动一个新会话，并且可能还会更新您的所有软件包。

library(tidyverse)
ggplot(data = mtcars) +
  geom_point(aes(mpg, disp)) +
  facet_wrap(~ carb, nrow = 4, ncol = 2) +
  theme(axis.text.x = element_text(margin = margin(t = 1, unit = "in"))) 

^{由 reprex package (v0.3.0) 于 2021 年 2 月 8 日创建}