6

我有一个数据集，我有兴趣在其中查看测试分数和经历事件的人的百分比：

dat <- data.frame(score = 1:7,
              n.event = c(263,5177,3599,21399,16228,10345,1452),
              n.total = c(877,15725,13453,51226,32147,26393,7875),
              percentage = c(30,33,27,42,50,39,18))

我可以用图表上的百分比来绘制它，如下所示：

ggplot(data=dat, aes(x=score, y=percentage)) +
  geom_line() +
  geom_text(aes(label = paste0(dat$percentage,"%")))

在此处输入图像描述

或者我可以用这样的分数来绘制它：

ggplot(data=dat, aes(x=score, y=percentage)) +
  geom_line() +
  geom_text(aes(label = paste0("frac(",dat$n.event, ",", dat$n.total, 
  ")")),parse = TRUE)

在此处输入图像描述

但我想让他们两个并排。这不起作用：

ggplot(data=dat, aes(x=score, y=percentage)) +
  geom_line() +
  geom_text(aes(label = paste0(dat$percentage,"%","frac(",dat$n.event, 
  ",", dat$n.total, ")")),parse = TRUE)

我收到此错误：

解析错误（文本 = as.character（实验室））：：1：3：意外输入 1：30%frac（263,877）^

谢谢您的帮助！

4

2 回答 2

5

问题在于parse=True告诉geom_text使用 R 数学注释（在 中描述?plotmath）。在此注释中，%是必须转义的特殊符号，并且空格也将被忽略。

为了使%公式的其余部分和解，我们必须对其进行转义，使用'%'，将其连接到前一个单词 using *，并在 using 后添加一个空格~。结果是：

ggplot(data=dat, aes(x=score, y=percentage)) +
     geom_line() +
     geom_text(aes(label = paste0(dat$percentage,"*\'%\'~","frac(",dat$n.event, 
                                  ",", dat$n.total, ")")),parse = TRUE)

在此处输入图像描述

于 2017-04-14T16:30:59.233 回答
3

像这样的东西怎么样：

ggplot(data=dat, aes(x=score, y=percentage)) +
  geom_line() +
  geom_text(aes(label = paste0(dat$percentage,"%"))) + 
  geom_text(aes(label = paste0("frac(",dat$n.event, ",", dat$n.total, 
  ")")),parse = TRUE, nudge_x = 0.0, nudge_y = -2)

使用nudge_x和nudge_y参数将标签放置到所需位置

于 2017-04-14T16:15:04.027 回答