在R中，如何加载包含换行符的文本行，并在mtext中将它们显示为多行输出

Question

假设我创建了两个字符串，每个字符串都包含换行符，并将它们分配给变量，如下所示。

question_one<- 'What is your answer?\n\nYes\nNo\nMaybe'
question_two<- 'What is your reply?\n\nOne\nTwo\nThree'

然后writeLines(question_one)和mtext(side=1, question_one)在5个单独的行上输出问题（第二行是空白的）;这正是我追求的输出。

我不能做的是，将这两个字符串作为2行文本文档中的两行开头，使用

之类的内容将它们带入我的R会话

filename="/path/sample_questions.txt"
my_scanned_questions <- scan(filename, what="", sep="\r", allowEscapes=F)

然后使用mtext(side=1, my_scanned_questions[i])在5行上生成第i个问题的输出文本。

我尝试了sep值的各种组合，我的.txt文件中不同数字（1,2,4）的反斜杠等，allowEscapes为T和{{1但是，我能得到的最接近的是F在一条显示行上输出字符串mtext(side=1, my_scanned_questions[1])。

使用'q1 What is your answer?\n\nYes\nNo\nMaybe'而不是扫描，我没有更好的运气。

Answer 1

我创建了一个文本文件，其中包含三行文字here

您需要将单个双重换行替换为单个...

a <- readLines("https://gist.githubusercontent.com/corynissen/541100602ac4bc7b3dc6/raw/1adc16160a8a2aa705b7bbb3810723cc416079a1/a2.txt")
plot(1:10)
a <- gsub("\\\\n", "\n", a)
mtext(side=1, a[1])