下面是add_underline函数的定义和示例代码: add_underline<-function(text){underline<-paste(rep("-",nchar(text)),collapse="")result<-paste(underline,text,underline,sep="\n")return(result)}# 使用add_underline函数添加下划线text<-"这是一个示例文本"underlined_text<-add_underline(text)print(underlined...