Question

我正在尝试在x label中创建ggplot的第二行。需要在那里打印包含字母的矢量。

DF
line 1   line 2
A          1
B          1
C          2
D          2

我发现可以添加第二行标签

xlab = expression(atop(paste("line 1"),
            "line 2"))

但显然它只打印“第1行”和“第2行”。感谢您的任何建议。

Answer 1

请看一下mtext

mtext(c(paste(DF[,1], collapse=' '), paste(DF[,2], collapse=' ')), line=2:1)

编辑：这产生了你想要的东西，或者？

x <- runif(n=10)
lt <- data.frame(line1=c('A', 'B', 'C', 'D'), line2=rep(1:2, each=2))
plot(x)
mtext(c(paste(lt$line1, collapse=' '), paste(lt$line2, collapse=' ')), line=2:1)

EDIT2：使用ggplot2

df <- data.frame(gp = factor(rep(letters[1:3], each = 10)), y = rnorm(30))
library(ply)
ds <- ddply(df, .(gp), summarise, mean = mean(y), sd = sd(y))
plot.new()
ggplot(df, aes(x = gp, y = y)) + geom_point() + geom_point(data = ds, aes(y = mean), colour = 'red', size = 3)
mtext(c('x', 'y'), line=1:2, side=2)

将矢量粘贴到x标签中的表达

1 个答案: