在ggplot中向轴标签添加文本 [英] Adding text to axis labels in ggplot
本文介绍了在ggplot中向轴标签添加文本的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！
问题描述
BoatPhs符合上限
1 3.685875 0.3287521之前3.038621 4.333130
2 After0-20NTA 3.317189 0.6254079 2.085872 4.548506
3 After0-20TAA 5.579384 0.5696270 4.457890 6.700878
4 After0-20TAP 3.932360 0.4304098 3.084960 4.779760
5 After20-40NTA 4.522714 0.7771793 2.992586 6.052842
6 After 20-40TAA 4.505207 0.5500699 3.422217 5.588196
7 After20-40TAP 3.602183 0.3880538 2.838174 4.366192
8 ApproachNTA 4.039599 0.5688482 2.919638 5.159560
9 ApproachTAA 4.421112 0.5176408 3.401969 5.440255
10 ApproachTAP 4.497809 0.3978328 3.714547 5.281071
船相是x轴，拟合是绘制在y上的。此刻，我的坐标轴与之前一样，ApproachNTA，ApproachTAA，ApproachTAP，After0-20NTA等。
我最初将这些标签旋转了90度，因此它们更适合看，但不喜欢它的外观。我现在已经重新命名了标签（使用下面的代码），以便现在在轴上显示的内容是x轴上的Before NTA TAA TAP NTA TAA TAP NTA TAA TAP。
我希望添加一些文字以便将标签分组。比如第一组NTA TAA TAP下的Approach，第二组下的After0-20和第三组下的After20-40之后，但我不确定如何在情节之外做到这一点。
任何帮助将不胜感激。
干杯
＃速度图
Spdplot < - ggplot（y，aes（x = BoatPhs，y =颜色= BP，ymax = max（fit）* 1.05））+
geom_point（position = position_dodge（width = 0.5，height = 0），size = 4）+
geom_errorbar（aes（ymin = fit-se，ymax = fit + se），position = position_dodge（width = 0.5，height = 0），width = 0.5，size = 0.75）+
theme（panel.grid.major = element_blank（）， panel.grid.minor = element_blank（），
panel.background = element_blank（），axis.line = element_line（color =black））
#run Spdplot
Spdplot
＃设置结果顺序中的x值+ relables x + y轴
Spdplot + scale_x_discrete（limits = c（ Before，ApproachNTA，ApproachTAA，ApproachTAP，After0-20NTA，After0-20TAA，After0-20TAP，After20-40NTA，After20-40TAA，After20-40TAP ），
标签= c（之前=之前，ApproachNTA=NTA，ApproachTAA=TAA，ApproachTAP=TAP，
After0-20NTA=NTA， After 0-20TAA=TAA，After 0-20TAP=TAP，
After 20-40NTA=NTA，20-40TAA=TAA，20-40TAP后= TAP））+
xlab（船相）+ ylab（团体旅行速度（km / hr））+
注释（text，x = 6，y = 6.2，标签=***，size = 6）+
注释（text，x = 4，y = 4.95，label =*，size = 6）+
theme title.x = element_text（face =bold，size = 16，vjust = -0.5），axis.title.y = element_text（face =bold，size = 16，vjust = 1），
axis .text.x = element_text（size = 14，face =bold），axis.text.y = element_text（face =bold，size = 14），legend.text = element_text（size = 14））+
主题（legend.title = element_blank（））+
scale_colour_manual（values = c（＃3399FF，＃FF0000，＃33CC33，＃000000），
break = C（BEF矿石，方法，后0-20，后20-40），
标签= c（之前，接近，后0-20，后20-40））
解决方案 和
scale_x_discrete 中的手动标签可以避免，如果你给ggplot它需要的数据。在这里，我重新创建了你的数据集，然后为你的情节添加了必要的信息。 ＃重新创建数据
y < - read.table（textConnection（'BoatPhs fit se lower upper
1 Before 3.685875 0.3287521 3.038621 4.333130
2 After 0-20NTA 3.317189 0.6254079 2.085872 4.548506
3 After0-20TAA 5.579384 0.5696270 4.457890 6.700878
4,020TAP后3.932360 0.4304098 3.084960 4.779760
5后20-40NTA 4.522714 0.7771793 2.992586 6.052842
6后20-40TAA 4.505207 0.5500699 3.422217 5.588196
7后20-40TAP 3.602183 0.3880538 2.838174 4.366192
8 ApproachNTA 4.039599 0.5688482 2.919638 5.159560
9 ApproachTAA 4.421112 0.5176408 3.401969 5.440255
10 ApproachTAP 4.497809 0.3978328 3.714547 5.281071'））
＃将时间段与时间段分开$ b $由$ boat.phase< -gsub（'。*（NTA | TAA | TAP）'，'\\1'，y $ BoatPhs）
y $ period< - gsub（'（。* ）（NTA | TAA | TAP）'，'\\1'，y $ BoatPhs）
＃给定时间段。
y $ period < - factor（y $ period，
levels = c（Before，Approach，After0-20，After20-40），
ordered = TRUE）
＃手动添加星星，但可以用编程方式计算这些星星。
y $ stars< -c（''，''，'***'，''，''，''，''，''，''，'*'）
现在，当您使用ggplot时，您可以将星星作为美学传递，而不必手动标记任何东西。为了分组你的X轴标签，你可以使用方面：
ggplot（y，aes（x = boat.phase， y = fit，ymax = fit + se，ymin = fit-se））+
geom_point（）+ geom_errorbar（width = 0.5，size = 0.75）+
geom_text（aes（y = fit + se +0.1，label = stars），size = 6）+
facet_grid（〜period，scale =free_x，space =free_x）+
xlab（Boat phase团体旅行速度（公里/小时））+
theme_bw（）
着色在这里是多余的，但如果您可以添加它。我还在下一个示例中添加了您的自定义主题。
ggplot（y， aes（x = boat.phase，y = fit，ymax = fit + se，ymin = fit-se，color = period））+
geom_point（）+ geom_errorbar（width = 0.5，size = 0.75）+
geom_text（aes（y = fit + se + 0.1，label = stars），size = 6）+
facet_grid（〜period，scales =free_x，space =free_x）+
xlab（Boat phas （＃000000，＃33CC33，＃3399FF，＃FF0000））+
scale_colour_manual（values = c（
主题（axis.title = element_text（face =bold，size = 16），
axis.title.x = element_text（vjust = -0.5），
axis.title.y = element_text（vjust = 1），
axis.text = element_text（size = 14，face =bold），
panel.grid = element_blank（），
panel.background = element_blank （），
axis.line = element_line（color =black））
< img src =https://i.stack.imgur.com/rrFRX.pngalt =在这里输入图片描述>
I have plotted a graph from the following table.
BoatPhs fit se lower upper
1 Before 3.685875 0.3287521 3.038621 4.333130
2 After0-20NTA 3.317189 0.6254079 2.085872 4.548506
3 After0-20TAA 5.579384 0.5696270 4.457890 6.700878
4 After0-20TAP 3.932360 0.4304098 3.084960 4.779760
5 After20-40NTA 4.522714 0.7771793 2.992586 6.052842
6 After20-40TAA 4.505207 0.5500699 3.422217 5.588196
7 After20-40TAP 3.602183 0.3880538 2.838174 4.366192
8 ApproachNTA 4.039599 0.5688482 2.919638 5.159560
9 ApproachTAA 4.421112 0.5176408 3.401969 5.440255
10 ApproachTAP 4.497809 0.3978328 3.714547 5.281071
The boat phase is the x axis and fit is plotted on the y. At the moment I have the axis ticks as Before, ApproachNTA, ApproachTAA, ApproachTAP, After0-20NTA etc.
I initially rotated these labels by 90 degrees so they were better to see, but didn't like the look of it. I've currently renamed the labels (using the code below) so that what is now displayed on the axis ticks is "Before NTA TAA TAP NTA TAA TAP NTA TAA TAP" on the x axis.
I was hoping to add some text in order to group the labels. Such as "Approach" under the first group of NTA TAA TAP, "After0-20" under the second and "After20-40" under the third, but I'm not sure how to do it outside of the plot. Tried with the annotate function but it only allows text within the plot area.
Any help would be much appreciated.
Cheers
# Speed plot
Spdplot <- ggplot(y, aes(x=BoatPhs, y=fit, colour=BP, ymax=max(fit)*1.05)) +
geom_point(position = position_dodge(width = 0.5, height = 0), size = 4) +
geom_errorbar(aes(ymin=fit-se, ymax=fit+se), position = position_dodge(width = 0.5, height = 0), width = 0.5, size = 0.75) +
theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
panel.background = element_blank(), axis.line = element_line(colour = "black"))
#run Spdplot
Spdplot
#sets x values in results order + relables x + y axes
Spdplot + scale_x_discrete(limits=c("Before","ApproachNTA","ApproachTAA","ApproachTAP","After0-20NTA","After0-20TAA","After0-20TAP", "After20-40NTA","After20-40TAA","After20-40TAP"),
labels=c("Before" = "Before" ,"ApproachNTA" ="NTA","ApproachTAA" = "TAA","ApproachTAP" = "TAP",
"After0-20NTA" = "NTA","After0-20TAA" = "TAA","After0-20TAP" = "TAP",
"After20-40NTA" = "NTA","After20-40TAA" = "TAA","After20-40TAP" = "TAP")) +
xlab("Boat phase") + ylab("Group travel speed (km/hr)") +
annotate("text", x=6, y=6.2, label="***", size = 6) +
annotate("text", x=4, y=4.95, label="*", size = 6) +
theme(axis.title.x = element_text(face="bold", size = 16, vjust= -0.5), axis.title.y = element_text(face="bold", size = 16, vjust= 1),
axis.text.x = element_text(size=14, face="bold"), axis.text.y = element_text(face="bold", size=14), legend.text=element_text(size=14)) +
theme(legend.title = element_blank()) +
scale_colour_manual(values=c("#3399FF","#FF0000","#33CC33","#000000"),
breaks=c("Before", "Approach", "After0-20", "After20-40"),
labels=c("Before", "Approach", "After0-20", "After20-40"))
解决方案
A lot of the fussing around you are doing with annotate and the manual labeling in scale_x_discrete can be avoided if you give ggplot the data it needs. Here I recreate your dataset, and then add the essential pieces of information for your plot.
# Recreate your data
y <- read.table(textConnection('BoatPhs fit se lower upper
1 Before 3.685875 0.3287521 3.038621 4.333130
2 After0-20NTA 3.317189 0.6254079 2.085872 4.548506
3 After0-20TAA 5.579384 0.5696270 4.457890 6.700878
4 After0-20TAP 3.932360 0.4304098 3.084960 4.779760
5 After20-40NTA 4.522714 0.7771793 2.992586 6.052842
6 After20-40TAA 4.505207 0.5500699 3.422217 5.588196
7 After20-40TAP 3.602183 0.3880538 2.838174 4.366192
8 ApproachNTA 4.039599 0.5688482 2.919638 5.159560
9 ApproachTAA 4.421112 0.5176408 3.401969 5.440255
10 ApproachTAP 4.497809 0.3978328 3.714547 5.281071'))
# Separate the boat phase from the time period
y$boat.phase <- gsub('.*(NTA|TAA|TAP)','\\1',y$BoatPhs)
y$period <- gsub('(.*)(NTA|TAA|TAP)','\\1',y$BoatPhs)
# Give the time period an ordering.
y$period <- factor(y$period,
levels = c("Before", "Approach", "After0-20", "After20-40"),
ordered=TRUE)
# Add the stars manually, but these could be calculated programatically.
y$stars <- c('', '', '***', '', '', '', '', '', '', '*')
Now when you use ggplot, you can pass the stars as aesthetics, and you won't have to label anything manually. To "group" your x axis labels, you can use facets:
ggplot(y, aes(x=boat.phase, y=fit, ymax=fit+se, ymin=fit-se)) +
geom_point() + geom_errorbar(width = 0.5, size = 0.75) +
geom_text(aes(y=fit+se+0.1, label=stars), size=6) +
facet_grid( ~ period, scales="free_x", space="free_x") +
xlab("Boat phase") + ylab("Group travel speed (km/hr)") +
theme_bw()
Colouring would be redundant here, but if you like it is possible to add it in. I also add in your custom theme in the next example.
ggplot(y, aes(x=boat.phase, y=fit, ymax=fit+se, ymin=fit-se, colour=period)) +
geom_point() + geom_errorbar(width = 0.5, size = 0.75) +
geom_text(aes(y=fit+se+0.1, label=stars), size=6) +
facet_grid( ~ period, scales="free_x", space="free_x") +
xlab("Boat phase") + ylab("Group travel speed (km/hr)") +
scale_colour_manual(values=c("#000000", "#33CC33", "#3399FF","#FF0000")) +
theme(axis.title = element_text(face="bold", size = 16),
axis.title.x = element_text(vjust= -0.5),
axis.title.y = element_text(vjust= 1),
axis.text = element_text(size=14, face="bold"),
panel.grid = element_blank(),
panel.background = element_blank(),
axis.line = element_line(colour = "black"))
这篇关于在ggplot中向轴标签添加文本的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
查看全文
