r - 你如何在 R 中打开连字符和逗号分隔的数字范围？例如 1,3,5-7 -> 1,3,5,6,7 在不同的行

Question

大家好，我想知道是否有人可以帮助我解决一些让我在开始使用 R 时遇到困难的问题？类似于 this post but in R .

本质上与 R.utils 函数 seqToHumanReadable 相反。

即

<表类="s-表"><头>标题LLFC红色<正文>一个15, 1811.65b16 & 199.08c112-1146.45d113-115,145-1476.45

会变成:

<表类="s-表"><头>标题LLFC红色<正文>一个1511.65一个1811.65b169.08b199.08c1126.45c1136.45c1146.45d1136.45d1146.45d1156.45d1456.45d1466.45d1476.45

非常感谢您的帮助!

我开始尝试 if，计算出每个带连字符的数字之间的差异，并通过循环运行多次以尝试添加额外的行，但结果一团糟。

编辑:哇，非常感谢大家的回复。解决了我的问题，让我有更多的东西可以继续阅读!

Answer 1

看起来有点麻烦，但它会返回您预期的输出:

library(dplyr)

df %>% 
 mutate(LLFCs = gsub('-', ':', LLFCs)) %>% 
 separate_rows(LLFCs, sep = ',') %>% 
 rowwise() %>% 
 mutate(LLFCs = ifelse(grepl(':', LLFCs), toString(eval(parse(text = LLFCs))), LLFCs)) %>% 
 separate_rows(LLFCs)

# A tibble: 13 × 3
   Title LLFCs   Red
   <chr> <chr> <dbl>
 1 a     15    11.6 
 2 a     18    11.6 
 3 b     16     9.08
 4 b     19     9.08
 5 c     112    6.45
 6 c     113    6.45
 7 c     114    6.45
 8 d     113    6.45
 9 d     114    6.45
10 d     115    6.45
11 d     145    6.45
12 d     146    6.45
13 d     147    6.45