如何解决您如何使用 R 中的 ggplot 减少折线图上分类 x 变量的 xaxis 大小?
我正在使用以下代码在 ggplot 中使用折线图绘制男性和女性干预前后的体重变化:
#Load Packages
library(tidyverse)
library(ggplot2)
library(dplyr)
library(gapminder)
library(magrittr)
#Create dataframe
Wt_2 <- data.frame(ID = c(1,2,3,4,5,6,7,8,1,8),Sex = c("Male","Male","Female","Female"),Weight_Lbs = c(252.8,181.7,294.9,220.5,204.9,209.1,252.5,179.5,237.0,169.0,277.0,215.0,200.0,204.0,242.9,172.0),Timepoint = c("Pre","Pre","Post","Post"))
#Convert to KG
Wt_2$Weight_Kg <- Wt_2$Weight_Lbs*0.45359237
#Make factors
Wt_2$ID_f <- factor(Wt_2$ID)
Wt_2$Sex <- factor(Wt_2$Sex)
Wt_2$Timepoint <- factor(Wt_2$Timepoint,levels = c("Pre","Post"))
Wt_2$Timepoint
as_tibble(Wt_2)
#Graph
ggplot(data = Wt_2,aes(x = Timepoint,y = Weight_Kg,group = ID_f)) +
geom_line(aes(color = Sex)) + xlab("Time") + ylab("Weight (Kg)") +
geom_point(aes(color = Sex,shape = Sex)) +
scale_color_manual(values=c("#E69F00","darkorchid1")) +
theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank())
这是图表的样子: Line Graph
图表左右两边空白太多,我想“放大”或限制 xaxis 限制,但我不知道该怎么做,因为它是一个分类 x 变量.有人知道怎么做吗?
谢谢!
解决方法
默认的 x 轴周围有一些填充,您可以使用 scale_x_discrete(expand = c(0.1,0.1)) 进行调整
ggplot(data = Wt_2,aes(x = Timepoint,y = Weight_Kg,group = ID_f)) +
geom_line(aes(color = Sex)) + xlab("Time") + ylab("Weight (Kg)") +
geom_point(aes(color = Sex,shape = Sex)) +
scale_x_discrete(expand = c(0.1,0.1)) +
scale_color_manual(values=c("#E69F00","darkorchid1")) +
theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank())
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。