將行拆分為多行,并在需要時添加NA

我有以下dataframe:

A      B       C       D       E       F       G      
1/2    3/4     4/5/6   7/8     9/10    11      12/13/14/15

并希望拆分為:

A      B       C       D       E       F       G      
1      3       4       7       9       11      12
2      4       5       8       10      NA      13   
NA     NA      6       NA      NA      NA      14
NA     NA      NA      NA      NA      NA      15

有什么緊湊的方法可以做到這一點嗎?

我一直在考慮將每一列分離成一個列表,使用以下內容:

 list_of_dfs

并且對于每個df do:

 modified_dfs %>% separate_rows(colnames(each_df), sep = "/")

然后合并過程中創(chuàng)建的所有dataframes。。。

 merge(modified_dfs)
? 最佳回答:

使用cSplit更容易

library(splitstackshape)
cSplit(df1, names(df1), sep = "/", "long")

-output

     A     B     C     D     E     F     G
   <int> <int> <int> <int> <int> <int> <int>
1:     1     3     4     7     9    11    12
2:     2     4     5     8    10    NA    13
3:    NA    NA     6    NA    NA    NA    14
4:    NA    NA    NA    NA    NA    NA    15

data

df1 <- structure(list(A = "1/2", B = "3/4", C = "4/5/6", D = "7/8", 
    E = "9/10", F = 11L, G = "12/13/14/15"), class = "data.frame", 
row.names = c(NA, 
-1L))
主站蜘蛛池模板: 丝袜人妻一区二区三区| 亚洲AV一区二区三区四区| 日本在线观看一区二区三区| 无码福利一区二区三区| 无码人妻少妇色欲AV一区二区| 国产成人精品一区二三区在线观看| 免费人妻精品一区二区三区| 日韩精品一区二区三区毛片| 无码人妻久久一区二区三区免费丨| 美女视频一区三区网站在线观看| 亚洲美女视频一区二区三区| 亚洲国产一区在线| 大香伊人久久精品一区二区| 无码国产精品一区二区免费式影视 | 亚洲AV美女一区二区三区 | 国产一区二区精品尤物| 久久国产精品免费一区二区三区| 色综合视频一区二区三区 | 日韩最新视频一区二区三| 亚洲福利一区二区| 色一情一乱一区二区三区啪啪高| 国产精品久久无码一区二区三区网| 亚洲一区二区三区国产精华液| 国内精品视频一区二区八戒| 精品中文字幕一区在线| 国产成人一区在线不卡| 久久国产精品最新一区| 国产成人综合一区精品| 欧洲亚洲综合一区二区三区| 日韩精品无码久久一区二区三| 久久精品国产一区二区| 无码人妻少妇色欲AV一区二区| 亚洲av无码一区二区三区四区 | 精品乱子伦一区二区三区| 中文字幕日韩一区二区三区不| 国产亚洲一区二区三区在线观看 | 国产亚洲综合精品一区二区三区| 一区二区日韩国产精品| 日韩精品在线一区二区| 亚洲AV香蕉一区区二区三区| 亚洲AV无码一区二区三区在线观看|