相关疑难解决方法(0)

增加ggplot2中绘图区域周围的面积

如何增加ggplot 2中绘图区域周围的区域,使我的轴标题有一些喘息空间.我知道vjust和hjust(如下所示),然而,我似乎无法在绘图区域周围创建实际空间来移动我的轴标题.

p <- ggplot(mtcars, aes(x = wt, y = mpg)) + geom_point()
p

p<- p + theme(axis.title.x = element_text(family="Times",size=20,face="bold",colour = "Black",vjust=-1,hjust=0.5)) 
p
Run Code Online (Sandbox Code Playgroud)

在此输入图像描述

plot r ggplot2

31
推荐指数
1
解决办法
5万
查看次数

什么是默认的ggplot2绘图边距?

我无法在任何地方找到相关信息.我知道如何设置它们但想要知道默认值(顶部,右侧,底部和左侧),因此在为绘图设置边距时,它不是一个猜谜游戏.

r ggplot2

19
推荐指数
1
解决办法
4479
查看次数

如何操作 R 中的 ggplot 以在 lhs 上为角度 = 45 长 x 轴标签留出额外空间?

我有几个 geom_bar ggplots,其中我有很长的 x 轴文本名称。如果我以角度 = 90 绘制它们,则图表底部会占用大量空间,因此我尝试使用角度 = 45。这会导致第一个标签的左侧被切断。有没有办法增加左边距?

(不允许发布图片示例)

ggplot(aes(x = cm, y = ahead_aadt),
        data = sbt) + 
   geom_point( ) + geom_line() +
   ggtitle("Ahead AADT Traffic Counts On US 101 in S Santa Barbara Cty") + 
   theme(axis.text.x = element_text(angle=45, size = 9,
     color = "black", face = "plain", vjust = 1, hjust = 1), 
     panel.grid.major.x = element_line(colour = "black", linetype = "dotted")) +
  xlab("Cumulative Mileage") + ylab("Ahead AADT") +
   scale_x_continuous(breaks = sbt$cm,
                      labels =  sbt$description)
Run Code Online (Sandbox Code Playgroud)

r ggplot2

7
推荐指数
2
解决办法
1万
查看次数

减少 ggplot2 和 grid.arrange 中的所有绘图边距

我正在尝试使用grid.arrange()和 来编译四个图表,以减少每个图的边距,以便它们美观且紧凑。我想使用theme(plot.margin=unit(c(x, x, x , x), "cm"))(欢迎其他解决方案)。

不久前有人问过类似的问题: here

但是,现在需要没有默认值的plot.margin参数。units我找不到任何关于 R 在这个论证中期望什么的解释。有人能举个例子吗?

如需可重现的示例,请使用旧问题中提供的示例。谢谢!

r margins ggplot2

3
推荐指数
1
解决办法
6534
查看次数

如何向多个 ggplot 图表添加标签(A、B、C)

阴谋我试图将标签 A、B 和 C 添加到每个图表的左上角。我已经尝试过cowplot::draw_plot_label(),但似乎没有任何效果。有人可以帮忙吗?

这些 A、B 和 C 标签并不是每个图的主标题。

# Packages
library(ggplot2)
library(gridExtra)
library(cowplot)

# 1st plot
p1 <- ggplot(data = new_data %>% 
               filter(Species =="Sharksucker_Remora")) +
  scale_colour_manual(values=c(Sharksucker_Remora="black"), labels = c("Sharksucker Remora")) + 
  geom_line(mapping = aes(x = Date, y = Proportion, group = Species, colour = Species)) + 
  xlab("") + 
  ylab("Proportion") + 
  theme(legend.position="top") +
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)) + labs(colour = ~italic(M.alfredi)~"Hitchhiker Species:") +
  theme(legend.key=element_blank())

# 2nd plot
p2 <- ggplot(data …
Run Code Online (Sandbox Code Playgroud)

label r ggplot2 gridextra cowplot

2
推荐指数
1
解决办法
1万
查看次数

标签 统计

ggplot2 ×5

r ×5

cowplot ×1

gridextra ×1

label ×1

margins ×1

plot ×1