Есть ли способ аннотировать ggplot с тремя строками одна над другой, сохраняя при этом одинаковые размеры текста в трех строках?
Я почти закончил, но размер текста в третьей строке отличается, похоже, что bgroup использует только первые две строки, и я не могу понять это правильно...
Я добавляю текст, используя приложения «поверх» из «?plotmath», который отлично работает, но текст в третьей строке имеет другой размер по сравнению с двумя другими строками...
library(ggplot2)
line1 = "xxx data1"
line2 = "yyy data2"
line3 = "zzz data3"
df=data.frame(x=rep(1:8, 3), y=c(0,1,3,4,5,6,7,8, 8,7,6,3,2,1,3,4, 0,2,4,5,6,7,8,9), variable=c("x", "x","x","x","x","x","x","x","y","y","y","y","y","y","y","y","z","z","z","z","z","z","z","z"))
p <- ggplot(df) + theme_bw() + geom_point(aes(x=x,y=y, color=variable)) + geom_line(aes(x=x,y=y, color=variable)) +
geom_text(x=max(df$x), y = max(df$y), label = paste('bgroup("{", atop(atop("',line1,'","',line2,'"),"', line3,'"), "}")',sep=''), size=3.5,parse=TRUE)
Я думал, что получаю все три строки в bgroup, но я не могу правильно вставить. Если есть что-то, что я могу попробовать, пожалуйста, посоветуйте. Спасибо большое!
