R语言中如何重排vector向量避免相邻位置出现相同元素

• 标题使用井号（#）进行标记，井号的数量对应标题的层级
• 列表项以短横线（-）开头排版
• 需要强调的文本使用星号（*）包裹，示例：这是被强调的内容
• 代码片段或命令内容使用反引号（）包裹，示例：foo_bar <- c("a","b","c")`
• 引用文本使用大于号（>）开头，示例：

这是一段引用内容

• 链接使用格式[链接显示文本](链接URL)，按需填充对应内容即可
• 图片使用格式[图片替代描述文本](图片URL)，按需填充对应内容即可

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