如何在R中的数字之间插入虚线

请帮我在6位数字的第2位和第4位后面插入破折号。例如，日期格式的简短版本：631022

---

63是年，10是月，22是日。

如果您希望字符串成为实际日期，lubridate软件包在这方面非常棒，尤其是函数

ymd（…

）。也就是说，它会猜测您是想要2063还是1963，并且可能无法正确执行。您可以尝试以下方法：

 library(lubridate)
 x <- "631022"
 ymd(paste0("19", x))

库（lubridate）
x如果您希望字符串成为实际日期，lubridate软件包对于这类事情来说非常棒，尤其是函数
ymd（…
。也就是说，它会猜测您想要的是2063还是1963，并且可能做得不正确。您可以尝试以下方法：

 library(lubridate)
 x <- "631022"
 ymd(paste0("19", x))

库（lubridate）
x目标是什么？最终是否要将其转换为日期？能否提供一个输出格式的示例以增加清晰度？您说明了年、月和日，但最好能看到您想要的输出字符串。目标是什么？最终是否要将其转换为日期？能否提供一个示例f输出格式以增加清晰度？您说明了年、月和日，但最好能看到您想要的输出字符串。假设lubridate的
ymd
使用与
strptime
相同的方法，我们知道小于
68
的任何内容都将假定前缀为
20
：“没有世纪的年份”（00–99）。输入时，值00到68的前缀为20，值69到99的前缀为19，这是2004年和2008年POSIX标准规定的行为，但它们也表示“预计在未来版本中，从两位数年份推断的默认世纪将发生变化。”假设lubridate的
ymd
使用与
strtime
相同的方法，我们知道小于
68
的任何内容都将被假定为前缀为
20
：“没有世纪的年份（00–99）.输入时，值00至68的前缀为20，值69至99的前缀为19，这是2004年和2008年POSIX标准规定的行为，但它们也表示“预计在未来版本中，从两位数年份推断的默认世纪将发生变化。”