R ggplot（下面的代码）试图删除 BoxPlot 右侧的额外 space
R ggplot (Code below) Trying to remove extra space on the right side of BoxPlot
我正在尝试删除箱线图右侧多余的 space。我一直无法找到解决方案。
x 轴上的字母代表不同的因素。在数据集中，我有 A、B、C、D、OH88119 和 NA。 NA 表示缺失数据。是否有可能导致出现空 space？
YEAR LOC ROW BLOCK PLOT RATING R_Source QTL.SOURCE
2 2017 Unit2 1 1 6302 6 A A
3 2017 Unit2 1 1 6305 4 C C
5 2017 Unit2 2 1 6331 4 C C
6 2017 Unit2 2 1 6332 4 C C
7 2017 Unit2 2 1 6333 4 B B
12 2017 Unit2 4 1 6368 5 D D
13 2017 Unit2 4 1 6369 3 A A
14 2017 Unit2 4 1 6370 5 D D
16 2017 Unit2 5 1 6374 5 A A
18 2017 Unit2 5 1 6378 4 B B
19 2017 Unit2 6 1 6404 4 D D
20 2017 Unit2 6 1 6405 5 C C
21 2017 Unit2 6 1 6406 6 D D
23 2017 Unit2 6 1 6408 4 D D
24 2017 Unit2 7 1 6409 3 A A
25 2017 Unit2 7 1 6410 na D D
26 2017 Unit2 7 1 6411 7 A A
31 2017 Unit2 8 1 6442 8 D D
32 2017 Unit2 8 1 6443 4 B B
33 2017 Unit2 9 1 6445 6 B B
34 2017 Unit2 9 1 6446 6 C C
36 2017 Unit2 9 1 6450 4 A A
39 2017 Unit2 10 1 6478 4 A A
41 2017 Unit2 10 1 6480 4 B B
42 2017 Unit2 11 1 6482 7 D D
43 2017 Unit2 11 1 6483 3 A A
44 2017 Unit2 11 1 6484 9 B B
45 2017 Unit2 12 1 6512 4 A A
47 2017 Unit2 12 1 6514 6 C C
49 2017 Unit2 12 1 6516 6 B B
51 2017 Unit2 13 1 6518 5 C C
52 2017 Unit2 13 1 6519 7 B B
53 2017 Unit2 13 1 6520 7 B B
54 2017 Unit2 13 1 6521 4 B B
56 2017 Unit2 14 1 6549 NA D D
57 2017 Unit2 14 1 6550 6 A A
59 2017 Unit2 14 1 6552 5 NA SA
61 2017 Unit2 1 2 6308 4 A A
178 2017 Unit2 4 1 6371 9 OH88119 NA
179 2017 Unit2 9 1 6448 9 OH88119 NA
180 2017 Unit2 4 2 6365 7 OH88119 NA
181 2017 Unit2 5 2 6381 9 OH88119 NA
182 2017 Unit2 3 3 6349 5 OH88119 NA
183 2017 Unit2 4 3 6359 7 OH88119 NA
感谢您的宝贵时间，我真的很感激。
下面是我的代码：
BC1S3boxplot <- ggplot(BC1S3, aes(R_Source,DISEASERATING))
BC1S3plot <- BC1S3boxplot + theme_bw()+
geom_boxplot(fill=c("red","green","blue","purple","yellow"))+
labs(x=expression(Sample~Source),y=expression(Horsfall-Barrat~Score),
title=expression(italic(X)~field~BC1S3~vs~X))+
scale_x_discrete(limits=c("A","B","C","D","OH88119"))+
coord_cartesian(ylim = c(1,8))+
theme(axis.text.y=element_text(size=10),axis.text.x=element_text(size = 10),
axis.title=element_text(size=10),title=element_text(size=10))
BC1S3plot
这里是箱线图图像
marco's code
您的代码运行良好。见下文：
df <- read.table(text='
ID YEAR LOC ROW BLOCK PLOT RATING R_Source QTL.SOURCE
2 2017 Unit2 1 1 6302 6 A A
3 2017 Unit2 1 1 6305 4 C C
5 2017 Unit2 2 1 6331 4 C C
6 2017 Unit2 2 1 6332 4 C C
7 2017 Unit2 2 1 6333 4 B B
12 2017 Unit2 4 1 6368 5 D D
13 2017 Unit2 4 1 6369 3 A A
14 2017 Unit2 4 1 6370 5 D D
16 2017 Unit2 5 1 6374 5 A A
18 2017 Unit2 5 1 6378 4 B B
19 2017 Unit2 6 1 6404 4 D D
20 2017 Unit2 6 1 6405 5 C C
21 2017 Unit2 6 1 6406 6 D D
23 2017 Unit2 6 1 6408 4 D D
24 2017 Unit2 7 1 6409 3 A A
25 2017 Unit2 7 1 6410 NA D D
26 2017 Unit2 7 1 6411 7 A A
31 2017 Unit2 8 1 6442 8 D D
32 2017 Unit2 8 1 6443 4 B B
33 2017 Unit2 9 1 6445 6 B B
34 2017 Unit2 9 1 6446 6 C C
36 2017 Unit2 9 1 6450 4 A A
39 2017 Unit2 10 1 6478 4 A A
41 2017 Unit2 10 1 6480 4 B B
42 2017 Unit2 11 1 6482 7 D D
43 2017 Unit2 11 1 6483 3 A A
44 2017 Unit2 11 1 6484 9 B B
45 2017 Unit2 12 1 6512 4 A A
47 2017 Unit2 12 1 6514 6 C C
49 2017 Unit2 12 1 6516 6 B B
51 2017 Unit2 13 1 6518 5 C C
52 2017 Unit2 13 1 6519 7 B B
53 2017 Unit2 13 1 6520 7 B B
54 2017 Unit2 13 1 6521 4 B B
56 2017 Unit2 14 1 6549 NA D D
57 2017 Unit2 14 1 6550 6 A A
59 2017 Unit2 14 1 6552 5 NA SA
61 2017 Unit2 1 2 6308 4 A A
178 2017 Unit2 4 1 6371 9 OH88119 NA
179 2017 Unit2 9 1 6448 9 OH88119 NA
180 2017 Unit2 4 2 6365 7 OH88119 NA
181 2017 Unit2 5 2 6381 9 OH88119 NA
182 2017 Unit2 3 3 6349 5 OH88119 NA
183 2017 Unit2 4 3 6359 7 OH88119 NA
', header=T)
BC1S3boxplot <- ggplot(df, aes(x=R_Source, y=RATING))
BC1S3plot <- BC1S3boxplot + geom_boxplot(aes(fill=R_Source)) +
labs(x=expression(Sample~Source),y=expression(Horsfall-Barrat~Score),
title=expression(italic(X)~field~BC1S3~vs~X))+
scale_x_discrete(limits=c("A","B","C","D","OH88119"))+
coord_cartesian(ylim = c(1,10))+
theme(axis.text.y=element_text(size=10),axis.text.x=element_text(size = 10),
axis.title=element_text(size=10),title=element_text(size=10))+theme_bw()
我正在尝试删除箱线图右侧多余的 space。我一直无法找到解决方案。
x 轴上的字母代表不同的因素。在数据集中，我有 A、B、C、D、OH88119 和 NA。 NA 表示缺失数据。是否有可能导致出现空 space？
YEAR LOC ROW BLOCK PLOT RATING R_Source QTL.SOURCE
2 2017 Unit2 1 1 6302 6 A A
3 2017 Unit2 1 1 6305 4 C C
5 2017 Unit2 2 1 6331 4 C C
6 2017 Unit2 2 1 6332 4 C C
7 2017 Unit2 2 1 6333 4 B B
12 2017 Unit2 4 1 6368 5 D D
13 2017 Unit2 4 1 6369 3 A A
14 2017 Unit2 4 1 6370 5 D D
16 2017 Unit2 5 1 6374 5 A A
18 2017 Unit2 5 1 6378 4 B B
19 2017 Unit2 6 1 6404 4 D D
20 2017 Unit2 6 1 6405 5 C C
21 2017 Unit2 6 1 6406 6 D D
23 2017 Unit2 6 1 6408 4 D D
24 2017 Unit2 7 1 6409 3 A A
25 2017 Unit2 7 1 6410 na D D
26 2017 Unit2 7 1 6411 7 A A
31 2017 Unit2 8 1 6442 8 D D
32 2017 Unit2 8 1 6443 4 B B
33 2017 Unit2 9 1 6445 6 B B
34 2017 Unit2 9 1 6446 6 C C
36 2017 Unit2 9 1 6450 4 A A
39 2017 Unit2 10 1 6478 4 A A
41 2017 Unit2 10 1 6480 4 B B
42 2017 Unit2 11 1 6482 7 D D
43 2017 Unit2 11 1 6483 3 A A
44 2017 Unit2 11 1 6484 9 B B
45 2017 Unit2 12 1 6512 4 A A
47 2017 Unit2 12 1 6514 6 C C
49 2017 Unit2 12 1 6516 6 B B
51 2017 Unit2 13 1 6518 5 C C
52 2017 Unit2 13 1 6519 7 B B
53 2017 Unit2 13 1 6520 7 B B
54 2017 Unit2 13 1 6521 4 B B
56 2017 Unit2 14 1 6549 NA D D
57 2017 Unit2 14 1 6550 6 A A
59 2017 Unit2 14 1 6552 5 NA SA
61 2017 Unit2 1 2 6308 4 A A
178 2017 Unit2 4 1 6371 9 OH88119 NA
179 2017 Unit2 9 1 6448 9 OH88119 NA
180 2017 Unit2 4 2 6365 7 OH88119 NA
181 2017 Unit2 5 2 6381 9 OH88119 NA
182 2017 Unit2 3 3 6349 5 OH88119 NA
183 2017 Unit2 4 3 6359 7 OH88119 NA
感谢您的宝贵时间，我真的很感激。
下面是我的代码：
BC1S3boxplot <- ggplot(BC1S3, aes(R_Source,DISEASERATING))
BC1S3plot <- BC1S3boxplot + theme_bw()+
geom_boxplot(fill=c("red","green","blue","purple","yellow"))+
labs(x=expression(Sample~Source),y=expression(Horsfall-Barrat~Score),
title=expression(italic(X)~field~BC1S3~vs~X))+
scale_x_discrete(limits=c("A","B","C","D","OH88119"))+
coord_cartesian(ylim = c(1,8))+
theme(axis.text.y=element_text(size=10),axis.text.x=element_text(size = 10),
axis.title=element_text(size=10),title=element_text(size=10))
BC1S3plot
这里是箱线图图像
marco's code
您的代码运行良好。见下文：
df <- read.table(text='
ID YEAR LOC ROW BLOCK PLOT RATING R_Source QTL.SOURCE
2 2017 Unit2 1 1 6302 6 A A
3 2017 Unit2 1 1 6305 4 C C
5 2017 Unit2 2 1 6331 4 C C
6 2017 Unit2 2 1 6332 4 C C
7 2017 Unit2 2 1 6333 4 B B
12 2017 Unit2 4 1 6368 5 D D
13 2017 Unit2 4 1 6369 3 A A
14 2017 Unit2 4 1 6370 5 D D
16 2017 Unit2 5 1 6374 5 A A
18 2017 Unit2 5 1 6378 4 B B
19 2017 Unit2 6 1 6404 4 D D
20 2017 Unit2 6 1 6405 5 C C
21 2017 Unit2 6 1 6406 6 D D
23 2017 Unit2 6 1 6408 4 D D
24 2017 Unit2 7 1 6409 3 A A
25 2017 Unit2 7 1 6410 NA D D
26 2017 Unit2 7 1 6411 7 A A
31 2017 Unit2 8 1 6442 8 D D
32 2017 Unit2 8 1 6443 4 B B
33 2017 Unit2 9 1 6445 6 B B
34 2017 Unit2 9 1 6446 6 C C
36 2017 Unit2 9 1 6450 4 A A
39 2017 Unit2 10 1 6478 4 A A
41 2017 Unit2 10 1 6480 4 B B
42 2017 Unit2 11 1 6482 7 D D
43 2017 Unit2 11 1 6483 3 A A
44 2017 Unit2 11 1 6484 9 B B
45 2017 Unit2 12 1 6512 4 A A
47 2017 Unit2 12 1 6514 6 C C
49 2017 Unit2 12 1 6516 6 B B
51 2017 Unit2 13 1 6518 5 C C
52 2017 Unit2 13 1 6519 7 B B
53 2017 Unit2 13 1 6520 7 B B
54 2017 Unit2 13 1 6521 4 B B
56 2017 Unit2 14 1 6549 NA D D
57 2017 Unit2 14 1 6550 6 A A
59 2017 Unit2 14 1 6552 5 NA SA
61 2017 Unit2 1 2 6308 4 A A
178 2017 Unit2 4 1 6371 9 OH88119 NA
179 2017 Unit2 9 1 6448 9 OH88119 NA
180 2017 Unit2 4 2 6365 7 OH88119 NA
181 2017 Unit2 5 2 6381 9 OH88119 NA
182 2017 Unit2 3 3 6349 5 OH88119 NA
183 2017 Unit2 4 3 6359 7 OH88119 NA
', header=T)
BC1S3boxplot <- ggplot(df, aes(x=R_Source, y=RATING))
BC1S3plot <- BC1S3boxplot + geom_boxplot(aes(fill=R_Source)) +
labs(x=expression(Sample~Source),y=expression(Horsfall-Barrat~Score),
title=expression(italic(X)~field~BC1S3~vs~X))+
scale_x_discrete(limits=c("A","B","C","D","OH88119"))+
coord_cartesian(ylim = c(1,10))+
theme(axis.text.y=element_text(size=10),axis.text.x=element_text(size = 10),
axis.title=element_text(size=10),title=element_text(size=10))+theme_bw()