无法连接ggplot2的geom_text表达式中的3个元素 [英] Cannot concatenate more than 3 elements in an expression for ggplot2's geom_text

问题描述

我有一个数据框，我正在计算一个线性模型，并希望使用geom_text包含相关系数及其显着性。

 结构（列表（ppno = c（1L，1L，1L，10L，10L，10L，2L，2L，2L，
 3L，3L，3L，4L，4L，4L，5L，5L ，5L，6L，6L，6L，7L，7L，7L，8L，
 8L，8L，9L，9L，9L），light.color = structure（c（1L，2L，3L，1L，
 2L，3L，1L，2L，3L，1L，2L，3L，1L，2L，3L，1L，2L，3L，1L，2L，
 3L，1L，2L，3L，1L，2L， 3L，1L，2L，3L），.Label = c（B，IR，
IR + B），class =factor），session = c（2L，1L，3L， 2L，3L，1L，
 1L，3L，2L，3L，2L，1L，2L，3L，1L，3L，1L，2L，1L，2L，3L，2L，
 1L，3L， 1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L） ，1L，1L，1L，1L，1L，
 1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L），.Label = c（pre，
post），class =factor），pre.pri.s = c（NA，NA，NA，NA，NA，
 NA，NA，NA，NA，NA，NA，NA，NA ，NA，NA，NA，NA，NA，N A，NA，NA，
 NA，NA，NA，NA，NA，NA，NA，NA，NA），pre.pri.r = c（8L，4L，6L，
 2L，2L ，4L，10L，12L，9L，24L，16L，15L，15L，15L，15L，3L，5L，
 7L，13L，11L，12L，16L，15L，14L，21L，5L，8L， ，0L，0L），pre.nwc = c（5L，
 2L，4L，2L，2L，4L，10L，10L，9L，11L，10L，11L，12L，11L，11L，
 3L，5L，6L，9L，11L，12L，12L，11L，10L，11L，5L，8L，1L，0L，
 0L），pre.ppi = structure（c（3L，2L，2L，1L ，1L，2L，2L，3L，2L，
 3L，2L，2L，3L，3L，3L，1L，1L，2L，NA，2L，2L，3L，3L，3L，4L， bL 2，3L，1L，1L，1L），.Label = c（1，2，3，4，NULL），class =factor .pri.nwc = C（1.6，2，1.5％，1，1，1，1，1.2，1，2.18181818181818，
 1.6，1.36363636363636，1.25，1.36363636363636，1.36363636363636，
 1，1，1.16666666666667 ，1.44444444444444,1,1,1.3333333333333，
 1.36363636363636,1.4,1.90909090909091,1,1,1，NaN，NaN 
），post.pri.s = c（NA，NA，NA，NA， NA，NA，NA，NA，NA，
 NA，NA，NA，NA，NA，NA，NA，NA， NA，NA，NA，NA，NA，NA，
 NA，NA，NA，NA，NA），post.pri.r = c（4L，4L，7L，0L，0L，4L，
 3L，8L，7L，16L，12L，19L，6L，10L，4L，1L，3L，0L，3L，11L，
 15L，8L，9L，9L，8L，4L，3L， ，0L，0L），post.nwc = c（4L，
 3L，4L，0L，0L，3L，3L，8L，7L，10L，9L，15L，5L，9L，4L，
 1L，3L，0L，3L，8L，13L，8L，9L，9L，8L，4L，3L，0L，0L，
 0L），post.ppi = structure（c（2L，2L，3L，1L 1L，1L，1L，2L，
 2L，2L，2L，2L，2L，3L，2L，5L，1L，1L，NA，3L，2L，1L，1L，
 2L，3L ，2L，2L，1L，1L，1L），.Label = c（1，2，3，4，
NULL），class =factor .pri.nwc = C（1，1.33333333333333，
 1.75，NaN时，NaN时，1.33333333333333，1，1，1，1.6，1.33333333333333，
 1.26666666666667，1.2，1.11111111111111，1，1，1，NaN的，1，
 1.375,1.15384615384615,1,1,1,1,1,1，NaN，NaN，NaN），
 delta.pri.r = c（4,0.1，-1,2 ，2，0.1，7，4，2，8，4，-4，
 9,5,11,2,2,7,10,0.1，-3,8,6,5,13,​​1 ，5 ，1，0.1，
 0.1），delta.nwc = c（1，-1,0.1,2,2,1,7,2,2,1,1，-4，
 7， 2，7,2,2,6,6,3,1,4,2,1,3,1,5,1,0.1,0.1 
），δ.pri.nwc= c（-0.6 ，-0.666666666666667，0.25，NaN时，
 NaN时，0.333333333333333，0.1，-0.2，0.1，-0.581818181818182，
 -0.266666666666667，-0.0969696969696969，-0.05，-0.252525252525252，
 -0.363636363636364，0.1 ，0.1％，NaN时，-0.444444444444444，0.375，
 0.153846153846154，-0.333333333333333，-0.363636363636364，
 -0.4，-0.90909090909091，0.1％，0.1％，NaN时，NaN时，NAN），delta.vas = C（4.081632 ，
 -43.877544，-8.163264，-2.040816，0.510204，9.183672，8.163264，
 8.163264，11.224488，0，-14.285712，-11.224488，19.387752，
 0，26.530608，2.040816，10.20408， 11.224488，42.346932，-10.20408，
 -28.06122，11.224488，5.612244，21.428568，22.448976，0，
 23.469384，0.510204，-1.020408，0）），.Names = C（ ppno，光.color，
session，time，pre.pri.s，pre。 pri.r，pre.nwc，pre.ppi，
pre.pri.nwc，post.pri.s，post.pri.r，post.nwc ，post.ppi，
post.pri.nwc，delta.pri.r，delta.nwc，delta.pri.nwc，
delta.vas ），row.names = c（NA，-30L），class =data.frame）
  

使用此代码绘制图。

  p < -  ggplot（data = mpq.vas，mapping = aes（x = delta.vas，y = delta.pri.r，
 color = light.color））+ 
 geom_point（）+ 
 geom_smooth（aes（group = 1），method =lm ，size = 1，color =black）
＃
＃清理基础知识。 
 pp < -  p + geom_hline（yintercept = 0，color =grey60）+ 
 geom_vline（xintercept = 0，color =grey60）+ 
 scale_colour_manual（name =Treatment \ ncolor，values = cols）+ 
 scale_x_continuous（name = 
 expression（paste（Delta，VAS pain [t（0） -  t（60）]））+ 
 scale_y_continuous（name = expression（paste（Delta，PRI（r）[pre-post]）））
＃
＃添加关联信息。 
 val<  -  cor.test（mpq.vas $ delta.vas，mpq.vas $ delta.pri.r）
  

当我尝试在文本中某处添加相关系数时，我会在标签中Q的位置出现有关意外符号的错误。 p>

  pp + geom_text（aes（x = 20，y = -5，label = paste（italic（r）==， 3，Q，sep =）），
 parse = TRUE，color =black）
  

（是的，我知道3的关联是不可能的，只是一个例子）。

我想这样做：

  pp + geom_text（aes（x = 20，y = -5，label = paste（italic（r）==估计，digits = 2），\ np <0.0001，sep =）），parse = TRUE，color =black）
  

但是这会产生相同的错误，现在在\ n事情。

解决方案

  pp + geom_text（aes（x = 20， y = -5，
 label = paste（list（italic（r）==，round（val $ estimate，digits = 2），，p <0.0001））），
 parse = TRUE，color =black）
  

关键是如果解析标签参数== TRUE，这意味着文本需要与in？plotmath具有相同的格式。

geom_text正是这样做的：

  expr<  -  parse（text = label）
  

，然后使用expr作为标签来绘制文本。所以标签参数需要是一个有效的表达式。在你的例子中，

  paste（italic（r）==，3，Q，sep =） 
  

是无效的表达式，所以

  parse（text = paste（italic（r）==，3，Q，sep =））
  

导致错误。

在plotmath中，如果要连接符号，则需要使用：

/ p>

  paste（x，y，z）
 list（x，y，z）
  

所以如果你想简单地连接，那么

  geom_text（foobar，label = paste（paste（italic（r）==，3，Q），sep =））
  pre> 
 
 
第一个（外部）粘贴将一段文本连接成一个文本变量。 
在plotmath过程中使用了第二个（内部）粘贴。
 
 
 
在上面的示例中，我使用list（请参阅？plotmath）而不是粘贴，因为stats并且p值由`，'分隔。
 
I have a data frame for which I'm computing a linear model and would like to include the correlation coefficient and its significance using geom_text.
structure(list(ppno = c(1L, 1L, 1L, 10L, 10L, 10L, 2L, 2L, 2L, 
3L, 3L, 3L, 4L, 4L, 4L, 5L, 5L, 5L, 6L, 6L, 6L, 7L, 7L, 7L, 8L, 
8L, 8L, 9L, 9L, 9L), light.color = structure(c(1L, 2L, 3L, 1L, 
2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 
3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L), .Label = c("B", "IR", 
"IR+B"), class = "factor"), session = c(2L, 1L, 3L, 2L, 3L, 1L, 
1L, 3L, 2L, 3L, 2L, 1L, 2L, 3L, 1L, 3L, 1L, 2L, 1L, 2L, 3L, 2L, 
1L, 3L, 1L, 3L, 2L, 3L, 2L, 1L), time = structure(c(1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c("pre", 
"post"), class = "factor"), pre.pri.s = c(NA, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA), pre.pri.r = c(8L, 4L, 6L, 
2L, 2L, 4L, 10L, 12L, 9L, 24L, 16L, 15L, 15L, 15L, 15L, 3L, 5L, 
7L, 13L, 11L, 12L, 16L, 15L, 14L, 21L, 5L, 8L, 1L, 0L, 0L), pre.nwc = c(5L, 
2L, 4L, 2L, 2L, 4L, 10L, 10L, 9L, 11L, 10L, 11L, 12L, 11L, 11L, 
3L, 5L, 6L, 9L, 11L, 12L, 12L, 11L, 10L, 11L, 5L, 8L, 1L, 0L, 
0L), pre.ppi = structure(c(3L, 2L, 2L, 1L, 1L, 2L, 2L, 3L, 2L, 
3L, 2L, 2L, 3L, 3L, 3L, 1L, 1L, 2L, NA, 2L, 2L, 3L, 3L, 3L, 4L, 
2L, 3L, 1L, 1L, 1L), .Label = c("1", "2", "3", "4", "NULL"), class = "factor"), 
    pre.pri.nwc = c(1.6, 2, 1.5, 1, 1, 1, 1, 1.2, 1, 2.18181818181818, 
    1.6, 1.36363636363636, 1.25, 1.36363636363636, 1.36363636363636, 
    1, 1, 1.16666666666667, 1.44444444444444, 1, 1, 1.33333333333333, 
    1.36363636363636, 1.4, 1.90909090909091, 1, 1, 1, NaN, NaN
    ), post.pri.s = c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
    NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
    NA, NA, NA, NA, NA), post.pri.r = c(4L, 4L, 7L, 0L, 0L, 4L, 
    3L, 8L, 7L, 16L, 12L, 19L, 6L, 10L, 4L, 1L, 3L, 0L, 3L, 11L, 
    15L, 8L, 9L, 9L, 8L, 4L, 3L, 0L, 0L, 0L), post.nwc = c(4L, 
    3L, 4L, 0L, 0L, 3L, 3L, 8L, 7L, 10L, 9L, 15L, 5L, 9L, 4L, 
    1L, 3L, 0L, 3L, 8L, 13L, 8L, 9L, 9L, 8L, 4L, 3L, 0L, 0L, 
    0L), post.ppi = structure(c(2L, 2L, 3L, 1L, 1L, 1L, 1L, 2L, 
    2L, 2L, 2L, 2L, 2L, 3L, 2L, 5L, 1L, 1L, NA, 3L, 2L, 1L, 1L, 
    2L, 3L, 2L, 2L, 1L, 1L, 1L), .Label = c("1", "2", "3", "4", 
    "NULL"), class = "factor"), post.pri.nwc = c(1, 1.33333333333333, 
    1.75, NaN, NaN, 1.33333333333333, 1, 1, 1, 1.6, 1.33333333333333, 
    1.26666666666667, 1.2, 1.11111111111111, 1, 1, 1, NaN, 1, 
    1.375, 1.15384615384615, 1, 1, 1, 1, 1, 1, NaN, NaN, NaN), 
    delta.pri.r = c(4, 0.1, -1, 2, 2, 0.1, 7, 4, 2, 8, 4, -4, 
    9, 5, 11, 2, 2, 7, 10, 0.1, -3, 8, 6, 5, 13, 1, 5, 1, 0.1, 
    0.1), delta.nwc = c(1, -1, 0.1, 2, 2, 1, 7, 2, 2, 1, 1, -4, 
    7, 2, 7, 2, 2, 6, 6, 3, -1, 4, 2, 1, 3, 1, 5, 1, 0.1, 0.1
    ), delta.pri.nwc = c(-0.6, -0.666666666666667, 0.25, NaN, 
    NaN, 0.333333333333333, 0.1, -0.2, 0.1, -0.581818181818182, 
    -0.266666666666667, -0.0969696969696969, -0.05, -0.252525252525252, 
    -0.363636363636364, 0.1, 0.1, NaN, -0.444444444444444, 0.375, 
    0.153846153846154, -0.333333333333333, -0.363636363636364, 
    -0.4, -0.90909090909091, 0.1, 0.1, NaN, NaN, NaN), delta.vas = c(4.081632, 
    -43.877544, -8.163264, -2.040816, 0.510204, 9.183672, 8.163264, 
    8.163264, 11.224488, 0, -14.285712, -11.224488, 19.387752, 
    0, 26.530608, 2.040816, 10.20408, 11.224488, 42.346932, -10.20408, 
    -28.06122, 11.224488, 5.612244, 21.428568, 22.448976, 0, 
    23.469384, 0.510204, -1.020408, 0)), .Names = c("ppno", "light.color", 
"session", "time", "pre.pri.s", "pre.pri.r", "pre.nwc", "pre.ppi", 
"pre.pri.nwc", "post.pri.s", "post.pri.r", "post.nwc", "post.ppi", 
"post.pri.nwc", "delta.pri.r", "delta.nwc", "delta.pri.nwc", 
"delta.vas"), row.names = c(NA, -30L), class = "data.frame")
Using this code for the plot.
p <- ggplot(data=mpq.vas, mapping=aes(x=delta.vas, y=delta.pri.r, 
    colour=light.color)) +
  geom_point() +
  geom_smooth(aes(group=1), method="lm", size=1, colour="black")
#
#  Clean up the basics.
pp <- p + geom_hline(yintercept=0, colour="grey60") + 
  geom_vline(xintercept=0, colour="grey60") +
  scale_colour_manual(name="Treatment\ncolor", values=cols) +
  scale_x_continuous(name=
    expression(paste(Delta, " VAS pain [t(0) - t(60)]")))+
  scale_y_continuous(name=expression(paste(Delta, "PRI(r) [pre - post]")))
#
#  Add correlation info.
val <- cor.test(mpq.vas$delta.vas, mpq.vas$delta.pri.r)
When I then try to add the correlation coefficient somewhere in the text, I get an error about an unexpected symbol at the location of the Q in the label.
pp + geom_text(aes(x=20, y=-5, label=paste("italic(r) ==", 3, "Q", sep=" ")), 
    parse=TRUE, colour="black")
(yes, I know a correlation of 3 is impossible, just an example).

I would like to do:
pp + geom_text(aes(x=20, y=-5, label=paste("italic(r) ==", round(val$estimate, digits=2), "\np < 0.0001", sep=" ")),     parse=TRUE, colour="black")
But this generates the same error, now at the \n thingy. What am I doing wrong?
解决方案
pp + geom_text(aes(x=20, y=-5,
  label=paste("list(italic(r) ==", round(val$estimate, digits=2), ", p < 0.0001)")),
  parse=TRUE, colour="black")
The key is that the label argument is parsed if parse==TRUE, this means that the texts need to have a same format as in ?plotmath.

What the geom_text exactly do is like this:
expr <- parse(text=label)
and then draw text using the expr as a label. So label argument need to be a valid expression. In you example, 
paste("italic(r) ==", 3, "Q", sep=" ")
is invalid expression, so
parse(text=paste("italic(r) ==", 3, "Q", sep=" ")) 
induces an error.

In plotmath, if you want to concat symbols, then you need to use:
paste(x, y, z)
list(x, y, z)
So if you want to simply concat, then
geom_text(foobar, label=paste("paste(italic(r) ==", 3, "Q)", sep=" "))
The first (outside) paste concats a piece of texts into one text variable.
The second (inside) paste is used in plotmath process.

In my example above, I used list (see ?plotmath) instead of paste, because stats and p value is separated by `,'.

                        
这篇关于无法连接ggplot2的geom_text表达式中的3个元素的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！