R绘图时从Excel导入的标签中\n无法生效换行的问题咨询

你在Excel单元格中输入的\n是字面量的两个独立字符（反斜杠+字母n），而R代码中直接写的\n是转义字符，代表真正的换行符。readxl读取Excel内容时会默认保留\n的字面含义，不会自动转义为换行符，因此绘图时无法识别换行。

只需要对从Excel读取的标签内容做一次字符串替换，将所有字面量\n替换为R识别的换行符即可，替换代码中\\\\n是正则匹配的特殊写法，用于匹配文本中实际存储的单个反斜杠加n的组合。有两种常用实现方式：

• 使用stringr包（tidyverse系列自带）

  test2 <- read_excel("mwe.xlsx")
  # 新增替换代码
  test2$test <- str_replace_all(test2$test, "\\\\n", "\n")
  

• 使用R基础包gsub函数（无需额外加载依赖）

  test2 <- read_excel("mwe.xlsx")
  test2$test <- gsub("\\\\n", "\n", test2$test)
  

library(ggplot2)                        #used to make figures
library(tidyverse)
library(dplyr)
library(readxl)                         #import excel files

test <- "this is a really long sentence that has one \n line break that is kind of near the middle."
test2 <- read_excel("mwe.xlsx")
# 新增转义替换代码
test2$test <- str_replace_all(test2$test, "\\\\n", "\n")

set.seed(16)
dataf <- tibble(
    percent=runif(4,0,1),
    group=c("Group A", "Group B", "Group C", "Group D")
)

fig <- ggplot(data=dataf, aes(y=percent,x=group)) +
    geom_bar(stat="identity") +
    annotate("text",
             y=0.5,x=2,label=test)+
    annotate("text",
             y=0.25,x=3,label=test2$test)
fig

内容的提问来源于stack exchange，提问作者PaulB