如何在 R 中使用 ggplot2 给数据两个注释
how to give a data two annotations using ggplot2 in R
这是我的例子:
a <- data.frame(X=c(1,2,3,4,5),Y=c(1,2,3,4,5),A1=c(1,2,3,4,5),A2=c(6,7,8,9,10))
A1和A2是两种注解。现在我只能在图中添加一个注释。
library(ggplot2)
ggplot(data=a,aes(x=X,y=Y,label=A1)) +
geom_point() +
geom_text(hjust=0,vjust=-1)
我可以把A1和A2放到plot里吗?所以看起来A1和A2是同一条竖线,而且A1在A2上面?
您可以在 label
中使用 paste
ggplot(data=a,aes(x=X,y=Y,label=paste(A1,A2, sep = ","))) + geom_point() + geom_text(hjust=0,vjust=-1)
您可以使用不同的 geom_text
:
library(ggplot2)
ggplot(a,aes(X, Y)) +
geom_point() +
geom_text(aes(label = A1), ahjust = 0, vjust = -2.5) +
geom_text(aes(label = A2), ahjust = 0, vjust = -1) +
ylim(c(min(a$Y), max(a$Y) + 1))
这是我的例子:
a <- data.frame(X=c(1,2,3,4,5),Y=c(1,2,3,4,5),A1=c(1,2,3,4,5),A2=c(6,7,8,9,10))
A1和A2是两种注解。现在我只能在图中添加一个注释。
library(ggplot2)
ggplot(data=a,aes(x=X,y=Y,label=A1)) +
geom_point() +
geom_text(hjust=0,vjust=-1)
我可以把A1和A2放到plot里吗?所以看起来A1和A2是同一条竖线,而且A1在A2上面?
您可以在 label
paste
ggplot(data=a,aes(x=X,y=Y,label=paste(A1,A2, sep = ","))) + geom_point() + geom_text(hjust=0,vjust=-1)
您可以使用不同的 geom_text
:
library(ggplot2)
ggplot(a,aes(X, Y)) +
geom_point() +
geom_text(aes(label = A1), ahjust = 0, vjust = -2.5) +
geom_text(aes(label = A2), ahjust = 0, vjust = -1) +
ylim(c(min(a$Y), max(a$Y) + 1))