R语言字符串与时间格式化：参数、转义及常用函数详解

字符串格式化

R语言中字符串可使用单引号或双引号定义。在基本语义上二者等价，主要区别在于包含引号时的处理方式：若字符串内部需包含单引号，建议使用双引号包裹；反之亦然。

第1步：使用format函数调整显示样式

format() 是控制数据打印外观的核心函数，可精准设定数字宽度、精度及对齐方式。

• 入口参数：输入向量 x，以及控制显示的辅助参数。
• 重要参数：
• digits：总有效数字位数。
• nsmall：小数点后保留的最少位数（不足时补零）。
• scientific：逻辑值，设置为 TRUE 强制使用科学计数法。
• width：指定最小显示宽度，短于该宽度的内容会左侧填充空格。
• justify：对齐方式，可选 "left"（左对齐）、"right"（右对齐）、"centre"（居中）或 "none"（默认）。
• 完成状态：控制台返回经过格式化处理的字符向量。

# 设置总有效数字为9位
> format(23.123456789, digits = 9)
[1] "23.1234568"

# 强制科学计数法
> format(c(6, 13.14521), scientific = TRUE)
[1] "6.000000e+00" "1.314521e+01"

# 确保小数点右侧至少有5位
> format(23.47, nsmall = 5)
[1] "23.47000"

转义字符与输出显示

R语言支持多种转义字符来处理特殊的文本结构，例如换行（\n）、回车（\r）、制表位（\t）以及反斜杠本身（\\）。在处理Windows路径或复杂文本时，需特别注意反斜杠的转义，建议直接改用正斜杠 / 以简化写法。

第2步：区分 print 与 cat 的输出行为

目的：确认转义字符是否在视觉上正确渲染（如实际换行）。

• 操作：比较 print() 与 cat() 对含转义符字符串的处理差异。
• 差异说明：
• print() 会在结果周围加上引号，并将转义符显示为可见的代码形式（如 \n），适合调试查看数据结构。
• cat() 不添加额外引号，直接按原义解释转义字符，实现实际的屏幕排版效果（如真正的空行）。

> # print显示的是转义代码本身
> print('asdf\nasdf')
[1] "asdf\nasdf"

> # cat则执行了真正的换行操作
> cat('asdf\nasdf')
asdf
asdf

此外，\a 可用于发出系统提示音，但在脚本中通常推荐使用更规范的报警函数（如特定环境下的报警接口）替代直接输出此字符。

时间格式化

R语言提供了内置函数快速获取当前系统时间，并通过自定义格式字符串生成符合业务需求的输出。

第3步：获取当前时间并定制输出格式

• 获取对象：
  - 日期：Sys.Date()，仅包含年月日。
  - 完整时间：Sys.time()，包含时分秒与时区信息。
• 格式化方法：
  调用 format(time_obj, format_string) 配合占位符使用。可通过 tz 参数转换时区。

示例中，将北京时间（CST）转换为 UTC 时间，并指定“HH:MM:SS DD/MM/YYYY”的输出样式：

> t0 <- Sys.time()
> d0 <- Sys.Date()

> # 原始输出带有CST标识
> print(d0)
[1] "2023-03-15"
> print(t0)
[1] "2023-03-15 13:34:54 CST"

> # 转为UTC时区并改变展示顺序
> format(t0, "%H:%M:%S %d/%m/%Y", tz="UTC")
[1] "05:34:54 15/03/2023"

常见的时间格式占位符对照如下：

常用字符串函数

R语言原生提供了一系列高效处理文本的工具，涵盖大小写转换、截取及拼接分割。对于复杂的正则需求，虽然 R 也支持，但上述基础函数已覆盖多数日常场景。

第4步：使用核心函数操作字符串

• 大小写转换： toupper()（转大写）与 tolower()（转小写）。
• 组合与分割： paste() 用于拼接（默认以空格分隔），strsplit() 按指定模式切割字符串。
• 截取子串： substr() 和 substring()。二者功能类似，均通过起始位置和结束位置提取片段（索引从1开始，注意不要误用从0开始的思维）。

> tStr <- format(t0, "%H:%M:%S %d/%m/%Y", tz="UTC")
> tStr
[1] "05:34:54 15/03/2023"

# 按冒号分割
> strsplit(tStr, ':')
[[1]]
[1] "05"            "34"            "54 15/03/2023"

# 合并两个字符串
> paste(tStr, tStr)
[1] "05:34:54 15/03/2023 05:34:54 15/03/2023"

# 截取前15个字符 (从第1位开始)
> substring(tStr, 1, 15)
[1] "05:34:54 15/03/"

# substr同样从第1位开始计算长度
> substr(tStr, 1, 15)
[1] "05:34:54 15/03/"