เดชเดพเดเตเดเตเดเต เดตเตเดคเตเดคเดฟเดฏเตเดณเตเดณ R เดญเดพเดทเดฏเดฟเดฒเต เดเดฑเตเดฑเดตเตเด เดเดจเดชเตเดฐเดฟเดฏเดฎเดพเดฏ เดเดฐเต เดฒเตเดฌเตเดฐเดฑเดฟเดฏเตเดเต เดเดพเดฎเตเดชเดฟเตฝ เดเตพเดชเตเดชเตเดเตเดคเตเดคเดฟเดฏเดฟเดเตเดเตเดฃเตเดเต - เดตเตเดคเตเดคเดฟเดฏเตเดณเตเดณ.
เดชเดพเดเตเดเตเดเดฟเตปเตเดฑเต เดชเตเดฐเดงเดพเดจ เดฒเดเตเดทเตเดฏเด เดกเดพเดฑเตเดฑเดฏเต เดเตเดคเตเดฏเดฎเดพเดฏ เดฐเตเดชเดคเตเดคเดฟเดฒเตเดเตเดเต เดเตเดฃเตเดเตเดตเดฐเดฟเด เดเดจเตเดจเดคเดพเดฃเต.
เดนเดฌเตเดฐเตเดฏเดฟเตฝ เดเดคเดฟเดจเดเด เดฒเดญเตเดฏเดฎเดพเดฃเต เด เดชเดพเดเตเดเตเดเดฟเดจเดพเดฏเดฟ เดธเดฎเตผเดชเตเดชเดฟเดเตเดเดฟเดฐเดฟเดเตเดเตเดจเตเดจเต, เดเดจเตเดจเดพเตฝ เดเดคเต 2015 เดฎเตเดคเดฒเตเดณเตเดณเดคเดพเดฃเต. เดเตเดฑเดเตเดเต เดฆเดฟเดตเดธเดเตเดเตพเดเตเดเต เดฎเตเดฎเตเดชเต เด เดคเดฟเตปเตเดฑเต เดฐเดเดฏเดฟเดคเดพเดตเดพเดฏ เดนเตเดกเตโเดฒเดฟ เดตเดฟเดเตเดเดพเด เดชเตเดฐเดเตเดฏเดพเดชเดฟเดเตเด เดเดฑเตเดฑเดตเตเด เดชเตเดคเดฟเดฏ เดฎเดพเดฑเตเดฑเดเตเดเดณเตเดเตเดเตเดฑเดฟเดเตเดเต เดเดพเตป เดจเดฟเดเตเดเดณเตเดเต เดชเดฑเดฏเดพเตป เดเดเตเดฐเดนเดฟเดเตเดเตเดจเตเดจเต.
เดเดธเต.เดเต.เดเต.: เดถเตเดเดฐเดฟเดเตเดเตเดเดฏเตเด () เดชเตเดฐเดเดฐเดฟเดชเตเดชเดฟเดเตเดเตเดเดฏเตเด () เดจเดฟเดฐเดธเดฟเดเตเดเดชเตเดชเตเดเตเดฎเต?
เดนเดพเดกเตโเดฒเดฟ เดตเดฟเดเตเดเดพเด: เดเดฐเต เดชเดฐเดฟเดงเดฟ เดตเดฐเต. เด เดซเดเดเตโเดทเดจเตเดเตพ เดเดชเดฏเตเดเดฟเดเตเดเดพเดจเตเด เด เดตเดฏเดฟเดฒเต เดฌเดเตเดเตพ เดชเดฐเดฟเดนเดฐเดฟเดเตเดเดพเดจเตเด เดเดเตเดเตพ เดฎเตเดฒเดฟเตฝ เดถเตเดชเดพเตผเดถ เดเตเดฏเตเดฏเดฟเดฒเตเดฒ, เดชเดเตเดทเต เด เดต เดชเดพเดเตเดเตเดเดฟเตฝ เดจเดฟเดฒเดตเดฟเดฒเตเดณเตเดณ เด เดตเดธเตเดฅเดฏเดฟเตฝ เดคเดจเตเดจเต เดคเตเดเดฐเตเด.
เดเดณเตเดณเดเดเตเดเด
เดจเดฟเดเตเดเตพเดเตเดเต เดกเดพเดฑเตเดฑ เดตเดฟเดถเดเดฒเดจเดคเตเดคเดฟเตฝ เดคเดพเตฝเดชเตเดชเดฐเตเดฏเดฎเตเดฃเตเดเตเดเตเดเดฟเตฝ, เดจเดฟเดเตเดเตพเดเตเดเต เดเดจเตเดฑเต เดคเดพเตฝเดชเตเดชเดฐเตเดฏเดฎเตเดฃเตเดเดพเดเดพเด ะธ เดเดพเดจเดฒเตเดเตพ. เดเดณเตเดณเดเดเตเดเดคเตเดคเดฟเดจเตเดฑเต เดญเตเดฐเดฟเดญเดพเดเดตเตเด R เดญเดพเดทเดฏเตโเดเตเดเดพเดฏเดฟ เดธเดฎเตผเดชเตเดชเดฟเดเตเดเดฟเดฐเดฟเดเตเดเตเดจเตเดจเต.
TidyData เดเดถเดฏเด
เดฒเดเตเดทเตเดฏเด เดตเตเดคเตเดคเดฟเดฏเตเดณเตเดณ โ เดเดฐเต เดตเตเดคเตเดคเดฟเดฏเตเดณเตเดณ เดซเตเดฎเดฟเดฒเตเดเตเดเต เดกเดพเดฑเตเดฑ เดเตเดฃเตเดเตเดตเดฐเดพเตป เดจเดฟเดเตเดเดณเต เดธเดนเดพเดฏเดฟเดเตเดเตเดจเตเดจเต. เดจเดฟเดทเตเดเดณเดเตเดเดฎเดพเดฏ เดกเดพเดฑเตเดฑ เดเดจเตเดจเดคเต เดเดตเดฟเดเตเดฏเตเดณเตเดณ เดกเดพเดฑเตเดฑเดฏเดพเดฃเต:
- เดเดฐเต เดตเตเดฐเดฟเดฏเดฌเดฟเดณเตเด เดเดฐเต เดเตเดณเดคเตเดคเดฟเดฒเดพเดฃเต.
- เดเดฐเต เดจเดฟเดฐเตเดเตเดทเดฃเดตเตเด เดเดฐเต เดเดฐเดเดพเดฃเต.
- เดเดฐเต เดฎเตเดฒเตเดฏเดตเตเด เดเดฐเต เดธเตเดฒเตเดฒเดพเดฃเต.
เดตเดฟเดถเดเดฒเดจเด เดจเดเดคเตเดคเตเดฎเตเดชเตเตพ เดตเตเดคเตเดคเดฟเดฏเตเดณเตเดณ เดกเดพเดฑเตเดฑเดฏเดฟเตฝ เด เดตเดคเดฐเดฟเดชเตเดชเดฟเดเตเด เดกเดพเดฑเตเดฑเดฏเตเดฎเดพเดฏเดฟ เดชเตเดฐเดตเตผเดคเตเดคเดฟเดเตเดเตเดจเตเดจเดคเต เดตเดณเดฐเต เดเดณเตเดชเตเดชเดตเตเด เดธเตเดเดฐเตเดฏเดชเตเดฐเดฆเดตเตเดฎเดพเดฃเต.
tidyr เดชเดพเดเตเดเตเดเดฟเตฝ เดเตพเดชเตเดชเตเดเตเดคเตเดคเดฟเดฏเดฟเดฐเดฟเดเตเดเตเดจเตเดจ เดชเตเดฐเดงเดพเดจ เดชเตเดฐเดตเตผเดคเตเดคเดจเดเตเดเตพ
เดชเดเตเดเดฟเดเดเตพ เดฐเตเดชเดพเดจเตเดคเดฐเดชเตเดชเตเดเตเดคเตเดคเตเดจเตเดจเดคเดฟเดจเต เดฐเตเดชเดเตฝเดชเตเดชเดจ เดเตเดฏเตเดค เดเดฐเต เดเตเดเตเดเด เดซเดเดเตเดทเดจเตเดเตพ tidyr-เตฝ เด เดเดเตเดเดฟเดฏเดฟเดฐเดฟเดเตเดเตเดจเตเดจเต:
fill()- เดฎเตเดฎเตเดชเดคเตเดคเต เดฎเตเดฒเตเดฏเดเตเดเดณเตเดณเตเดณ เดเดฐเต เดจเดฟเดฐเดฏเดฟเตฝ เดจเดทเตเดเดชเตเดชเตเดเตเด เดฎเตเดฒเตเดฏเดเตเดเตพ เดชเตเดฐเดฟเดชเตเดชเดฟเดเตเดเตฝ;separate()- เดเดฐเต เดธเตเดชเตเดชเดฑเตเดฑเตเดฑเตผ เดเดชเดฏเตเดเดฟเดเตเดเต เดเดฐเต เดซเตเตฝเดกเต เดชเดฒ เดญเดพเดเดเตเดเดณเดพเดฏเดฟ เดตเดฟเดญเดเดฟเดเตเดเตเดจเตเดจเต;unite()- เดจเดฟเดฐเดตเดงเดฟ เดซเตเตฝเดกเตเดเตพ เดเดจเตเดจเดพเดฏเดฟ เดธเดเดฏเตเดเดฟเดชเตเดชเดฟเดเตเดเตเดจเตเดจ เดชเตเดฐเดตเตผเดคเตเดคเดจเด เดจเดเดคเตเดคเตเดจเตเดจเต, เดซเดเดเตเดทเตปเตเดฑเต เดตเดฟเดชเดฐเตเดค เดชเตเดฐเดตเตผเดคเตเดคเดจเดseparate();pivot_longer()- เดตเตเดกเต เดซเตเตผเดฎเดพเดฑเตเดฑเดฟเตฝ เดจเดฟเดจเตเดจเต เดฒเตเดเดเต เดซเตเตผเดฎเดพเดฑเตเดฑเดฟเดฒเตเดเตเดเต เดกเดพเดฑเตเดฑ เดชเดฐเดฟเดตเตผเดคเตเดคเดจเด เดเตเดฏเตเดฏเตเดจเตเดจ เดเดฐเต เดซเดเดเตเดทเตป;pivot_wider()- เดฒเตเดเดเต เดซเตเตผเดฎเดพเดฑเตเดฑเดฟเตฝ เดจเดฟเดจเตเดจเต เดตเตเดกเต เดซเตเตผเดฎเดพเดฑเตเดฑเดฟเดฒเตเดเตเดเต เดกเดพเดฑเตเดฑ เดชเดฐเดฟเดตเตผเดคเตเดคเดจเด เดเตเดฏเตเดฏเตเดจเตเดจ เดเดฐเต เดซเดเดเตเดทเตป. เดซเดเดเตโเดทเตป เดจเดเดคเตเดคเตเดจเตเดจ เดเดจเตเดจเดฟเตปเตเดฑเต เดตเดฟเดชเดฐเตเดค เดชเตเดฐเดตเตผเดคเตเดคเดจเดpivot_longer().gather()เดเดพเดฒเดนเดฐเดฃเดชเตเดชเตเดเตเด - เดตเตเดกเต เดซเตเตผเดฎเดพเดฑเตเดฑเดฟเตฝ เดจเดฟเดจเตเดจเต เดฒเตเดเดเต เดซเตเตผเดฎเดพเดฑเตเดฑเดฟเดฒเตเดเตเดเต เดกเดพเดฑเตเดฑ เดชเดฐเดฟเดตเตผเดคเตเดคเดจเด เดเตเดฏเตเดฏเตเดจเตเดจ เดเดฐเต เดซเดเดเตเดทเตป;spread()เดเดพเดฒเดนเดฐเดฃเดชเตเดชเตเดเตเด - เดฒเตเดเดเต เดซเตเตผเดฎเดพเดฑเตเดฑเดฟเตฝ เดจเดฟเดจเตเดจเต เดตเตเดกเต เดซเตเตผเดฎเดพเดฑเตเดฑเดฟเดฒเตเดเตเดเต เดกเดพเดฑเตเดฑ เดชเดฐเดฟเดตเตผเดคเตเดคเดจเด เดเตเดฏเตเดฏเตเดจเตเดจ เดเดฐเต เดซเดเดเตเดทเตป. เดซเดเดเตโเดทเตป เดจเดเดคเตเดคเตเดจเตเดจ เดเดจเตเดจเดฟเตปเตเดฑเต เดตเดฟเดชเดฐเตเดค เดชเตเดฐเดตเตผเดคเตเดคเดจเดgather().
เดกเดพเดฑเตเดฑ เดตเตเดกเต เดฎเตเดคเตฝ เดฒเตเดเดเต เดซเตเตผเดฎเดพเดฑเตเดฑเดฟเดฒเตเดเตเดเตเด เดคเดฟเดฐเดฟเดเตเดเตเด เดชเดฐเดฟเดตเตผเดคเตเดคเดจเด เดเตเดฏเตเดฏเตเดจเตเดจเดคเดฟเดจเตเดณเตเดณ เดชเตเดคเดฟเดฏ เดเดถเดฏเด
เดฎเตเดฎเตเดชเต, เดเดคเตเดคเดฐเดคเตเดคเดฟเดฒเตเดณเตเดณ เดชเดฐเดฟเดตเตผเดคเตเดคเดจเดคเตเดคเดฟเดจเต เดซเดเดเตเดทเดจเตเดเตพ เดเดชเดฏเตเดเดฟเดเตเดเดฟเดฐเตเดจเตเดจเต gather() ะธ spread(). เด เดซเดเดเตโเดทเดจเตเดเตพ เดจเดฟเดฒเดจเดฟเดจเตเดจ เดตเตผเดทเดเตเดเดณเดฟเตฝ, เดชเดพเดเตเดเตเดเดฟเตปเตเดฑเต เดฐเดเดฏเดฟเดคเดพเดตเต เดเตพเดชเตเดชเตเดเต เดฎเดฟเดเตเด เดเดชเดฏเตเดเตเดคเดพเดเตเดเตพเดเตเดเตเด, เด เดซเดเดเตโเดทเดจเตเดเดณเตเดเต เดชเตเดฐเตเดเดณเตเด เด
เดตเดฏเตเดเต เดตเดพเดฆเดเตเดเดณเตเด เดคเดฟเดเดเตเดเตเด เดตเตเดฏเดเตเดคเดฎเดฒเตเดฒเตเดจเตเดจเตเด เด
เดต เดเดฃเตเดเตเดคเตเดคเตเดจเตเดจเดคเดฟเดฒเตเด เด เดซเดเดเตโเดทเดจเตเดเดณเดฟเตฝ เดเดคเดพเดฃเต เดชเดฐเดฟเดตเตผเดคเตเดคเดจเด เดเตเดฏเตเดฏเตเดจเตเดจเดคเตเดจเตเดจเต เดฎเดจเดธเดฟเดฒเดพเดเตเดเตเดจเตเดจเดคเดฟเดฒเตเด เดฌเตเดฆเตเดงเดฟเดฎเตเดเตเดเตเดเตพ เดธเตเดทเตเดเดฟเดเตเดเต. เดตเตเดกเต เดฎเตเดคเตฝ เดฒเตเดเดเต เดซเตเตผเดฎเดพเดฑเตเดฑเต เดตเดฐเตเดฏเตเดณเตเดณ เดคเตเดฏเดคเดฟ เดซเตเดฐเตเดฏเดฟเด, เดคเดฟเดฐเดฟเดเตเดเตเด.
เดเดเตเดเดพเดฐเตเดฏเดคเตเดคเดฟเตฝ, เดเตป เดตเตเดคเตเดคเดฟเดฏเตเดณเตเดณ เดคเตเดฏเดคเดฟ เดซเตเดฐเตเดฏเดฟเดฎเตเดเตพ เดฐเตเดชเดพเดจเตเดคเดฐเดชเตเดชเตเดเตเดคเตเดคเตเดจเตเดจเดคเดฟเดจเต เดฐเตเดชเดเตฝเดชเตเดชเดจ เดเตเดฏเตโเดคเดฟเดฐเดฟเดเตเดเตเดจเตเดจ เดฐเดฃเตเดเต เดชเตเดคเดฟเดฏ, เดชเตเดฐเดงเดพเดจเดชเตเดชเตเดเตเด เดซเดเดเตโเดทเดจเตเดเตพ เดเตเตผเดคเตเดคเต.
เดชเตเดคเดฟเดฏ เดธเดตเดฟเดถเตเดทเดคเดเตพ pivot_longer() ะธ pivot_wider() เดชเดพเดเตเดเตเดเดฟเดฒเต เดเดฟเดฒ เดธเดตเดฟเดถเตเดทเดคเดเดณเดฟเตฝ เดจเดฟเดจเตเดจเต เดชเตเดฐเดเตเดฆเดจเด เดเตพเดเตเดเตเดฃเตเดเดฟเดฐเตเดจเตเดจเต cdata, เดเตเตบ เดฎเตเดฃเตเดเตเด เดจเตเดจ เดธเตเดฎเดฒเตเด เดเตเตผเดจเตเดจเต เดธเตเดทเตเดเดฟเดเตเดเดคเต.
tidyr 0.8.3.9000-เตปเตเดฑเต เดเดฑเตเดฑเดตเตเด เดชเตเดคเดฟเดฏ เดชเดคเดฟเดชเตเดชเต เดเตปเดธเตเดฑเตเดฑเดพเตพ เดเตเดฏเตเดฏเตเดจเตเดจเต
เดชเดพเดเตเดเตเดเดฟเตปเตเดฑเต เดเดฑเตเดฑเดตเตเด เดชเตเดคเดฟเดฏ เดชเดคเดฟเดชเตเดชเต เดเตปเดธเตเดฑเตเดฑเดพเตพ เดเตเดฏเตเดฏเดพเตป เดตเตเดคเตเดคเดฟเดฏเตเดณเตเดณ 0.8.3.9000, เดชเตเดคเดฟเดฏ เดซเตเดเตเดเดฑเตเดเตพ เดฒเดญเตเดฏเดฎเดพเดเตเดจเตเดจเดฟเดเดคเตเดคเต, เดเดจเดฟเดชเตเดชเดฑเดฏเตเดจเตเดจ เดเตเดกเต เดเดชเดฏเตเดเดฟเดเตเดเตเด.
devtools::install_github("tidyverse/tidyr")
เดเดดเตเดคเตเดจเตเดจ เดธเดฎเดฏเดคเตเดคเต, เด เดซเดเดเตโเดทเดจเตเดเตพ GitHub-เดฒเต เดชเดพเดเตเดเตเดเดฟเตปเตเดฑเต dev เดชเดคเดฟเดชเตเดชเดฟเตฝ เดฎเดพเดคเตเดฐเดฎเต เดฒเดญเตเดฏเดฎเดพเดเต.
เดชเตเดคเดฟเดฏ เดซเตเดเตเดเดฑเตเดเดณเดฟเดฒเตเดเตเดเตเดณเตเดณ เดฎเดพเดฑเตเดฑเด
เดตเดพเดธเตเดคเดตเดคเตเดคเดฟเตฝ, เดชเตเดคเดฟเดฏ เดซเดเดเตเดทเดจเตเดเตพเดเตเดเตเดชเตเดชเด เดชเตเดฐเดตเตผเดคเตเดคเดฟเดเตเดเดพเตป เดชเดดเดฏ เดธเตเดเตเดฐเดฟเดชเตเดฑเตเดฑเตเดเตพ เดเตเดฎเดพเดฑเตเดจเตเดจเดคเต เดฌเตเดฆเตเดงเดฟเดฎเตเดเตเดเตเดณเตเดณ เดเดพเดฐเตเดฏเดฎเดฒเตเดฒ, เดชเดดเดฏ เดซเดเดเตเดทเดจเตเดเดณเตเดเต เดกเตเดเตเดฏเตเดฎเตเตปเตเดฑเตเดทเดจเดฟเตฝ เดจเดฟเดจเตเดจเต เดเดพเตป เดเดฐเต เดเดฆเดพเดนเดฐเดฃเด เดเดเตเดเตเดเตเดเดฏเตเด เดชเตเดคเดฟเดฏเดต เดเดชเดฏเตเดเดฟเดเตเดเต เด
เดคเต เดชเตเดฐเดตเตผเดคเตเดคเดจเดเตเดเตพ เดเดเตเดเดจเต เดจเดเดคเตเดคเตเดจเตเดจเตเดตเตเดจเตเดจเต เดเดพเดฃเดฟเดเตเดเตเดเดฏเตเด เดเตเดฏเตเดฏเตเด; pivot_*() เดชเตเดฐเดตเตผเดคเตเดคเดจเดเตเดเตพ.
เดตเตเดกเต เดซเตเตผเดฎเดพเดฑเตเดฑเต เดฒเตเดเดเต เดซเตเตผเดฎเดพเดฑเตเดฑเดฟเดฒเตเดเตเดเต เดชเดฐเดฟเดตเตผเดคเตเดคเดจเด เดเตเดฏเตเดฏเตเด.
เดถเตเดเดฐเดฟเดเตเดเตเด เดซเดเดเตโเดทเตป เดกเตเดเตเดฏเตเดฎเตเตปเตเดฑเตเดทเดจเดฟเตฝ เดจเดฟเดจเตเดจเตเดณเตเดณ เดเดฆเดพเดนเดฐเดฃ เดเตเดกเต
# example
library(dplyr)
stocks <- data.frame(
time = as.Date('2009-01-01') + 0:9,
X = rnorm(10, 0, 1),
Y = rnorm(10, 0, 2),
Z = rnorm(10, 0, 4)
)
# old
stocks_gather <- stocks %>% gather(key = stock,
value = price,
-time)
# new
stocks_long <- stocks %>% pivot_longer(cols = -time,
names_to = "stock",
values_to = "price")
เดฆเตเตผเดเตเดฏเดฎเตเดฑเดฟเดฏ เดซเตเตผเดฎเดพเดฑเตเดฑเต เดตเตเดกเต เดซเตเตผเดฎเดพเดฑเตเดฑเดฟเดฒเตเดเตเดเต เดชเดฐเดฟเดตเตผเดคเตเดคเดจเด เดเตเดฏเตเดฏเตเดจเตเดจเต.
เดธเตเดชเตเดฐเตเดกเต เดซเดเดเตเดทเตป เดกเตเดเตเดฏเตเดฎเตเตปเตเดฑเตเดทเดจเดฟเตฝ เดจเดฟเดจเตเดจเตเดณเตเดณ เดเดฆเดพเดนเดฐเดฃ เดเตเดกเต
# old
stocks_spread <- stocks_gather %>% spread(key = stock,
value = price)
# new
stock_wide <- stocks_long %>% pivot_wider(names_from = "stock",
values_from = "price")
เดเดพเดฐเดฃเด เดชเตเดฐเดตเตผเดคเตเดคเดฟเดเตเดเตเดจเตเดจเดคเดฟเตปเตเดฑเต เดฎเตเดเดณเดฟเดฒเตเดณเตเดณ เดเดฆเดพเดนเดฐเดฃเดเตเดเดณเดฟเตฝ pivot_longer() ะธ pivot_wider(), เดฏเดฅเดพเตผเดคเตเดฅ เดชเดเตเดเดฟเดเดฏเดฟเตฝ เดธเตเดฑเตเดฑเตเดพเดเตเดเตเดเตพ เดเตผเดเตเดฏเตเดฎเตเตปเตเดฑเตเดเดณเดฟเตฝ เดจเดฟเดฐเดเดณเตเดจเตเดจเตเด เดชเดเตเดเดฟเดเดชเตเดชเตเดเตเดคเตเดคเดฟเดฏเดฟเดเตเดเดฟเดฒเตเดฒ เดชเตเดฐเตเดเตพ_เดฒเตเดเตเดเต ะธ เดฎเตเดฒเตเดฏเดเตเดเตพ_เดเต เด
เดตเดฐเตเดเต เดชเตเดฐเตเดเตพ เดเดฆเตเดงเดฐเดฃเดฟ เดเดฟเดนเตเดจเดคเตเดคเดฟเดฒเดพเดฏเดฟเดฐเดฟเดเตเดเดฃเด.
เดเดฐเต เดชเตเดคเดฟเดฏ เดเดถเดฏเด เดเดชเดฏเตเดเดฟเดเตเดเต เดเดเตเดเดจเต เดชเตเดฐเดตเตผเดคเตเดคเดฟเดเตเดเดพเดฎเตเดจเตเดจเต เดฎเดจเดธเดฟเดฒเดพเดเตเดเดพเตป เดจเดฟเดเตเดเดณเต เดธเดนเดพเดฏเดฟเดเตเดเตเดจเตเดจ เดเดฐเต เดชเดเตเดเดฟเด เดตเตเดคเตเดคเดฟเดฏเตเดณเตเดณ.
เดฐเดเดฏเดฟเดคเดพเดตเดฟเตฝ เดจเดฟเดจเตเดจเตเดณเตเดณ เดเตเดฑเดฟเดชเตเดชเต
เดเตเดตเดเตเดฏเตเดณเตเดณ เดเดฒเตเดฒเดพ เดตเดพเดเดเดเตเดเดณเตเด เด เดกเดพเดชเตเดฑเตเดฑเตเดตเต เดเดฃเต, เดธเตเดตเดคเดจเตเดคเตเดฐ เดตเดฟเดตเตผเดคเตเดคเดจเด เดชเตเดฒเตเด เดเดพเตป เดชเดฑเดฏเตเด เดเดฆเตเดฏเตเดเดฟเด เดเตเดกเตเดตเตเดดเตเดธเต เดฒเตเดฌเตเดฐเดฑเดฟ เดตเตเดฌเตเดธเตเดฑเตเดฑเดฟเตฝ เดจเดฟเดจเตเดจเต.
เดกเดพเดฑเตเดฑ เดตเตเดกเต เดฎเตเดคเตฝ เดฒเตเดเดเต เดซเตเตผเดฎเดพเดฑเตเดฑเดฟเดฒเตเดเตเดเต เดชเดฐเดฟเดตเตผเดคเตเดคเดจเด เดเตเดฏเตเดฏเตเดจเตเดจเดคเดฟเดจเตเดณเตเดณ เดเดฐเต เดฒเดณเดฟเดคเดฎเดพเดฏ เดเดฆเดพเดนเดฐเดฃเด
pivot_longer () - เดจเดฟเดฐเดเดณเตเดเต เดเดฃเตเดฃเด เดเตเดฑเดเตเดเตเด เดตเดฐเดฟเดเดณเตเดเต เดเดฃเตเดฃเด เดเตเดเตเดเดฟเดฏเตเด เดกเดพเดฑเตเดฑเดพ เดธเตเดฑเตเดฑเตเดเดณเต เดฆเตเตผเดเตเดฏเดฎเตเดฑเดฟเดฏเดคเดพเดเตเดเตเดจเตเดจเต.
เดฒเตเดเดจเดคเตเดคเดฟเตฝ เด เดตเดคเดฐเดฟเดชเตเดชเดฟเดเตเด เดเดฆเดพเดนเดฐเดฃเดเตเดเตพ เดชเตเดฐเดตเตผเดคเตเดคเดฟเดชเตเดชเดฟเดเตเดเตเดจเตเดจเดคเดฟเดจเต, เดจเดฟเดเตเดเตพ เดเดฆเตเดฏเด เดเดตเดถเตเดฏเดฎเดพเดฏ เดชเดพเดเตเดเตเดเตเดเตพ เดฌเดจเตเดงเดฟเดชเตเดชเดฟเดเตเดเตเดฃเตเดเดคเตเดฃเตเดเต:
library(tidyr)
library(dplyr)
library(readr)(เดฎเดฑเตเดฑเต เดเดพเดฐเตเดฏเดเตเดเดณเดฟเตฝ) เดเดณเตเดเดณเตเดเต เด เดตเดฐเตเดเต เดฎเดคเดคเตเดคเตเดเตเดเตเดฑเดฟเดเตเดเตเด เดตเดพเตผเดทเดฟเด เดตเดฐเตเดฎเดพเดจเดคเตเดคเตเดเตเดเตเดฑเดฟเดเตเดเตเด เดเตเดฆเดฟเดเตเด เดเดฐเต เดธเตผเดตเตเดฏเตเดเต เดซเดฒเดเตเดเดณเตเดณเตเดณ เดเดฐเต เดชเดเตเดเดฟเด เดเดเตเดเดณเตเดเต เดชเดเตเดเดฒเตเดฃเตเดเตเดจเตเดจเต เดชเดฑเดฏเดพเด:
#> # A tibble: 18 x 11
#> religion `<$10k` `$10-20k` `$20-30k` `$30-40k` `$40-50k` `$50-75k`
#> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#> 1 Agnostic 27 34 60 81 76 137
#> 2 Atheist 12 27 37 52 35 70
#> 3 Buddhist 27 21 30 34 33 58
#> 4 Catholic 418 617 732 670 638 1116
#> 5 Donโt kโฆ 15 14 15 11 10 35
#> 6 Evangelโฆ 575 869 1064 982 881 1486
#> 7 Hindu 1 9 7 9 11 34
#> 8 Historiโฆ 228 244 236 238 197 223
#> 9 Jehovahโฆ 20 27 24 24 21 30
#> 10 Jewish 19 19 25 25 30 95
#> # โฆ with 8 more rows, and 4 more variables: `$75-100k` <dbl>,
#> # `$100-150k` <dbl>, `>150k` <dbl>, `Don't know/refused` <dbl>เด เดชเดเตเดเดฟเดเดฏเดฟเตฝ เดชเตเดฐเดคเดฟเดเดฐเดฟเดเตเดเตเดจเตเดจเดตเดฐเตเดเต เดฎเดคเดชเดฐเดฎเดพเดฏ เดกเดพเดฑเตเดฑ เดตเดฐเดฟเดเดณเดฟเตฝ เด
เดเดเตเดเดฟเดฏเดฟเดฐเดฟเดเตเดเตเดจเตเดจเต, เดเตเดเดพเดคเต เดเตเดณเดคเตเดคเดฟเตปเตเดฑเต เดชเตเดฐเตเดเดณเดฟเตฝ เดเดฟเดคเดฑเดฟเดเตเดเดฟเดเดเตเดเตเดจเตเดจ เดตเดฐเตเดฎเดพเดจ เดจเดฟเดฒเดเดณเตเด. เดเดฐเต เดตเดฟเดญเดพเดเดคเตเดคเดฟเตฝ เดจเดฟเดจเตเดจเตเด เดชเตเดฐเดคเดฟเดเดฐเดฟเดเตเดเตเดจเตเดจเดตเดฐเตเดเต เดเดฃเตเดฃเด เดฎเดคเดคเตเดคเดฟเตปเตเดฑเตเดฏเตเด เดตเดฐเตเดฎเดพเดจ เดจเดฟเดฒเดตเดพเดฐเดคเตเดคเดฟเตปเตเดฑเตเดฏเตเด เดเดตเดฒเดฏเดฟเดฒเต เดธเตเตฝ เดฎเตเดฒเตเดฏเดเตเดเดณเดฟเตฝ เดธเดเดญเดฐเดฟเดเตเดเดฟเดฐเดฟเดเตเดเตเดจเตเดจเต. เดชเดเตเดเดฟเด เดตเตเดคเตเดคเดฟเดฏเตเดณเตเดณเดคเตเด เดถเดฐเดฟเดฏเดพเดฏเดคเตเดฎเดพเดฏ เดซเตเตผเดฎเดพเดฑเตเดฑเดฟเดฒเตเดเตเดเต เดเตเดฃเตเดเตเดตเดฐเดพเตป, เดเดคเต เดเดชเดฏเตเดเดฟเดเตเดเดพเตฝ เดฎเดคเดฟ pivot_longer():
pew %>%
pivot_longer(cols = -religion, names_to = "income", values_to = "count")pew %>%
pivot_longer(cols = -religion, names_to = "income", values_to = "count")
#> # A tibble: 180 x 3
#> religion income count
#> <chr> <chr> <dbl>
#> 1 Agnostic <$10k 27
#> 2 Agnostic $10-20k 34
#> 3 Agnostic $20-30k 60
#> 4 Agnostic $30-40k 81
#> 5 Agnostic $40-50k 76
#> 6 Agnostic $50-75k 137
#> 7 Agnostic $75-100k 122
#> 8 Agnostic $100-150k 109
#> 9 Agnostic >150k 84
#> 10 Agnostic Don't know/refused 96
#> # โฆ with 170 more rowsเดซเดเดเตเดทเตป เดเตผเดเตเดฏเตเดฎเตเตปเตเดฑเตเดเตพ pivot_longer()
- เดเดฆเตเดฏเดคเตเดคเต เดตเดพเดฆเด เดเตเดณเตเดเตพ, เดเดคเต เดจเดฟเดฐเดเดณเดพเดฃเต เดฒเดฏเดฟเดชเตเดชเดฟเดเตเดเตเดฃเตเดเดคเตเดจเตเดจเต เดตเดฟเดตเดฐเดฟเดเตเดเตเดจเตเดจเต. เด เดธเดพเดนเดเดฐเตเดฏเดคเตเดคเดฟเตฝ, เดเดดเดฟเดเตเดฏเตเดณเตเดณ เดเดฒเตเดฒเดพ เดจเดฟเดฐเดเดณเตเด เดเดพเดฒเด.
- เดตเดพเดฆเด เดชเตเดฐเตเดเตพ_เดฒเตเดเตเดเต เดเดเตเดเตพ เดธเดเดฏเตเดเดฟเดชเตเดชเดฟเดเตเด เดจเดฟเดฐเดเดณเตเดเต เดชเตเดฐเตเดเดณเดฟเตฝ เดจเดฟเดจเตเดจเต เดธเตเดทเตเดเดฟเดเตเดเตเดจเตเดจ เดตเตเดฐเดฟเดฏเดฌเดฟเดณเดฟเตปเตเดฑเต เดชเตเดฐเต เดจเตฝเดเตเดจเตเดจเต.
- เดฎเตเดฒเตเดฏเดเตเดเตพ_เดเต เดฒเดฏเดฟเดชเตเดชเดฟเดเตเด เดจเดฟเดฐเดเดณเตเดเต เดธเตเดฒเตเดฒเตเดเดณเตเดเต เดฎเตเดฒเตเดฏเดเตเดเดณเดฟเตฝ เดธเดเดญเดฐเดฟเดเตเดเดฟเดฐเดฟเดเตเดเตเดจเตเดจ เดกเดพเดฑเตเดฑเดฏเดฟเตฝ เดจเดฟเดจเตเดจเต เดธเตเดทเตเดเดฟเดเตเดเดชเตเดชเตเดเตเดจเตเดจ เดเดฐเต เดตเตเดฐเดฟเดฏเดฌเดฟเดณเดฟเตปเตเดฑเต เดชเตเดฐเต เดจเตฝเดเตเดจเตเดจเต.
เดตเตเดฏเดคเดฟเดฏเดพเดจเดเตเดเตพ
เดเดคเต เดชเดพเดเตเดเตเดเดฟเตปเตเดฑเต เดเดฐเต เดชเตเดคเดฟเดฏ เดชเตเดฐเดตเตผเดคเตเดคเดจเดฎเดพเดฃเต เดตเตเดคเตเดคเดฟเดฏเตเดณเตเดณ, เดฒเตเดเดธเดฟ เดซเดเดเตโเดทเดจเตเดเตพเดเตเดเตเดชเตเดชเด เดชเตเดฐเดตเตผเดคเตเดคเดฟเดเตเดเตเดฎเตเดชเตเตพ เดเดคเต เดฎเตเดฎเตเดชเต เดฒเดญเตเดฏเดฎเดฒเตเดฒเดพเดฏเดฟเดฐเตเดจเตเดจเต.
เดเดฐเต เดธเตเดชเตเดธเดฟเดซเดฟเดเตเดเตเดทเตป เดเดจเตเดจเดคเต เดเดฐเต เดกเดพเดฑเตเดฑ เดซเตเดฐเตเดฏเดฟเดฎเดพเดฃเต, เด เดคเดฟเดฒเต เดเดฐเต เดตเดฐเดฟเดฏเตเด เดชเตเดคเดฟเดฏ เดเดเตเดเตเดชเตเดเตเดเต เดคเตเดฏเดคเดฟ เดซเตเดฐเตเดฏเดฟเดฎเดฟเดฒเต เดเดฐเต เดจเดฟเดฐเดฏเตเดฎเดพเดฏเดฟ เดชเตเดฐเตเดคเตเดคเดชเตเดชเตเดเตเดจเตเดจเต, เดเตเดเดพเดคเต เดเดฐเดเดญเดฟเดเตเดเตเดจเตเดจ เดฐเดฃเตเดเต เดชเตเดฐเดคเตเดฏเตเด เดจเดฟเดฐเดเตพ:
- เดจเดพเดฎเด เดฏเดฅเดพเตผเดคเตเดฅ เดเตเดณเดคเตเดคเดฟเตปเตเดฑเต เดชเตเดฐเต เด เดเดเตเดเดฟเดฏเดฟเดฐเดฟเดเตเดเตเดจเตเดจเต.
- .เดฎเตเดฒเตเดฏเด เดธเตเตฝ เดฎเตเดฒเตเดฏเดเตเดเตพ เดเตพเดเตเดเตเดณเตเดณเตเดจเตเดจ เดจเดฟเดฐเดฏเตเดเต เดชเตเดฐเต เด เดเดเตเดเดฟเดฏเดฟเดฐเดฟเดเตเดเตเดจเตเดจเต.
เดธเตเดชเตเดธเดฟเดซเดฟเดเตเดเตเดทเตปเตเดฑเต เดถเตเดทเดฟเดเตเดเตเดจเตเดจ เดจเดฟเดฐเดเตพ, เดชเตเดคเดฟเดฏ เดเตเดณเด เดเดเตเดเดจเต เดเดเดชเตเดฐเดธเต เดเตเดฏเตเดค เดเตเดณเดเตเดเดณเตเดเต เดชเตเดฐเต เดชเตเดฐเดฆเตผเดถเดฟเดชเตเดชเดฟเดเตเดเตเดฎเตเดจเตเดจเต เดชเตเดฐเดคเดฟเดซเดฒเดฟเดชเตเดชเดฟเดเตเดเตเดจเตเดจเต เดจเดพเดฎเด.
เดธเตโเดชเตเดธเดฟเดซเดฟเดเตเดเตเดทเตป เดเดฐเต เดเตเดณเดคเตเดคเดฟเตปเตเดฑเต เดชเตเดฐเดฟเตฝ เดธเดเดญเดฐเดฟเดเตเดเดฟเดฐเดฟเดเตเดเตเดจเตเดจ เดฎเตเดฑเตเดฑเดพเดกเดพเดฑเตเดฑเดฏเต เดตเดฟเดตเดฐเดฟเดเตเดเตเดจเตเดจเต, เดเดฐเต เดเตเดณเดคเตเดคเดฟเดจเตเด เดเดฐเต เดตเดฐเดฟเดฏเตเด เดเดฐเต เดตเตเดฐเดฟเดฏเดฌเดฟเดณเดฟเดจเตเด เดเดฐเต เดเตเดณเดตเตเด, เดเตเดณเดคเตเดคเดฟเตปเตเดฑเต เดชเตเดฐเดฟเดจเตเดชเตเดชเด เดเตเดเดฟเดเตเดเตเตผเดจเตเดจเต, เด เดจเดฟเตผเดตเตเดตเดเดจเด เดเดชเตเดชเตเตพ เดเดถเดฏเดเตเดเตเดดเดชเตเดชเดฎเตเดฃเตเดเดพเดเตเดเตเดจเตเดจเดคเดพเดฏเดฟ เดคเตเดจเตเดจเดฟเดฏเตเดเตเดเดพเด, เดเดจเตเดจเดพเตฝ เดเตเดฑเดเตเดเต เดเดฆเดพเดนเดฐเดฃเดเตเดเตพ เดจเตเดเตเดเตเดฎเตเดชเตเตพ เด เดคเต เดตเดณเดฐเตเดฏเดงเดฟเดเด เดฎเดพเดฑเตเด. เดเตเดเตเดคเตฝ เดตเตเดฏเดเตเดคเดฎเดพเดฃเต.
เดชเดฐเดฟเดตเตผเดคเตเดคเดจเด เดเตเดฏเตเดฏเตเดจเตเดจ เดกเดพเดฑเตเดฑเดพเดซเตเดฐเตเดฏเดฟเดฎเดฟเดจเดพเดฏเดฟ เดจเดฟเดเตเดเตพเดเตเดเต เดชเตเดคเดฟเดฏ เดฎเตเดฑเตเดฑเดพเดกเดพเดฑเตเดฑ เดตเตเดฃเตเดเตเดเตเดเตเดเดพเดจเตเด เดชเดฐเดฟเดทเตโเดเตเดเดฐเดฟเดเตเดเดพเดจเตเด เดจเดฟเตผเดตเดเดฟเดเตเดเดพเดจเตเด เดเดดเดฟเดฏเตเด เดเดจเตเดจเดคเดพเดฃเต เดธเตเดชเตเดธเดฟเดซเดฟเดเตเดเตเดทเตปเตเดฑเต เดเดพเดฐเตเดฏเด.
เดตเดฟเดถเดพเดฒเดฎเดพเดฏ เดซเตเตผเดฎเดพเดฑเตเดฑเดฟเตฝ เดจเดฟเดจเตเดจเต เดเดฐเต เดจเตเดฃเตเด เดซเตเตผเดฎเดพเดฑเตเดฑเดฟเดฒเตเดเตเดเต เดเดฐเต เดชเดเตเดเดฟเด เดชเดฐเดฟเดตเตผเดคเตเดคเดจเด เดเตเดฏเตเดฏเตเดฎเตเดชเตเตพ เดธเตเดชเตเดธเดฟเดซเดฟเดเตเดเตเดทเดจเตเดเตพเดเตเดเตเดชเตเดชเด เดชเตเดฐเดตเตผเดคเตเดคเดฟเดเตเดเดพเตป, เดซเดเดเตเดทเตป เดเดชเดฏเตเดเดฟเดเตเดเตเด pivot_longer_spec().
เด เดซเดเดเตโเดทเตป เดเดเตเดเดจเต เดชเตเดฐเดตเตผเดคเตเดคเดฟเดเตเดเตเดจเตเดจเต, เด เดคเต เดเดคเต เดคเตเดฏเดคเดฟ เดซเตเดฐเตเดฏเดฟเด เดเดเตเดเตเดเตเดเดฏเตเด เดฎเตเดเดณเดฟเตฝ เดตเดฟเดตเดฐเดฟเดเตเด เดฐเตเดคเดฟเดฏเดฟเตฝ เด เดคเดฟเตปเตเดฑเต เดฎเตเดฑเตเดฑเดพเดกเดพเดฑเตเดฑ เดธเตเดทเตเดเดฟเดเตเดเตเดเดฏเตเด เดเตเดฏเตเดฏเตเดจเตเดจเต เดเดจเตเดจเดคเดพเดฃเต.
เดเดฆเดพเดนเดฐเดฃเดฎเดพเดฏเดฟ, เดชเดพเดเตเดเตเดเดฟเดจเตเดชเตเดชเด เดจเตฝเดเดฟเดฏเดฟเดฐเดฟเดเตเดเตเดจเตเดจ เดนเต เดกเดพเดฑเตเดฑเดพเดธเตเดฑเตเดฑเต เดเดเตเดเตเดเดพเด เดตเตเดคเตเดคเดฟเดฏเตเดณเตเดณ. เด เดกเดพเดฑเตเดฑเดพเดธเตเดฑเตเดฑเดฟเตฝ เดเตเดทเดฏเดฐเตเดเดฌเดพเดงเดฏเตเดเตเดเตเดฑเดฟเดเตเดเต เด เดจเตเดคเดพเดฐเดพเดทเตเดเตเดฐ เดเดฐเตเดเตเดฏ เดธเดเดเดเดจ เดจเตฝเดเตเดจเตเดจ เดตเดฟเดตเดฐเดเตเดเตพ เด เดเดเตเดเดฟเดฏเดฟเดฐเดฟเดเตเดเตเดจเตเดจเต.
who
#> # A tibble: 7,240 x 60
#> country iso2 iso3 year new_sp_m014 new_sp_m1524 new_sp_m2534
#> <chr> <chr> <chr> <int> <int> <int> <int>
#> 1 Afghanโฆ AF AFG 1980 NA NA NA
#> 2 Afghanโฆ AF AFG 1981 NA NA NA
#> 3 Afghanโฆ AF AFG 1982 NA NA NA
#> 4 Afghanโฆ AF AFG 1983 NA NA NA
#> 5 Afghanโฆ AF AFG 1984 NA NA NA
#> 6 Afghanโฆ AF AFG 1985 NA NA NA
#> 7 Afghanโฆ AF AFG 1986 NA NA NA
#> 8 Afghanโฆ AF AFG 1987 NA NA NA
#> 9 Afghanโฆ AF AFG 1988 NA NA NA
#> 10 Afghanโฆ AF AFG 1989 NA NA NA
#> # โฆ with 7,230 more rows, and 53 more variablesเดจเดฎเตเดเตเดเต เด เดคเดฟเตปเตเดฑเต เดธเตเดชเตเดธเดฟเดซเดฟเดเตเดเตเดทเตป เดจเดฟเตผเดฎเตเดฎเดฟเดเตเดเดพเด.
spec <- who %>%
pivot_longer_spec(new_sp_m014:newrel_f65, values_to = "count")#> # A tibble: 56 x 3
#> .name .value name
#> <chr> <chr> <chr>
#> 1 new_sp_m014 count new_sp_m014
#> 2 new_sp_m1524 count new_sp_m1524
#> 3 new_sp_m2534 count new_sp_m2534
#> 4 new_sp_m3544 count new_sp_m3544
#> 5 new_sp_m4554 count new_sp_m4554
#> 6 new_sp_m5564 count new_sp_m5564
#> 7 new_sp_m65 count new_sp_m65
#> 8 new_sp_f014 count new_sp_f014
#> 9 new_sp_f1524 count new_sp_f1524
#> 10 new_sp_f2534 count new_sp_f2534
#> # โฆ with 46 more rowsเดจเดฟเดฒเดเตเดเดณเตเด เดฐเดพเดเตเดฏเด, เดเดธเตเดเตเดธเดจเตเดฎเตเดเตเดธ, เดเดธเตเดเตเดธเดจเตเดฎเตเดเตเดธ เดเดคเดฟเดจเดเด เดตเตเดฐเดฟเดฏเดฌเดฟเดณเตเดเดณเดพเดฃเต. เดเตเดณเดเตเดเตพ เดซเตเดฒเดฟเดชเตเดชเตเดเตเดฏเตเดฏเตเด เดเดจเตเดจเดคเดพเดฃเต เดเดเตเดเดณเตเดเต เดเตเดฎเดคเดฒ new_sp_m014 เด เดธเดฎเดฏเดคเตเดคเต newrel_f65.
เด เดจเดฟเดฐเดเดณเตเดเต เดชเตเดฐเตเดเตพ เดเดจเดฟเดชเตเดชเดฑเดฏเตเดจเตเดจ เดตเดฟเดตเดฐเดเตเดเตพ เดธเดเดญเดฐเดฟเดเตเดเตเดจเตเดจเต:
- เดเดชเดธเตผเดเตเดเด
new_เดเตเดณเดคเตเดคเดฟเตฝ เดเตเดทเดฏเดฐเตเดเดคเตเดคเดฟเตปเตเดฑเต เดชเตเดคเดฟเดฏ เดเตเดธเตเดเดณเตเดเตเดเตเดฑเดฟเดเตเดเตเดณเตเดณ เดกเดพเดฑเตเดฑ เด เดเดเตเดเดฟเดฏเดฟเดฐเดฟเดเตเดเตเดจเตเดจเตเดตเตเดจเตเดจเต เดธเตเดเดฟเดชเตเดชเดฟเดเตเดเตเดจเตเดจเต, เดจเดฟเดฒเดตเดฟเดฒเต เดคเตเดฏเดคเดฟ เดซเตเดฐเตเดฏเดฟเดฎเดฟเตฝ เดชเตเดคเดฟเดฏ เดฐเตเดเดเตเดเดณเตเดเตเดเตเดฑเดฟเดเตเดเตเดณเตเดณ เดตเดฟเดตเดฐเดเตเดเตพ เดฎเดพเดคเตเดฐเดฎเต เด เดเดเตเดเดฟเดฏเดฟเดเตเดเตเดณเตเดณเต, เด เดคเดฟเดจเดพเตฝ เดจเดฟเดฒเดตเดฟเดฒเต เดธเดจเตเดฆเตผเดญเดคเตเดคเดฟเดฒเต เด เดชเตเดฐเดฟเดซเดฟเดเตโเดธเดฟเดจเต เด เตผเดคเตเดฅเดฎเตเดจเตเดจเตเดฎเดฟเดฒเตเดฒ. sp/rel/sp/epเดเดฐเต เดฐเตเดเด เดเดฃเตเดเตเดชเดฟเดเดฟเดเตเดเตเดจเตเดจเดคเดฟเดจเตเดณเตเดณ เดเดฐเต เดฐเตเดคเดฟ เดตเดฟเดตเดฐเดฟเดเตเดเตเดจเตเดจเต.m/fเดฐเตเดเดฟเดฏเตเดเต เดฒเดฟเดเดเดญเตเดฆเด.014/1524/2535/3544/4554/65เดฐเตเดเดฟเดฏเตเดเต เดชเตเดฐเดพเดฏเดชเดฐเดฟเดงเดฟ.
เดซเดเดเตเดทเตป เดเดชเดฏเตเดเดฟเดเตเดเต เดจเดฎเตเดเตเดเต เด เดจเดฟเดฐเดเตพ เดตเดฟเดญเดเดฟเดเตเดเดพเด extract()เดชเดคเดฟเดตเต เดชเดฆเดชเตเดฐเดฏเตเดเด เดเดชเดฏเตเดเดฟเดเตเดเตเดจเตเดจเต.
spec <- spec %>%
extract(name, c("diagnosis", "gender", "age"), "new_?(.*)_(.)(.*)")#> # A tibble: 56 x 5
#> .name .value diagnosis gender age
#> <chr> <chr> <chr> <chr> <chr>
#> 1 new_sp_m014 count sp m 014
#> 2 new_sp_m1524 count sp m 1524
#> 3 new_sp_m2534 count sp m 2534
#> 4 new_sp_m3544 count sp m 3544
#> 5 new_sp_m4554 count sp m 4554
#> 6 new_sp_m5564 count sp m 5564
#> 7 new_sp_m65 count sp m 65
#> 8 new_sp_f014 count sp f 014
#> 9 new_sp_f1524 count sp f 1524
#> 10 new_sp_f2534 count sp f 2534
#> # โฆ with 46 more rowsเดเตเดณเด เดถเตเดฐเดฆเตเดงเดฟเดเตเดเตเด เดจเดพเดฎเด เดฏเดฅเดพเตผเดคเตเดฅ เดกเดพเดฑเตเดฑเดพเดธเตเดฑเตเดฑเดฟเตปเตเดฑเต เดเตเดณเด เดจเดพเดฎเดเตเดเดณเดฟเดฒเตเดเตเดเตเดณเตเดณ เดเดเตเดเดณเตเดเต เดธเตเดเดฟเดเดฏเดพเดฏเดคเดฟเดจเดพเตฝ เดเดคเต เดฎเดพเดฑเตเดฑเดฎเดฟเดฒเตเดฒเดพเดคเต เดคเตเดเดฐเดฃเด.
เดฒเดฟเดเดเดญเตเดฆเดตเตเด เดชเตเดฐเดพเดฏเดตเตเด (เดจเดฟเดฐเดเตพ เดฒเดฟเดเดเดญเตเดฆเด ะธ เดชเตเดฐเดพเดฏเด) เดธเตเดฅเดฟเดฐเดตเตเด เด เดฑเดฟเดฏเดชเตเดชเตเดเตเดจเตเดจเดคเตเดฎเดพเดฏ เดฎเตเดฒเตเดฏเดเตเดเตพ เดเดฃเตเดเต, เด เดคเดฟเดจเดพเตฝ เด เดจเดฟเดฐเดเดณเต เดเดเดเดเตเดเดณเดฟเดฒเตเดเตเดเต เดชเดฐเดฟเดตเตผเดคเตเดคเดจเด เดเตเดฏเตเดฏเดพเตป เดถเตเดชเดพเตผเดถ เดเตเดฏเตเดฏเตเดจเตเดจเต:
spec <- spec %>%
mutate(
gender = factor(gender, levels = c("f", "m")),
age = factor(age, levels = unique(age), ordered = TRUE)
) เด
เดตเดธเดพเดจเดฎเดพเดฏเดฟ, เดฏเดฅเดพเตผเดคเตเดฅ เดคเตเดฏเดคเดฟ เดซเตเดฐเตเดฏเดฟเดฎเดฟเดฒเตเดเตเดเต เดเดเตเดเตพ เดธเตเดทเตเดเดฟเดเตเด เดธเตเดชเตเดธเดฟเดซเดฟเดเตเดเตเดทเตป เดชเตเดฐเดฏเตเดเดฟเดเตเดเตเดจเตเดจเดคเดฟเดจเต เดเดฐเต เดเดเตเดเตพ เดเดฐเต เดตเดพเดฆเด เดเดชเดฏเตเดเดฟเดเตเดเตเดฃเตเดเดคเตเดฃเตเดเต เดธเตเดชเตเดเตเดเต เดชเตเดฐเดตเตผเดคเตเดคเดจเดคเตเดคเดฟเตฝ pivot_longer().
who %>% pivot_longer(spec = spec)
#> # A tibble: 405,440 x 8
#> country iso2 iso3 year diagnosis gender age count
#> <chr> <chr> <chr> <int> <chr> <fct> <ord> <int>
#> 1 Afghanistan AF AFG 1980 sp m 014 NA
#> 2 Afghanistan AF AFG 1980 sp m 1524 NA
#> 3 Afghanistan AF AFG 1980 sp m 2534 NA
#> 4 Afghanistan AF AFG 1980 sp m 3544 NA
#> 5 Afghanistan AF AFG 1980 sp m 4554 NA
#> 6 Afghanistan AF AFG 1980 sp m 5564 NA
#> 7 Afghanistan AF AFG 1980 sp m 65 NA
#> 8 Afghanistan AF AFG 1980 sp f 014 NA
#> 9 Afghanistan AF AFG 1980 sp f 1524 NA
#> 10 Afghanistan AF AFG 1980 sp f 2534 NA
#> # โฆ with 405,430 more rowsเดเดเตเดเตพ เดเดชเตเดชเตเตพ เดเตเดฏเตเดคเดคเตเดฒเตเดฒเดพเด เดธเตเดเตเดฎเดพเดฑเตเดฑเดฟเดเตเดเดพเดฏเดฟ เดเดจเดฟเดชเตเดชเดฑเดฏเตเดจเตเดจ เดฐเตเดคเดฟเดฏเดฟเตฝ เดเดฟเดคเตเดฐเตเดเดฐเดฟเดเตเดเดพเด:
เดเดจเตเดจเดฟเดฒเดงเดฟเดเด เดฎเตเดฒเตเดฏเดเตเดเตพ เดเดชเดฏเตเดเดฟเดเตเดเตเดจเตเดจ เดธเตเดชเตเดธเดฟเดซเดฟเดเตเดเตเดทเตป (.value)
เดฎเตเดเดณเดฟเดฒเตเดณเตเดณ เดเดฆเดพเดนเดฐเดฃเดคเตเดคเดฟเตฝ, เดธเตเดชเตเดธเดฟเดซเดฟเดเตเดเตเดทเตป เดเตเดณเด .เดฎเตเดฒเตเดฏเด เดเดฐเต เดฎเตเดฒเตเดฏเด เดฎเดพเดคเตเดฐเดฎเต เด เดเดเตเดเดฟเดฏเดฟเดเตเดเตเดณเตเดณเต, เดฎเดฟเดเตเด เดเตเดธเตเดเดณเดฟเดฒเตเด เดเดคเต เด เดเตเดเดจเตเดฏเดพเดฃเต.
เดเดจเตเดจเดพเตฝ เดฎเตเดฒเตเดฏเดเตเดเดณเดฟเตฝ เดตเตเดฏเดคเตเดฏเดธเตเดค เดกเดพเดฑเตเดฑ เดคเดฐเดเตเดเดณเตเดณเตเดณ เดเตเดณเดเตเดเดณเดฟเตฝ เดจเดฟเดจเตเดจเต เดกเดพเดฑเตเดฑ เดถเตเดเดฐเดฟเดเตเดเตเดฃเตเดเดฟเดตเดฐเตเดฎเตเดชเตเตพ เดเดฟเดฒเดชเตเดชเตเตพ เดเดฐเต เดธเดพเดนเดเดฐเตเดฏเด เดเดฃเตเดเดพเดเดพเด. เดเดฐเต เดฒเตเดเดธเดฟ เดซเดเดเตเดทเตป เดเดชเดฏเตเดเดฟเดเตเดเตเดจเตเดจเต spread() เดเดคเต เดเตเดฏเตเดฏเดพเตป เดตเดณเดฐเต เดฌเตเดฆเตเดงเดฟเดฎเตเดเตเดเดพเดฏเดฟเดฐเดฟเดเตเดเตเด.
เดเตเดตเดเตเดฏเตเดณเตเดณ เดเดฆเดพเดนเดฐเดฃเด เดเดเตเดคเตเดคเดคเต เดชเดพเดเตเดเตเดเดฟเดฒเตเดเตเดเต เดกเดพเดฑเตเดฑ. เดชเดเตเดเดฟเด.
เดจเดฎเตเดเตเดเต เดเดฐเต เดชเดฐเดฟเดถเตเดฒเดจ เดกเดพเดฑเตเดฑเดพเดซเตเดฐเตเดฏเดฟเด เดเดฃเตเดเดพเดเตเดเดพเด.
family <- tibble::tribble(
~family, ~dob_child1, ~dob_child2, ~gender_child1, ~gender_child2,
1L, "1998-11-26", "2000-01-29", 1L, 2L,
2L, "1996-06-22", NA, 2L, NA,
3L, "2002-07-11", "2004-04-05", 2L, 2L,
4L, "2004-10-10", "2009-08-27", 1L, 1L,
5L, "2000-12-05", "2005-02-28", 2L, 1L,
)
family <- family %>% mutate_at(vars(starts_with("dob")), parse_date)#> # A tibble: 5 x 5
#> family dob_child1 dob_child2 gender_child1 gender_child2
#> <int> <date> <date> <int> <int>
#> 1 1 1998-11-26 2000-01-29 1 2
#> 2 2 1996-06-22 NA 2 NA
#> 3 3 2002-07-11 2004-04-05 2 2
#> 4 4 2004-10-10 2009-08-27 1 1
#> 5 5 2000-12-05 2005-02-28 2 1เดธเตเดทเตเดเดฟเดเตเด เดคเตเดฏเดคเดฟ เดซเตเดฐเตเดฏเดฟเดฎเดฟเตฝ เดเดฐเต เดตเดฐเดฟเดฏเดฟเดฒเตเด เดเดฐเต เดเตเดเตเดเดฌเดคเตเดคเดฟเดฒเต เดเตเดเตเดเดฟเดเดณเตเดเต เดกเดพเดฑเตเดฑ เด เดเดเตเดเดฟเดฏเดฟเดฐเดฟเดเตเดเตเดจเตเดจเต. เดเตเดเตเดเดฌเดคเตเดคเดฟเตฝ เดเดจเตเดจเต เดฐเดฃเตเดเต เดเตเดเตเดเดฟเดเตพ เดเดฃเตเดเดพเดเดพเด. เดเดฐเต เดเตเดเตเดเดฟเดเตเดเตเด, เดเดจเดจเดคเตเดคเตเดฏเดคเดฟเดฏเตเดฏเตเด เดฒเดฟเดเดเดญเตเดฆเดคเตเดคเตเดฏเตเด เดเตเดฑเดฟเดเตเดเตเดณเตเดณ เดกเดพเดฑเตเดฑ เดจเตฝเดเดฟเดฏเดฟเดฐเดฟเดเตเดเตเดจเตเดจเต, เดเตเดเดพเดคเต เดเดฐเต เดเตเดเตเดเดฟเดเตเดเตเดฎเตเดณเตเดณ เดกเดพเดฑเตเดฑ เดชเตเดฐเดคเตเดฏเตเดเด เดจเดฟเดฐเดเดณเดฟเดฒเดพเดฃเต.
เดเดฐเต เดเตเดเตเดเดฟเดฏเตเดฏเตเด เดเตเดฑเดฟเดเตเดเตเดณเตเดณ เดตเดฟเดตเดฐเดเตเดเดณเตเดณเตเดณ เดฐเดฃเตเดเต เดตเตเดฐเดฟเดฏเดฌเดฟเดณเตเดเตพ เดเดเตเดเดณเตเดเต เดชเดเตเดเดฒเตเดฃเตเดเตเดจเตเดจ เดเดพเดฐเตเดฏเด เดถเตเดฐเดฆเตเดงเดฟเดเตเดเตเด: เด
เดตเดฐเตเดเต เดฒเดฟเดเดเดญเตเดฆเดตเตเด เดเดจเดจเดคเตเดคเตเดฏเดคเดฟเดฏเตเด (เดชเตเดฐเดฟเดซเดฟเดเตเดธเตเดณเตเดณ เดจเดฟเดฐเดเตพ เดกเตเดชเตเดชเต เดเดจเดจเดคเตเดคเตเดฏเดคเดฟ, เดชเตเดฐเดฟเดซเดฟเดเตเดธเตเดณเตเดณ เดจเดฟเดฐเดเตพ เดเดจเตเดจเดฟเดต เด
เดเดเตเดเดฟเดฏเดฟเดฐเดฟเดเตเดเตเดจเตเดจเต เดฒเดฟเดเดเดญเตเดฆเด เดเตเดเตเดเดฟเดฏเตเดเต เดฒเตเดเดเดฟเดเดค เดเตพเดเตเดเตเดณเตเดณเตเดจเตเดจเต). เด
เดต เดชเตเดฐเดคเตเดฏเตเด เดเตเดณเดเตเดเดณเดฟเตฝ เดฆเตเดถเตเดฏเดฎเดพเดเตเดฎเตเดจเตเดจเดคเดพเดฃเต เดชเตเดฐเดคเตเดเตเดทเดฟเดเตเด เดซเดฒเด. เดเตเดณเด เดเดณเตเดณ เดเดฐเต เดธเตเดชเตเดธเดฟเดซเดฟเดเตเดเตเดทเตป เดธเตเดทเตเดเดฟเดเตเดเตเดเตเดฃเตเดเต เดจเดฎเตเดเตเดเต เดเดคเต เดเตเดฏเตเดฏเดพเตป เดเดดเดฟเดฏเตเด .value เดฐเดฃเตเดเต เดตเตเดฏเดคเตเดฏเดธเตเดค เด
เตผเดคเตเดฅเดเตเดเตพ เดเดฃเตเดเดพเดเตเด.
spec <- family %>%
pivot_longer_spec(-family) %>%
separate(col = name, into = c(".value", "child"))%>%
mutate(child = parse_number(child))
#> # A tibble: 4 x 3
#> .name .value child
#> <chr> <chr> <dbl>
#> 1 dob_child1 dob 1
#> 2 dob_child2 dob 2
#> 3 gender_child1 gender 1
#> 4 gender_child2 gender 2เด เดคเดฟเดจเดพเตฝ, เดฎเตเดเดณเดฟเดฒเตเดณเตเดณ เดเตเดกเต เดจเดเดคเตเดคเตเดจเตเดจ เดชเตเดฐเดตเตผเดคเตเดคเดจเดเตเดเตพ เดเดเตเดเด เดเดเตเดเดฎเดพเดฏเดฟ เดจเตเดเตเดเดพเด.
pivot_longer_spec(-family)โ เดซเดพเดฎเดฟเดฒเดฟ เดเตเดณเด เดเดดเดฟเดเต เดจเดฟเดฒเดตเดฟเดฒเตเดณเตเดณ เดเดฒเตเดฒเดพ เดเตเดณเดเตเดเดณเตเด เดเดเดชเตเดฐเดธเต เดเตเดฏเตเดฏเตเดจเตเดจ เดเดฐเต เดธเตเดชเตเดธเดฟเดซเดฟเดเตเดเตเดทเตป เดธเตเดทเตเดเดฟเดเตเดเตเด.separate(col = name, into = c(".value", "child"))- เดเตเดณเด เดตเดฟเดญเดเดฟเดเตเดเตเด เดจเดพเดฎเด, เด เดฃเตเดเตผ เดธเตโเดเตเตผ เดเดชเดฏเตเดเดฟเดเตเดเต เดธเตเดดเตโเดธเต เดซเตเตฝเดกเตเดเดณเตเดเต เดชเตเดฐเตเดเตพ เด เดเดเตเดเตเดจเตเดจ, เดซเดฒเดฎเดพเดฏเตเดฃเตเดเดพเดเตเดจเตเดจ เดฎเตเดฒเตเดฏเดเตเดเตพ เดจเดฟเดฐเดเดณเดฟเดฒเตเดเตเดเต เดจเตฝเดเตเด .เดฎเตเดฒเตเดฏเด ะธ เดเตเดเตเดเดฟ.mutate(child = parse_number(child))- เดซเตเตฝเดกเต เดฎเตเดฒเตเดฏเดเตเดเตพ เดชเดฐเดฟเดตเตผเดคเตเดคเดจเด เดเตเดฏเตเดฏเตเด เดเตเดเตเดเดฟ เดเตเดเตเดธเตเดฑเตเดฑเต เดฎเตเดคเตฝ เดธเดเดเตเดฏเดพ เดกเดพเดฑเตเดฑ เดคเดฐเด เดตเดฐเต.
เดเดชเตเดชเตเตพ เดจเดฎเตเดเตเดเต เดฏเดฅเดพเตผเดคเตเดฅ เดกเดพเดฑเตเดฑเดพเดซเตเดฐเตเดฏเดฟเดฎเดฟเดฒเตเดเตเดเต เดคเดคเตเดซเดฒเดฎเดพเดฏเตเดฃเตเดเดพเดเตเดจเตเดจ เดธเตเดชเตเดธเดฟเดซเดฟเดเตเดเตเดทเตป เดชเตเดฐเดฏเตเดเดฟเดเตเดเต เดเดตเดถเตเดฏเดฎเตเดณเตเดณ เดซเตเดฎเดฟเดฒเตเดเตเดเต เดชเดเตเดเดฟเด เดเตเดฃเตเดเตเดตเดฐเดพเด.
family %>%
pivot_longer(spec = spec, na.rm = T)#> # A tibble: 9 x 4
#> family child dob gender
#> <int> <dbl> <date> <int>
#> 1 1 1 1998-11-26 1
#> 2 1 2 2000-01-29 2
#> 3 2 1 1996-06-22 2
#> 4 3 1 2002-07-11 2
#> 5 3 2 2004-04-05 2
#> 6 4 1 2004-10-10 1
#> 7 4 2 2009-08-27 1
#> 8 5 1 2000-12-05 2
#> 9 5 2 2005-02-28 1เดเดเตเดเตพ เดตเดพเดฆเด เดเดชเดฏเตเดเดฟเดเตเดเตเดจเตเดจเต na.rm = TRUE, เดเดพเดฐเดฃเด เดกเดพเดฑเตเดฑเดฏเตเดเต เดจเดฟเดฒเดตเดฟเดฒเต เดฐเตเดชเด เดจเดฟเดฒเดตเดฟเดฒเดฟเดฒเตเดฒเดพเดคเตเดค เดจเดฟเดฐเตเดเตเดทเดฃเดเตเดเตพเดเตเดเดพเดฏเดฟ เด
เดงเดฟเด เดตเดฐเดฟเดเตพ เดธเตเดทเตเดเดฟเดเตเดเดพเตป เดชเตเดฐเตเดฐเดฟเดชเตเดชเดฟเดเตเดเตเดจเตเดจเต. เดเดพเดฐเดฃเด เดเตเดเตเดเดฌเด 2 เดจเต เดเดฐเต เดเตเดเตเดเดฟ เดฎเดพเดคเตเดฐเดฎเตเดฏเตเดณเตเดณเต, na.rm = TRUE เดซเดพเดฎเดฟเดฒเดฟ 2 เดจเต เดเดเตเดเตเดชเตเดเตเดเดฟเตฝ เดเดฐเต เดตเดฐเดฟ เดเดฃเตเดเดพเดฏเดฟเดฐเดฟเดเตเดเตเดฎเตเดจเตเดจเต เดเดฑเดชเตเดชเต เดจเตฝเดเตเดจเตเดจเต.
เดคเตเดฏเดคเดฟ เดซเตเดฐเตเดฏเดฟเดฎเตเดเตพ เดจเตเดณเดคเตเดคเดฟเตฝ เดจเดฟเดจเตเดจเต เดตเตเดกเต เดซเตเตผเดฎเดพเดฑเตเดฑเดฟเดฒเตเดเตเดเต เดชเดฐเดฟเดตเตผเดคเตเดคเดจเด เดเตเดฏเตเดฏเตเดจเตเดจเต
pivot_wider() - เดตเดฟเดชเดฐเตเดค เดชเดฐเดฟเดตเตผเดคเตเดคเดจเด, เดตเดฐเดฟเดเดณเตเดเต เดเดฃเตเดฃเด เดเตเดฑเดเตเดเตเดเตเดฃเตเดเต เดคเตเดฏเดคเดฟ เดซเตเดฐเตเดฏเดฟเดฎเดฟเตปเตเดฑเต เดจเดฟเดฐเดเดณเตเดเต เดเดฃเตเดฃเด เดคเดฟเดฐเดฟเดเตเดเตเด เดตเตผเดฆเตเดงเดฟเดชเตเดชเดฟเดเตเดเตเดจเตเดจเต.
เดกเดพเดฑเตเดฑเดฏเต เดเตเดคเตเดฏเดฎเดพเดฏ เดฐเตเดชเดคเตเดคเดฟเดฒเตเดเตเดเต เดเตเดฃเตเดเตเดตเดฐเดพเตป เดเดคเตเดคเดฐเดคเตเดคเดฟเดฒเตเดณเตเดณ เดชเดฐเดฟเดตเตผเดคเตเดคเดจเด เดตเดณเดฐเต เด เดชเตเตผเดตเดฎเดพเดฏเดฟ เดฎเดพเดคเตเดฐเดฎเต เดเดชเดฏเตเดเดฟเดเตเดเตเดจเตเดจเตเดณเตเดณเต, เดเดจเตเดจเดฟเดฐเตเดจเตเดจเดพเดฒเตเด, เด เดตเดคเดฐเดฃเดเตเดเดณเดฟเตฝ เดเดชเดฏเตเดเดฟเดเตเดเตเดจเตเดจ เดชเดฟเดตเดฑเตเดฑเต เดชเดเตเดเดฟเดเดเตพ เดธเตเดทเตเดเดฟเดเตเดเตเดจเตเดจเดคเดฟเดจเต เดฎเดฑเตเดฑเต เดเดฟเดฒ เดเดชเดเดฐเดฃเดเตเดเดณเตเดฎเดพเดฏเดฟ เดธเดเดฏเตเดเดฟเดชเตเดชเดฟเดเตเดเตเดจเตเดจเดคเดฟเดจเต เด เดธเดพเดเตเดเตเดคเดฟเดเดตเดฟเดฆเตเดฏ เดเดชเดฏเตเดเดชเตเดฐเดฆเดฎเดพเดเตเด.
เดฏเดฅเดพเตผเดคเตเดฅเดคเตเดคเดฟเตฝ เดชเตเดฐเดตเตผเดคเตเดคเดจเดเตเดเตพ pivot_longer() ะธ pivot_wider() เดธเดฎเดฎเดฟเดคเดฟเดฏเดพเดฃเต, เดชเดฐเดธเตเดชเดฐเด เดตเดฟเดชเดฐเตเดคเดฎเดพเดฏ เดชเตเดฐเดตเตผเดคเตเดคเดจเดเตเดเตพ เดเดฃเตเดเดพเดเตเดเตเดจเตเดจเต, เด
เดคเดพเดฏเดคเต: df %>% pivot_longer(spec = spec) %>% pivot_wider(spec = spec) ะธ df %>% pivot_wider(spec = spec) %>% pivot_longer(spec = spec) เดฏเดฅเดพเตผเดคเตเดฅ df เดคเดฟเดฐเดฟเดเต เดจเตฝเดเตเด.
เดเดฐเต เดชเดเตเดเดฟเดเดฏเต เดตเดฟเดถเดพเดฒเดฎเดพเดฏ เดซเตเตผเดฎเดพเดฑเตเดฑเดฟเดฒเตเดเตเดเต เดชเดฐเดฟเดตเตผเดคเตเดคเดจเด เดเตเดฏเตเดฏเตเดจเตเดจเดคเดฟเดจเตเดณเตเดณ เดเดฑเตเดฑเดตเตเด เดฒเดณเดฟเดคเดฎเดพเดฏ เดเดฆเดพเดนเดฐเดฃเด
เดชเตเดฐเดตเตผเดคเตเดคเดจเด เดเดเตเดเดจเต เดชเตเดฐเดตเตผเดคเตเดคเดฟเดเตเดเตเดจเตเดจเตเดตเตเดจเตเดจเต เดเดพเดฃเดฟเดเตเดเดพเตป pivot_wider() เดเดเตเดเตพ เดกเดพเดฑเตเดฑเดพเดธเตเดฑเตเดฑเต เดเดชเดฏเตเดเดฟเดเตเดเตเด เดฎเตเตป_เดเดฑเตเดฑเตเดฎเตเดเตเดเดฒเตเดเตพ, เดจเดฆเดฟเดฏเดฟเดฒเตเดเตเดฏเตเดณเตเดณ เดฎเดคเตเดธเตเดฏเดเตเดเดณเตเดเต เดเดฒเดจเด เดตเดฟเดตเดฟเดง เดธเตเดฑเตเดฑเตเดทเดจเตเดเตพ เดเดเตเดเดจเต เดฐเตเดเดชเตเดชเตเดเตเดคเตเดคเตเดจเตเดจเต เดเดจเตเดจเดคเดฟเดจเตเดเตเดเตเดฑเดฟเดเตเดเตเดณเตเดณ เดตเดฟเดตเดฐเดเตเดเตพ เดธเดเดญเดฐเดฟเดเตเดเตเดจเตเดจเต.
#> # A tibble: 114 x 3
#> fish station seen
#> <fct> <fct> <int>
#> 1 4842 Release 1
#> 2 4842 I80_1 1
#> 3 4842 Lisbon 1
#> 4 4842 Rstr 1
#> 5 4842 Base_TD 1
#> 6 4842 BCE 1
#> 7 4842 BCW 1
#> 8 4842 BCE2 1
#> 9 4842 BCW2 1
#> 10 4842 MAE 1
#> # โฆ with 104 more rowsเดฎเดฟเดเตเด เดเตเดธเตเดเดณเดฟเดฒเตเด, เดเดฐเต เดธเตเดฑเตเดฑเตเดทเตปเตเดฑเตเดฏเตเด เดตเดฟเดตเดฐเดเตเดเตพ เดเดฐเต เดชเตเดฐเดคเตเดฏเตเด เดเตเดณเดคเตเดคเดฟเตฝ เด เดตเดคเดฐเดฟเดชเตเดชเดฟเดเตเดเตเดเดฏเดพเดฃเตเดเตเดเดฟเตฝ เด เดชเดเตเดเดฟเด เดเตเดเตเดคเตฝ เดตเดฟเดเตเดเดพเดจเดชเตเดฐเดฆเดตเตเด เดเดชเดฏเตเดเดฟเดเตเดเดพเตป เดเดณเตเดชเตเดชเดตเตเดฎเดพเดเตเด.
fish_encounters %>% pivot_wider(names_from = station, values_from = seen)
fish_encounters %>% pivot_wider(names_from = station, values_from = seen)
#> # A tibble: 19 x 12
#> fish Release I80_1 Lisbon Rstr Base_TD BCE BCW BCE2 BCW2 MAE
#> <fct> <int> <int> <int> <int> <int> <int> <int> <int> <int> <int>
#> 1 4842 1 1 1 1 1 1 1 1 1 1
#> 2 4843 1 1 1 1 1 1 1 1 1 1
#> 3 4844 1 1 1 1 1 1 1 1 1 1
#> 4 4845 1 1 1 1 1 NA NA NA NA NA
#> 5 4847 1 1 1 NA NA NA NA NA NA NA
#> 6 4848 1 1 1 1 NA NA NA NA NA NA
#> 7 4849 1 1 NA NA NA NA NA NA NA NA
#> 8 4850 1 1 NA 1 1 1 1 NA NA NA
#> 9 4851 1 1 NA NA NA NA NA NA NA NA
#> 10 4854 1 1 NA NA NA NA NA NA NA NA
#> # โฆ with 9 more rows, and 1 more variable: MAW <int>เด เดกเดพเดฑเตเดฑเดพ เดธเตเดฑเตเดฑเต เดธเตโเดฑเตเดฑเตเดทเตป เดฎเดคเตเดธเตเดฏเดคเตเดคเต เดเดฃเตเดเตเดคเตเดคเตเดฎเตเดชเตเตพ เดฎเดพเดคเตเดฐเดฎเต เดตเดฟเดตเดฐเดเตเดเตพ เดฐเตเดเดชเตเดชเตเดเตเดคเตเดคเตเดเดฏเตเดณเตเดณเต, เด เดคเดพเดฏเดคเต. เดเดคเตเดเตเดเดฟเดฒเตเด เดฎเดคเตเดธเตเดฏเด เดเดคเตเดเตเดเดฟเดฒเตเด เดธเตเดฑเตเดฑเตเดทเดจเดฟเตฝ เดฐเตเดเดชเตเดชเตเดเตเดคเตเดคเดฟเดฏเดฟเดเตเดเดฟเดฒเตเดฒเตเดเตเดเดฟเตฝ, เด เดกเดพเดฑเตเดฑ เดชเดเตเดเดฟเดเดฏเดฟเตฝ เดเดฃเตเดเดพเดเดฟเดฒเตเดฒ. เดเดคเดฟเดจเตผเดคเตเดฅเด เดเดเตเดเตเดชเตเดเตเดเต NA เดเตเดฃเตเดเต เดจเดฟเดฑเดฏเตเดฎเตเดจเตเดจเดพเดฃเต.
เดเดจเตเดจเดฟเดฐเตเดจเตเดจเดพเดฒเตเด, เด เดเตเดธเดฟเตฝ เดเดฐเต เดฐเตเดเดฏเตเดเต เด
เดญเดพเดตเด เดฎเดคเตเดธเตเดฏเด เดเดฃเตเดเดฟเดฒเตเดฒ เดเดจเตเดจเดพเดฃเต เด
เตผเดคเตเดฅเดฎเดพเดเตเดเตเดจเตเดจเดคเต, เด
เดคเดฟเดจเดพเตฝ เดจเดฎเตเดเตเดเต เดตเดพเดฆเด เดเดชเดฏเตเดเดฟเดเตเดเดพเด เดฎเตเดฒเตเดฏเดเตเดเตพ_เดซเดฟเตฝ เดชเตเดฐเดตเตผเดคเตเดคเดจเดคเตเดคเดฟเตฝ pivot_wider() เดเตเดเดพเดคเต เด เดจเดทเตเดเดชเตเดชเตเดเตเด เดฎเตเดฒเตเดฏเดเตเดเตพ เดชเตเดเตเดฏเดเตเดเตพ เดเตเดฃเตเดเต เดชเตเดฐเดฟเดชเตเดชเดฟเดเตเดเตเด:
fish_encounters %>% pivot_wider(
names_from = station,
values_from = seen,
values_fill = list(seen = 0)
)#> # A tibble: 19 x 12
#> fish Release I80_1 Lisbon Rstr Base_TD BCE BCW BCE2 BCW2 MAE
#> <fct> <int> <int> <int> <int> <int> <int> <int> <int> <int> <int>
#> 1 4842 1 1 1 1 1 1 1 1 1 1
#> 2 4843 1 1 1 1 1 1 1 1 1 1
#> 3 4844 1 1 1 1 1 1 1 1 1 1
#> 4 4845 1 1 1 1 1 0 0 0 0 0
#> 5 4847 1 1 1 0 0 0 0 0 0 0
#> 6 4848 1 1 1 1 0 0 0 0 0 0
#> 7 4849 1 1 0 0 0 0 0 0 0 0
#> 8 4850 1 1 0 1 1 1 1 0 0 0
#> 9 4851 1 1 0 0 0 0 0 0 0 0
#> 10 4854 1 1 0 0 0 0 0 0 0 0
#> # โฆ with 9 more rows, and 1 more variable: MAW <int>เดเดจเตเดจเดฟเดฒเดงเดฟเดเด เดธเตเดดเตเดธเต เดตเตเดฐเดฟเดฏเดฌเดฟเดณเตเดเดณเดฟเตฝ เดจเดฟเดจเตเดจเต เดเดฐเต เดเตเดณเดคเตเดคเดฟเตปเตเดฑเต เดชเตเดฐเต เดธเตเดทเตเดเดฟเดเตเดเตเดจเตเดจเต
เดเตฝเดชเตเดชเดจเตเดจเด, เดฐเดพเดเตเดฏเด, เดตเตผเดทเด เดเดจเตเดจเดฟเดตเดฏเตเดเต เดธเดเดฏเตเดเดจเด เดเตพเดเตเดเตเดณเตเดณเตเดจเตเดจ เดเดฐเต เดชเดเตเดเดฟเด เดเดเตเดเดณเตเดเต เดชเดเตเดเดฒเตเดฃเตเดเตเดจเตเดจเต เดธเดเตเดเตฝเดชเตเดชเดฟเดเตเดเตเด. เดเดฐเต เดเตเดธเตเดฑเตเดฑเต เดคเตเดฏเดคเดฟ เดซเตเดฐเตเดฏเดฟเด เดธเตเดทเตเดเดฟเดเตเดเดพเตป, เดจเดฟเดเตเดเตพเดเตเดเต เดเดจเดฟเดชเตเดชเดฑเดฏเตเดจเตเดจ เดเตเดกเต เดชเตเดฐเดตเตผเดคเตเดคเดฟเดชเตเดชเดฟเดเตเดเดพเด:
df <- expand_grid(
product = c("A", "B"),
country = c("AI", "EI"),
year = 2000:2014
) %>%
filter((product == "A" & country == "AI") | product == "B") %>%
mutate(value = rnorm(nrow(.)))#> # A tibble: 45 x 4
#> product country year value
#> <chr> <chr> <int> <dbl>
#> 1 A AI 2000 -2.05
#> 2 A AI 2001 -0.676
#> 3 A AI 2002 1.60
#> 4 A AI 2003 -0.353
#> 5 A AI 2004 -0.00530
#> 6 A AI 2005 0.442
#> 7 A AI 2006 -0.610
#> 8 A AI 2007 -2.77
#> 9 A AI 2008 0.899
#> 10 A AI 2009 -0.106
#> # โฆ with 35 more rowsเดเดเตเดเดณเตเดเต เดเตเดฎเดคเดฒ เดกเดพเดฑเตเดฑ เดซเตเดฐเตเดฏเดฟเด เดตเดฟเดเดธเดฟเดชเตเดชเดฟเดเตเดเตเด เดเดจเตเดจเดคเดพเดฃเต, เด เดคเดฟเดฒเตเดเต เดเดฐเต เดเตเดณเดคเตเดคเดฟเตฝ เดเตฝเดชเตเดชเดจเตเดจเดคเตเดคเดฟเตปเตเดฑเตเดฏเตเด เดฐเดพเดเตเดฏเดคเตเดคเดฟเตปเตเดฑเตเดฏเตเด เดเดฐเต เดเตเดฎเตเดชเดฟเดจเตเดทเดจเตเดฎเตเดณเตเดณ เดกเดพเดฑเตเดฑ เด เดเดเตเดเดฟเดฏเดฟเดฐเดฟเดเตเดเตเดจเตเดจเต. เดเดคเต เดเตเดฏเตเดฏเตเดจเตเดจเดคเดฟเดจเต, เดตเดพเดฆเดคเตเดคเดฟเตฝ เดเดเดจเตเดจเตเดชเตเดเตเด เดชเตเดฐเตเดเตพ_เดจเดฟเดจเตเดจเต เดฒเดฏเดฟเดชเตเดชเดฟเดเตเดเตเดฃเตเด เดซเตเตฝเดกเตเดเดณเตเดเต เดชเตเดฐเตเดเตพ เด เดเดเตเดเดฟเดฏ เดเดฐเต เดตเตเดเตเดฑเตเดฑเตผ.
df %>% pivot_wider(names_from = c(product, country),
values_from = "value")#> # A tibble: 15 x 4
#> year A_AI B_AI B_EI
#> <int> <dbl> <dbl> <dbl>
#> 1 2000 -2.05 0.607 1.20
#> 2 2001 -0.676 1.65 -0.114
#> 3 2002 1.60 -0.0245 0.501
#> 4 2003 -0.353 1.30 -0.459
#> 5 2004 -0.00530 0.921 -0.0589
#> 6 2005 0.442 -1.55 0.594
#> 7 2006 -0.610 0.380 -1.28
#> 8 2007 -2.77 0.830 0.637
#> 9 2008 0.899 0.0175 -1.30
#> 10 2009 -0.106 -0.195 1.03
#> # โฆ with 5 more rowsเดจเดฟเดเตเดเตพเดเตเดเต เดเดฐเต เดซเดเดเตโเดทเดจเดฟเดฒเตเดเตเดเต เดธเตเดชเตเดธเดฟเดซเดฟเดเตเดเตเดทเดจเตเดเตพ เดชเตเดฐเดฏเตเดเดฟเดเตเดเดพเดจเตเด เดเดดเดฟเดฏเตเด pivot_wider(). เดเดจเตเดจเดพเตฝ เดธเดฎเตผเดชเตเดชเดฟเดเตเดเตเดฎเตเดชเตเตพ pivot_wider() เดธเตเดชเตเดธเดฟเดซเดฟเดเตเดเตเดทเตป เดตเดฟเดชเดฐเตเดค เดชเดฐเดฟเดตเตผเดคเตเดคเดจเด เดเตเดฏเตเดฏเตเดจเตเดจเต pivot_longer(): เตฝ เดตเตเดฏเดเตเดคเดฎเดพเดเตเดเดฟเดฏ เดจเดฟเดฐเดเตพ เดจเดพเดฎเด, เดเดจเตเดจเดคเดฟเตฝ เดจเดฟเดจเตเดจเตเดณเตเดณ เดฎเตเดฒเตเดฏเดเตเดเตพ เดเดชเดฏเตเดเดฟเดเตเดเตเดจเตเดจเต .เดฎเตเดฒเตเดฏเด เดฎเดฑเตเดฑเต เดจเดฟเดฐเดเดณเตเด.
เด เดกเดพเดฑเตเดฑเดพเดธเตเดฑเตเดฑเดฟเดจเดพเดฏเดฟ, เดกเดพเดฑเตเดฑเดฏเดฟเตฝ เดเดณเตเดณเดต เดฎเดพเดคเตเดฐเดฎเดฒเตเดฒ, เดธเดพเดงเตเดฏเดฎเดพเดฏ เดเดฒเตเดฒเดพ เดฐเดพเดเตเดฏเดเตเดเตพเดเตเดเตเด เดเตฝเดชเตเดชเดจเตเดจ เดเตเดฎเตเดชเดฟเดจเตเดทเดจเตเด เด เดคเดฟเตปเตเดฑเตเดคเดพเดฏ เดเตเดณเด เดตเตเดฃเดฎเตเดจเตเดจเต เดจเดฟเดเตเดเตพ เดเดเตเดฐเดนเดฟเดเตเดเตเดจเตเดจเตเดตเตเดเตเดเดฟเตฝ เดจเดฟเดเตเดเตพเดเตเดเต เดเดฐเต เดเดทเตโเดเดพเดจเตเดธเตเดค เดธเตเดชเตเดธเดฟเดซเดฟเดเตเดเตเดทเตป เดธเตเดทเตเดเดฟเดเตเดเดพเตป เดเดดเดฟเดฏเตเด:
spec <- df %>%
expand(product, country, .value = "value") %>%
unite(".name", product, country, remove = FALSE)#> # A tibble: 4 x 4
#> .name product country .value
#> <chr> <chr> <chr> <chr>
#> 1 A_AI A AI value
#> 2 A_EI A EI value
#> 3 B_AI B AI value
#> 4 B_EI B EI valuedf %>% pivot_wider(spec = spec) %>% head()#> # A tibble: 6 x 5
#> year A_AI A_EI B_AI B_EI
#> <int> <dbl> <dbl> <dbl> <dbl>
#> 1 2000 -2.05 NA 0.607 1.20
#> 2 2001 -0.676 NA 1.65 -0.114
#> 3 2002 1.60 NA -0.0245 0.501
#> 4 2003 -0.353 NA 1.30 -0.459
#> 5 2004 -0.00530 NA 0.921 -0.0589
#> 6 2005 0.442 NA -1.55 0.594เดชเตเดคเดฟเดฏ tidyr เดเดถเดฏเด เดเดชเดฏเตเดเดฟเดเตเดเต เดชเตเดฐเดตเตผเดคเตเดคเดฟเดเตเดเตเดจเตเดจเดคเดฟเดจเตเดณเตเดณ เดจเดฟเดฐเดตเดงเดฟ เดตเดฟเดชเตเดฒเดฎเดพเดฏ เดเดฆเดพเดนเดฐเดฃเดเตเดเตพ
เดเดฆเดพเดนเดฐเดฃเดฎเดพเดฏเดฟ เดฏเตเดเดธเต เดธเตเตปเดธเดธเต เดตเดฐเตเดฎเดพเดจเดตเตเด เดตเดพเดเด เดกเดพเดฑเตเดฑเดพเดธเตเดฑเตเดฑเตเด เดเดชเดฏเตเดเดฟเดเตเดเต เดกเดพเดฑเตเดฑ เดตเตเดคเตเดคเดฟเดฏเดพเดเตเดเตฝ.
เดกเดพเดฑเตเดฑ เดธเตเดฑเตเดฑเต เดเดเตเดเตพเดเตเดเต_เดตเดพเดเด_เดตเดฐเตเดฎเดพเดจเด 2017-เดฒเต เดฏเตเดเดธเดฟเดฒเต เดเดฒเตเดฒเดพ เดธเดเดธเตเดฅเดพเดจเดเตเดเดณเตเดเตเดฏเตเด เดถเดฐเดพเดถเดฐเดฟ เดตเดฐเตเดฎเดพเดจเดตเตเด เดตเดพเดเด เดตเดฟเดตเดฐเดเตเดเดณเตเด เด เดเดเตเดเดฟเดฏเดฟเดฐเดฟเดเตเดเตเดจเตเดจเต (เดชเดพเดเตเดเตเดเดฟเตฝ เดฒเดญเตเดฏเดฎเดพเดฏ เดกเดพเดฑเตเดฑ เดธเตเดฑเตเดฑเต tidycensus).
us_rent_income
#> # A tibble: 104 x 5
#> GEOID NAME variable estimate moe
#> <chr> <chr> <chr> <dbl> <dbl>
#> 1 01 Alabama income 24476 136
#> 2 01 Alabama rent 747 3
#> 3 02 Alaska income 32940 508
#> 4 02 Alaska rent 1200 13
#> 5 04 Arizona income 27517 148
#> 6 04 Arizona rent 972 4
#> 7 05 Arkansas income 23789 165
#> 8 05 Arkansas rent 709 5
#> 9 06 California income 29454 109
#> 10 06 California rent 1358 3
#> # โฆ with 94 more rowsเดกเดพเดฑเตเดฑเดพ เดธเตเดฑเตเดฑเดฟเตฝ เดกเดพเดฑเตเดฑ เดธเดเดญเดฐเดฟเดเตเดเดฟเดฐเดฟเดเตเดเตเดจเตเดจ เดฐเตเดชเดคเตเดคเดฟเตฝ เดเดเตเดเตพเดเตเดเต_เดตเดพเดเด_เดตเดฐเตเดฎเดพเดจเด เด เดตเดฐเตเดฎเดพเดฏเดฟ เดชเตเดฐเดตเตผเดคเตเดคเดฟเดเตเดเตเดจเตเดจเดคเต เด เดเตเดเตเดฏเดฑเตเดฑเด เด เดธเตเดเดฐเตเดฏเดฎเดพเดฃเต, เด เดคเดฟเดจเดพเตฝ เดเตเดณเดเตเดเดณเตเดณเตเดณ เดเดฐเต เดกเดพเดฑเตเดฑ เดธเตเดฑเตเดฑเต เดธเตเดทเตเดเดฟเดเตเดเดพเตป เดเดเตเดเตพ เดเดเตเดฐเดนเดฟเดเตเดเตเดจเตเดจเต: เดตเดพเดเด, เดตเดพเดเด_เดฎเต, เดตเดฐเตเด, เดตเดฐเตเดฎเดพเดจเด_เดฎเต. เด เดธเตเดชเตเดธเดฟเดซเดฟเดเตเดเตเดทเตป เดธเตเดทเตเดเดฟเดเตเดเดพเตป เดจเดฟเดฐเดตเดงเดฟ เดฎเดพเตผเดเดเตเดเดณเตเดฃเตเดเต, เดเดจเตเดจเดพเตฝ เดชเตเดฐเดงเดพเดจ เดเดพเดฐเตเดฏเด เดตเตเดฐเดฟเดฏเดฌเดฟเตพ เดฎเตเดฒเตเดฏเดเตเดเดณเตเดเต เดเดฒเตเดฒเดพ เดธเดเดฏเตเดเดจเดตเตเด เดธเตเดทเตเดเดฟเดเตเดเตเดฃเตเดเดคเตเดฃเตเดเต เดเดจเตเดจเดคเดพเดฃเต. เดเดธเตเดฑเตเดฑเดฟเดฎเตเดฑเตเดฑเต/เดฎเตเดคเตเดเตผเดจเตเดจเต เดเตเดณเดคเตเดคเดฟเตปเตเดฑเต เดชเตเดฐเต เดธเตเดทเตเดเดฟเดเตเดเตเด.
spec <- us_rent_income %>%
expand(variable, .value = c("estimate", "moe")) %>%
mutate(
.name = paste0(variable, ifelse(.value == "moe", "_moe", ""))
)#> # A tibble: 4 x 3
#> variable .value .name
#> <chr> <chr> <chr>
#> 1 income estimate income
#> 2 income moe income_moe
#> 3 rent estimate rent
#> 4 rent moe rent_moeเด เดธเตเดชเตเดธเดฟเดซเดฟเดเตเดเตเดทเตป เดจเตฝเดเตเดจเตเดจเต pivot_wider() เดเดเตเดเตพ เดคเดฟเดฐเดฏเตเดจเตเดจ เดซเดฒเด เดจเตฝเดเตเดจเตเดจเต:
us_rent_income %>% pivot_wider(spec = spec)
#> # A tibble: 52 x 6
#> GEOID NAME income income_moe rent rent_moe
#> <chr> <chr> <dbl> <dbl> <dbl> <dbl>
#> 1 01 Alabama 24476 136 747 3
#> 2 02 Alaska 32940 508 1200 13
#> 3 04 Arizona 27517 148 972 4
#> 4 05 Arkansas 23789 165 709 5
#> 5 06 California 29454 109 1358 3
#> 6 08 Colorado 32401 109 1125 5
#> 7 09 Connecticut 35326 195 1123 5
#> 8 10 Delaware 31560 247 1076 10
#> 9 11 District of Columbia 43198 681 1424 17
#> 10 12 Florida 25952 70 1077 3
#> # โฆ with 42 more rowsเดฒเตเดเดฌเดพเดเตเดเต
เดเดฟเดฒเดชเตเดชเตเตพ เดเดฐเต เดกเดพเดฑเตเดฑ เดธเตเดฑเตเดฑเต เดเดตเดถเตเดฏเดฎเตเดณเตเดณ เดซเตเดฎเดฟเดฒเตเดเตเดเต เดเตเดฃเตเดเตเดตเดฐเตเดจเตเดจเดคเดฟเดจเต เดจเดฟเดฐเดตเดงเดฟ เดเดเตเดเดเตเดเตพ เดเดตเดถเตเดฏเดฎเดพเดฃเต.
เดกเดพเดฑเตเดฑเดพเดธเตเดฑเตเดฑเต เดฒเตเด_เดฌเดพเดเตเดเต_เดชเตเดชเตเดชเต 2000-เดจเตเด 2018-เดจเตเด เดเดเดฏเดฟเดฒเตเดณเตเดณ เดเดฐเต เดฐเดพเดเตเดฏเดคเตเดคเตเดฏเตเด เดเดจเดธเดเดเตเดฏเดฏเตเดเตเดเตเดฑเดฟเดเตเดเตเดณเตเดณ เดฒเตเดเดฌเดพเดเตเดเต เดกเดพเดฑเตเดฑ เด
เดเดเตเดเดฟเดฏเดฟเดฐเดฟเดเตเดเตเดจเตเดจเต.
#> # A tibble: 1,056 x 20
#> country indicator `2000` `2001` `2002` `2003` `2004` `2005` `2006`
#> <chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#> 1 ABW SP.URB.Tโฆ 4.24e4 4.30e4 4.37e4 4.42e4 4.47e+4 4.49e+4 4.49e+4
#> 2 ABW SP.URB.Gโฆ 1.18e0 1.41e0 1.43e0 1.31e0 9.51e-1 4.91e-1 -1.78e-2
#> 3 ABW SP.POP.Tโฆ 9.09e4 9.29e4 9.50e4 9.70e4 9.87e+4 1.00e+5 1.01e+5
#> 4 ABW SP.POP.Gโฆ 2.06e0 2.23e0 2.23e0 2.11e0 1.76e+0 1.30e+0 7.98e-1
#> 5 AFG SP.URB.Tโฆ 4.44e6 4.65e6 4.89e6 5.16e6 5.43e+6 5.69e+6 5.93e+6
#> 6 AFG SP.URB.Gโฆ 3.91e0 4.66e0 5.13e0 5.23e0 5.12e+0 4.77e+0 4.12e+0
#> 7 AFG SP.POP.Tโฆ 2.01e7 2.10e7 2.20e7 2.31e7 2.41e+7 2.51e+7 2.59e+7
#> 8 AFG SP.POP.Gโฆ 3.49e0 4.25e0 4.72e0 4.82e0 4.47e+0 3.87e+0 3.23e+0
#> 9 AGO SP.URB.Tโฆ 8.23e6 8.71e6 9.22e6 9.77e6 1.03e+7 1.09e+7 1.15e+7
#> 10 AGO SP.URB.Gโฆ 5.44e0 5.59e0 5.70e0 5.76e0 5.75e+0 5.69e+0 4.92e+0
#> # โฆ with 1,046 more rows, and 11 more variables: `2007` <dbl>,
#> # `2008` <dbl>, `2009` <dbl>, `2010` <dbl>, `2011` <dbl>, `2012` <dbl>,
#> # `2013` <dbl>, `2014` <dbl>, `2015` <dbl>, `2016` <dbl>, `2017` <dbl>เดเดฐเต เดตเตเดฐเดฟเดฏเดฌเดฟเดณเดฟเดจเตเด เด เดคเดฟเตปเตเดฑเตเดคเดพเดฏ เดเตเดณเดคเตเดคเดฟเตฝ เดเดฐเต เดตเตเดคเตเดคเดฟเดฏเตเดณเตเดณ เดกเดพเดฑเตเดฑ เดธเตเดทเตเดเดฟเดเตเดเตเด เดเดจเตเดจเดคเดพเดฃเต เดเดเตเดเดณเตเดเต เดฒเดเตเดทเตเดฏเด. เดเตเดคเตเดฏเดฎเดพเดฏเดฟ เดเดจเตเดคเตเดฒเตเดฒเดพเด เดเดเตเดเดเตเดเดณเดพเดฃเต เดตเตเดฃเตเดเดคเตเดจเตเดจเต เดตเตเดฏเดเตเดคเดฎเดฒเตเดฒ, เดเดจเตเดจเดพเตฝ เดเดฑเตเดฑเดตเตเด เดตเตเดฏเดเตเดคเดฎเดพเดฏ เดชเตเดฐเดถเตเดจเดคเตเดคเดฟเตฝ เดจเดฟเดจเตเดจเต เดเดเตเดเตพ เดเดฐเดเดญเดฟเดเตเดเตเด: เดตเตผเดทเด เดเดจเตเดจเดฟเดฒเดงเดฟเดเด เดจเดฟเดฐเดเดณเดฟเตฝ เดตเตเดฏเดพเดชเดฟเดเตเดเดฟเดฐเดฟเดเตเดเตเดจเตเดจเต.
เดเดคเต เดชเดฐเดฟเดนเดฐเดฟเดเตเดเตเดจเตเดจเดคเดฟเดจเต, เดจเดฟเดเตเดเตพ เดซเดเดเตเดทเตป เดเดชเดฏเตเดเดฟเดเตเดเตเดฃเตเดเดคเตเดฃเตเดเต pivot_longer().
pop2 <- world_bank_pop %>%
pivot_longer(`2000`:`2017`, names_to = "year")#> # A tibble: 19,008 x 4
#> country indicator year value
#> <chr> <chr> <chr> <dbl>
#> 1 ABW SP.URB.TOTL 2000 42444
#> 2 ABW SP.URB.TOTL 2001 43048
#> 3 ABW SP.URB.TOTL 2002 43670
#> 4 ABW SP.URB.TOTL 2003 44246
#> 5 ABW SP.URB.TOTL 2004 44669
#> 6 ABW SP.URB.TOTL 2005 44889
#> 7 ABW SP.URB.TOTL 2006 44881
#> 8 ABW SP.URB.TOTL 2007 44686
#> 9 ABW SP.URB.TOTL 2008 44375
#> 10 ABW SP.URB.TOTL 2009 44052
#> # โฆ with 18,998 more rowsเด
เดเตเดคเตเดค เดเดเตเดเด เดเตปเดกเดฟเดเตเดเตเดฑเตเดฑเตผ เดตเตเดฐเดฟเดฏเดฌเดฟเตพ เดจเตเดเตเดเตเด เดเดจเตเดจเดคเดพเดฃเต.
pop2 %>% count(indicator)
#> # A tibble: 4 x 2
#> indicator n
#> <chr> <int>
#> 1 SP.POP.GROW 4752
#> 2 SP.POP.TOTL 4752
#> 3 SP.URB.GROW 4752
#> 4 SP.URB.TOTL 4752SP.POP.GROW เดเดจเตเดจเดคเต เดเดจเดธเดเดเตเดฏเดพ เดตเดณเตผเดเตเดเดฏเดพเดฃเต, SP.POP.TOTL เดเดจเตเดจเดคเต เดฎเตเดคเตเดคเด เดเดจเดธเดเดเตเดฏเดฏเตเด SP.URBเดฏเตเดฎเดพเดฃเต. * เดเดฐเต เดเดพเดฐเตเดฏเด, เดเดจเตเดจเดพเตฝ เดจเดเดฐเดชเตเดฐเดฆเตเดถเดเตเดเดณเดฟเตฝ เดฎเดพเดคเตเดฐเด. เดจเดฎเตเดเตเดเต เด เดฎเตเดฒเตเดฏเดเตเดเดณเต เดฐเดฃเตเดเต เดตเตเดฐเดฟเดฏเดฌเดฟเดณเตเดเดณเดพเดฏเดฟ เดตเดฟเดญเดเดฟเดเตเดเดพเด: เดเดฐเดฟเดฏ - เดเดฐเดฟเดฏ (เดฎเตเดคเตเดคเด เด เดฒเตเดฒเตเดเตเดเดฟเตฝ เดจเดเดฐเด) เดเตเดเดพเดคเต เดฏเดฅเดพเตผเดคเตเดฅ เดกเดพเดฑเตเดฑ (เดเดจเดธเดเดเตเดฏ เด เดฒเตเดฒเตเดเตเดเดฟเตฝ เดตเดณเตผเดเตเด) เด เดเดเตเดเดฟเดฏเดฟเดฐเดฟเดเตเดเตเดจเตเดจ เดเดฐเต เดตเตเดฐเดฟเดฏเดฌเดฟเตพ:
pop3 <- pop2 %>%
separate(indicator, c(NA, "area", "variable"))#> # A tibble: 19,008 x 5
#> country area variable year value
#> <chr> <chr> <chr> <chr> <dbl>
#> 1 ABW URB TOTL 2000 42444
#> 2 ABW URB TOTL 2001 43048
#> 3 ABW URB TOTL 2002 43670
#> 4 ABW URB TOTL 2003 44246
#> 5 ABW URB TOTL 2004 44669
#> 6 ABW URB TOTL 2005 44889
#> 7 ABW URB TOTL 2006 44881
#> 8 ABW URB TOTL 2007 44686
#> 9 ABW URB TOTL 2008 44375
#> 10 ABW URB TOTL 2009 44052
#> # โฆ with 18,998 more rowsเดเดชเตเดชเตเตพ เดจเดฎเตเดฎเตพ เดเตเดฏเตเดฏเตเดฃเตเดเดคเต เดตเตเดฐเดฟเดฏเดฌเดฟเดณเดฟเดจเต เดฐเดฃเตเดเต เดจเดฟเดฐเดเดณเดพเดฏเดฟ เดตเดฟเดญเดเดฟเดเตเดเตเด เดเดจเตเดจเดคเดพเดฃเต:
pop3 %>%
pivot_wider(names_from = variable, values_from = value)#> # A tibble: 9,504 x 5
#> country area year TOTL GROW
#> <chr> <chr> <chr> <dbl> <dbl>
#> 1 ABW URB 2000 42444 1.18
#> 2 ABW URB 2001 43048 1.41
#> 3 ABW URB 2002 43670 1.43
#> 4 ABW URB 2003 44246 1.31
#> 5 ABW URB 2004 44669 0.951
#> 6 ABW URB 2005 44889 0.491
#> 7 ABW URB 2006 44881 -0.0178
#> 8 ABW URB 2007 44686 -0.435
#> 9 ABW URB 2008 44375 -0.698
#> 10 ABW URB 2009 44052 -0.731
#> # โฆ with 9,494 more rowsเดเตเตบเดเดพเดเตเดฑเตเดฑเต เดฒเดฟเดธเตเดฑเตเดฑเต
เด เดตเดธเดพเดจเดคเตเดคเต เดเดฐเต เดเดฆเดพเดนเดฐเดฃเด, เดจเดฟเดเตเดเตพ เดเดฐเต เดตเตเดฌเตเดธเตเดฑเตเดฑเดฟเตฝ เดจเดฟเดจเตเดจเต เดชเดเตผเดคเตเดคเดฟ เดเดเตเดเดฟเดเตเด เดเตเตบเดเดพเดเตเดฑเตเดฑเต เดฒเดฟเดธเตเดฑเตเดฑเต เดเดฃเตเดเตเดจเตเดจเต เดธเดเตเดเตฝเดชเตเดชเดฟเดเตเดเตเด:
contacts <- tribble(
~field, ~value,
"name", "Jiena McLellan",
"company", "Toyota",
"name", "John Smith",
"company", "google",
"email", "john@google.com",
"name", "Huxley Ratcliffe"
)เด เดฒเดฟเดธเตเดฑเตเดฑเต เดชเดเตเดเดฟเดเดชเตเดชเตเดเตเดคเตเดคเตเดจเตเดจเดคเต เดตเดณเดฐเต เดฌเตเดฆเตเดงเดฟเดฎเตเดเตเดเดพเดฃเต, เดเดพเดฐเดฃเด เดเดคเต เดเตเตบเดเดพเดเตเดฑเตเดฑเดฟเตปเตเดฑเตเดคเดพเดฃเต เดกเดพเดฑเตเดฑ เดเดจเตเดจเต เดคเดฟเดฐเดฟเดเตเดเดฑเดฟเดฏเตเดจเตเดจ เดเดฐเต เดตเตเดฐเดฟเดฏเดฌเดฟเดณเตเด เดเดฒเตเดฒ. เดเดฐเต เดชเตเดคเดฟเดฏ เดเตเตบเดเดพเดเตเดฑเตเดฑเดฟเตปเตเดฑเตเดฏเตเด เดกเดพเดฑเตเดฑ "เดชเตเดฐเต" เดเดจเตเดจเดคเดฟเตฝ เดคเตเดเดเตเดเตเดจเตเดจเต เดเดจเตเดจเดคเต เดถเตเดฐเดฆเตเดงเดฟเดเตเดเตเด เดตเดดเดฟ เดจเดฎเตเดเตเดเต เดเดคเต เดชเดฐเดฟเดนเดฐเดฟเดเตเดเดพเตป เดเดดเดฟเดฏเตเด, เด เดคเดฟเดจเดพเตฝ เดจเดฎเตเดเตเดเต เดเดฐเต เด เดฆเตเดตเดฟเดคเตเดฏ เดเดกเตปเตเดฑเดฟเดซเดฏเตผ เดธเตเดทเตเดเดฟเดเตเดเดพเดจเตเด เดเดฐเต เดคเดตเดฃ เดซเตเตฝเดกเต เดเตเดณเดคเตเดคเดฟเตฝ "เดชเตเดฐเต" เดเดจเตเดจ เดฎเตเดฒเตเดฏเด เด เดเดเตเดเดฟเดฏเดฟเดฐเดฟเดเตเดเตเดฎเตเดชเตเดดเตเด เด เดคเต เดเดจเตเดจเดพเดฏเดฟ เดตเตผเดฆเตเดงเดฟเดชเตเดชเดฟเดเตเดเดพเดจเตเด เดเดดเดฟเดฏเตเด:
contacts <- contacts %>%
mutate(
person_id = cumsum(field == "name")
)
contacts#> # A tibble: 6 x 3
#> field value person_id
#> <chr> <chr> <int>
#> 1 name Jiena McLellan 1
#> 2 company Toyota 1
#> 3 name John Smith 2
#> 4 company google 2
#> 5 email john@google.com 2
#> 6 name Huxley Ratcliffe 3เดเดชเตเดชเตเตพ เดเดเตเดเตพเดเตเดเต เดเดฐเต เดเตเตบเดเดพเดเตเดฑเตเดฑเดฟเดจเตเด เดเดฐเต เด เดฆเตเดตเดฟเดคเตเดฏ เดเดกเดฟ เดเดฃเตเดเต, เดเดเตเดเตพเดเตเดเต เดซเตเตฝเดกเตเด เดฎเตเดฒเตเดฏเดตเตเด เดเตเดณเดเตเดเดณเดพเดเตเดเดฟ เดฎเดพเดฑเตเดฑเดพเด:
contacts %>%
pivot_wider(names_from = field, values_from = value)#> # A tibble: 3 x 4
#> person_id name company email
#> <int> <chr> <chr> <chr>
#> 1 1 Jiena McLellan Toyota <NA>
#> 2 2 John Smith google john@google.com
#> 3 3 Huxley Ratcliffe <NA> <NA>เดคเตเดฐเตเดฎเดพเดจเด
เดชเตเดคเดฟเดฏ เดเดถเดฏเดฎเดพเดฃเตเดจเตเดจเดพเดฃเต เดเตปเตเดฑเต เดตเตเดฏเดเตเดคเดฟเดชเดฐเดฎเดพเดฏ เด
เดญเดฟเดชเตเดฐเดพเดฏเด เดตเตเดคเตเดคเดฟเดฏเตเดณเตเดณ เดฏเดฅเดพเตผเดคเตเดฅเดคเตเดคเดฟเตฝ เดเตเดเตเดคเตฝ เด
เดตเดฌเตเดงเดเดจเตเดฏเดตเตเด เดฒเตเดเดธเดฟ เดซเดเดเตโเดทเดจเตเดเดณเตเดเตเดเดพเตพ เดชเตเดฐเดตเตผเดคเตเดคเดจเดเตเดทเดฎเดคเดฏเดฟเตฝ เดตเดณเดฐเต เดฎเดฟเดเดเตเดเดคเตเดฎเดพเดฃเต spread() ะธ gather(). เดเตเดเดพเดฐเตเดฏเด เดเตเดฏเตเดฏเดพเตป เด เดฒเตเดเดจเด เดจเดฟเดเตเดเดณเต เดธเดนเดพเดฏเดฟเดเตเดเตเดตเตเดจเตเดจเต เดเดพเตป เดชเตเดฐเดคเตเดเตเดทเดฟเดเตเดเตเดจเตเดจเต pivot_longer() ะธ pivot_wider().
เด เดตเดฒเดเดฌเด: www.habr.com
