小编Z. *_*ang的帖子

假设我有 dd 并且我想拆分cc列并最终得到一个targetdd。

> dd <- tibble(aa=c("we","dd","qw"),
+              cc=c("de,34,ff,55u,gf,55","de,34","de,34,ff,55u"))
> dd
# A tibble: 3 x 2
  aa    cc                
  <chr> <chr>             
1 we    de,34,ff,55u,gf,55
2 dd    de,34             
3 qw    de,34,ff,55u      
> targetdd <- tibble(aa=c("we","we","we","dd","qw","qw"),
+                    cc= c("de,34","ff,55u","gf,55","de,34","de,34","ff,55u"))
> targetdd
# A tibble: 6 x 2
  aa    cc    
  <chr> <chr> 
1 we    de,34 
2 we    ff,55u
3 we    gf,55 
4 dd    de,34 
5 qw    de,34 
6 qw    ff,55u

假设我有 dd 并且我想拆分 cc 列并最终获得一个 targetdd。

假设我有一个数据框如下：

dat <- data.frame(
  ee=1:4,
  bb = 4:7,
  cc =4:7,
  dd = 2:5
)  
rownames(dat) <- colnames(dat)
dat
   ee bb cc dd
ee  1  4  4  2
bb  2  5  5  3
cc  3  6  6  4
dd  4  7  7  5

如何将列名和行名相同的单元格值替换为 1？还假设该位置可能不在对角线上，需要替换的位置可以出现在任意位置。

> dd <- tibble("Temper: 36.6?  Pulse:76 bpm RR: 16bpm BP?148/58 mmHg")
> dd
# A tibble: 1 x 1
  `"Temper: 36.6?  Pulse:76 bpm RR: 16bpm BP?148/58 mmHg"`
  <chr>                                                    
1 Temper: 36.6?  Pulse:76 bpm RR: 16bpm BP?148/58 mmHg    
> ddtarget <- tibble(Temper=36.6,Pulse=76,RR=16,SBP=148,DBP=58)
> ddtarget
# A tibble: 1 x 5
  Temper Pulse    RR   SBP   DBP
   <dbl> <dbl> <dbl> <dbl> <dbl>
1   36.6    76    16   148    58

我有一个dd并且想要一个ddtarget；如何使用地图或其他 tidyverse 函数来制作它？