Измените форму в R с помощью шаблонов имен переменных

Я пытаюсь воспроизвести результаты reshape в Stata, используя базовую функцию reshape R.

Stata

webuse reshape3, clear
li, clean
// reshape long
reshape long inc@r ue, i(id) j(year)
list, sepby(id) clean

Это производит перед reshape:

. li, clean

       id   sex   inc80r   inc81r   inc82r   ue80   ue81   ue82  
  1.    1     0     5000     5500     6000      0      1      0  
  2.    2     1     2000     2200     3300      1      0      0  
  3.    3     0     3000     2000     1000      0      0      1  

Обратите внимание на образец имен заглушки inc. После reshape я получаю:

. list, sepby(id) clean

       id   year   sex   incr   ue  
  1.    1     80     0   5000    0  
  2.    1     81     0   5500    1  
  3.    1     82     0   6000    0  
  4.    2     80     1   2000    1  
  5.    2     81     1   2200    0  
  6.    2     82     1   3300    0  
  7.    3     80     0   3000    0  
  8.    3     81     0   2000    0  
  9.    3     82     0   1000    1  

R

У меня проблемы с R, так как я не знаю, как указать регулярное выражение, необходимое для синтаксического анализа имен переменных широкого формата.

library(foreign)
dfReshape3 <- read.dta('http://www.stata-press.com/data/r12/reshape3.dta')
reshape(dfReshape3, dir='long', varying=3:8, v.names=c('inc', 'ue'),
        times = c('80', '81', '82'))

Однако это дает мне:

     id sex time  inc   ue
1.80  1   0   80 5000 5500
2.80  2   1   80 2000 2200
3.80  3   0   80 3000 2000
1.81  1   0   81 6000    0
2.81  2   1   81 3300    1
3.81  3   0   81 1000    0
1.82  1   0   82    1    0
2.82  2   1   82    0    0
3.82  3   0   82    0    1

Любая помощь приветствуется.


person tchakravarty    schedule 03.02.2013    source источник
comment
что такое read.dta? Это не работает с использованием базы R.   -  person Arun    schedule 03.02.2013
comment
@arun Извинения. library(foreign).   -  person tchakravarty    schedule 03.02.2013
comment
Очень простое решение - просто удалить завершающий r из переменных inc [0-9] + r. names(dfReshape3) <- gsub("r$", "", names(dfReshape3)). Тогда изменить форму довольно просто: reshape(dfReshape3, dir='long', varying=3:8, sep = "")   -  person A5C1D2H2I1M1N2O1R2T1    schedule 30.03.2014


Ответы (1)


Вы были действительно близки, просто дайте список различных

 reshape(dfReshape3, dir='long', varying=list(c(3:5),c(6:8)), v.names=c('inc', 'ue'),times = c('80', '81', '82'))
     id sex time  inc ue
1.80  1   0   80 5000  0
2.80  2   1   80 2000  1
3.80  3   0   80 3000  0
1.81  1   0   81 5500  1
2.81  2   1   81 2200  0
3.81  3   0   81 2000  0
1.82  1   0   82 6000  0
2.82  2   1   82 3300  0
3.82  3   0   82 1000  1
person agstudy    schedule 03.02.2013
comment
есть ли способ создать параметр times в более общем виде? То есть не жестко кодировать числа c('80', '81', '82'), а восстанавливать их прямо из данных? Спасибо! - person Álvaro A. Gutiérrez-Vargas; 07.12.2020
comment
@ ÁlvaroA.GutiérrezVargas вы можете использовать регулярное выражение для извлечения цифр из имени набора данных. то есть: unique(stringr::str_extract(nn,"\\d+")) - person agstudy; 08.12.2020