# wide data → long data
S1a_fs_lv <- S1a_fs_valence %>%
rownames_to_column(var = 'sample') %>%
pivot_longer(cols = c("S1V1R1":"S2V2R2"),
names_to = 'conditions',
values_to = 'Valence')
# 需要对第4列数据进行拆分,拆成三列(即,将S, V, R的数据拆开来),接下来如何拆分呢?
# 求大神解答
# wide data → long data
S1a_lv <- S1SG_valence %>%
rownames_to_column(var = 'sample') %>%
pivot_longer(cols = c("V1R1":"V2R2"),
names_to = 'conditions',
values_to = 'Valence')
# 将一列拆分成两列
S1a_long_v <- S1a_lv %>% separate(5, c("Va", "Relevant"), sep = "(?<=\\d)(?=[R])")
我解决了,把分隔符设置为数字就行。
S1a_long_fsv <- separate(data = S1a_fs_lv, col = 4, into = c("facesex", "Va", "Relevant"), sep = '(?<=\\d)')